Avatar billede kagge Nybegynder
26. februar 2003 - 11:40 Der er 7 kommentarer og
1 løsning

Indsætte data fra form 2 tabeller

Har lige nedenstående problem:

I min accessdatabase har jeg 2 tabeller (Medarbejder, Arbejde).

Medarbejdertabellen indeholder (ID, Medarbejdernr, Navn, tlf)
Arbejdetabellen indeholder (ID, Halnr, Halnavn, Banenr)

Normalt bruger jeg nedenstående kode til at indsætte data fra en formular til én tabel…..

Men hvordan skal koden være, hvis man skal sende data fra en formular til 2 tabeller????

Dim mednum
Dim mednavn
Dim medtlf
Dim arbnr
Dim arbnavn
Dim arbbanenr


' Forbindelse til database via ODBC, uden DSN '
Dim connectionString
connectionString ="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xxx.mdb")
Dim forbindelse
set forbindelse = Server.CreateObject("ADODB.Connection")
forbindelse.Open(connectionString)
Dim kilde
kilde ="Medarbejder"
Dim recordSet
set recordSet = Server.CreateObject("ADODB.RecordSet")
recordSet.open kilde, forbindelse, adOpenDynamic, adLockOptimistic, adCmdTable

' Modtager input fra tekstboksene '

mednum = Request.Form("medarbejdernummer")
mednavn = Request.Form("medarbejdernavn")
medtlf = Request.Form("medarbejdertlf")
arbnr = Request.Form("Arbejdehalnr")
arbnavn = Request.Form("Arbejdehalnavn")
arbbanenr = Request.Form("Arbejdebanenr")


recordSet.addNew
recordSet("Medarbejdernr") = mednum
recordSet("Navn") = mednavn
recordSet("tlf") = medtlf
recordSet("Halnr") = arbnr
recordSet("Halnavn") = arbnavn
recordSet("Banenr") = arbbanenr

recordSet.update

forbindelse.close()
Avatar billede the_bma_man Nybegynder
26. februar 2003 - 12:31 #1
Du laver bare to recordsæt - et til hver tabel.
Og så skal du have
recordSet.addNew
[felter asignes her]
recordSet.update
for hvert recordset.
Avatar billede kagge Nybegynder
26. februar 2003 - 13:09 #2
Det vil sige man bare skal gøre sådan her, hvis man f.eks. har 4 tabeller

Dim recordSet
Dim recordSet1
Dim recordSet2
Dim recordSet3
set recordSet = Server.CreateObject("ADODB.RecordSet")
set recordSet1 = Server.CreateObject("ADODB.RecordSet")
set recordSet2 = Server.CreateObject("ADODB.RecordSet")
set recordSet3 = Server.CreateObject("ADODB.RecordSet")

og så åbne dem bagefter og indsætte data
Avatar billede the_bma_man Nybegynder
26. februar 2003 - 13:11 #3
Jeps
Avatar billede kagge Nybegynder
26. februar 2003 - 13:12 #4
ok, mange tak for hjælpen....
Avatar billede the_bma_man Nybegynder
26. februar 2003 - 13:12 #5
og lukke dem, når du har puttet data i.
Lad nu endelig være med at lave en db-connection til hver af dem, men lad dem alle køre på (i dit tilfælde, i tidligere indlæg) forbindelse.

Og så kun lukke den, når du er helt færdig.
Avatar billede the_bma_man Nybegynder
26. februar 2003 - 13:13 #6
Jamen, velbekomme.
Thanx 4 points
Avatar billede kagge Nybegynder
26. februar 2003 - 13:14 #7
jeps tak for forklaringen
Avatar billede the_bma_man Nybegynder
26. februar 2003 - 13:19 #8
Anytime
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester