04. april 2002 - 17:12Der er
10 kommentarer og 1 løsning
Ens kolonner i access
Jag har to kolonner (tid og dato) i en tabel (tabel1). Jeg har lavet en side med en formular med to tekstfelter(tid og dato), som skal udfyldes.
Hvis der i de to kolonner f.eks står: 9:00 og 04-04-2002, og netop de to informationer indtastes i formularen, så skal der komme en meddelse, som siger at netop det tidspunkt på den dato er optaget.
Som jeg har lavet det nu, tilføjes det bare til databasen, så der står 9:00 og 04-04-2002 to gange.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Prøv med dette. OBS:Jeg har ikke testet det. <% Function DBhent(SQL, DBnavn) Dim consub Set consub = Server.CreateObject("ADODB.Connection") consub.CommandTimeout = 30 consub.ConnectionTimeout = 20 consub.Open "DBQ=" & Server.Mappath(DBnavn) & ";Driver={Microsoft Access Driver (*.mdb)}" Dim objDBhent Set objDBhent = Server.CreateObject("ADODB.RecordSet") objDBhent.Open SQL, consub, 3, 1 Set DBhent= objDBhent Set objDBhent = Nothing End Function %>
<% tid = request.form("tid") dato = request.form("dato") Set rs = DBhent("SELECT * FROM tabel1 WHERE dato = '" & dato & "' and tid = '" & tid & "' ", "dit_databasenavn")
if not rs.eof response.redirect("fejl.HTML") end if %>
Hvis du ikke allerede har fået løst problemet, så prøv med dette:
strSQL = "SELECT * FROM tabel WHERE tid = '" & Request.Form("tid") & "' AND dato = '" & Request.Form("dato") & "';" Set rs = connection.Execute(strSQL) if rs.EOF OR rs.BOF then
strSQL = "INSERT INTO tabel (tid,dato) VALUES ('" & Request.Form("tid") & "', '" & Request.Form("dato") & "');" Connection.Execute(strSQL) else Response.Write "What ever" ' eller hvad du nu kunne tænke dig end if
Hej Mickill hva med at bruge hovedet det er jo pisse nemt
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.