21. marts 2003 - 15:27Der er
19 kommentarer og 1 løsning
Bruger accepteret ind i form vha database
Har nu logget en bruger ind, og en nu form loader.(kode nedenfor)
Men den vil ikke lade mig ændre database navnet, som er meget relevandt da databasen's navn er det samme som brugerens når brugeren bliver oprettet.
hvordan får jeg den til at acceptere de 2-4 sidste linier i form_load?
********************** kode
Private Sub Form_Load() Dim dburl1 As String dburl = "D:\Programmer\Microsoft Visual Studio\VB98\my projects\BOF2\Brugere\" Dim Bruger As String '-----------------------------find login af bruger--- Open "C:/BOF2currentuser.txt" For Input As #1 Line Input #1, Bruger nuvbruger.Text = Bruger Close #1 '-----------------------------ændre url på bruger---- Bruger = Bruger & ".mdb" dburl1 = dburl1 & Bruger '-----------------------------find data på bruger---- nubrugerdata.DatabaseName (dburl1) nubrugerdata.RecordSource (Lager)
nope.. men det skulle da heller ikke være nødvendigt, da nubrugerdata.recordsource egentlig bare er den tabel i dabasen som den henter/bringer data til/fra og den er ens ved alle brugere, så den kunne jeg jo egentlig bare lave om til
nubrugerdata.RecordSource.Lager så er det faktisk kun den ene det er galt med, det er
sådan ser koden ud indtil vidre... inclusiv fejl og det hele.. *gg*
****************************************** Private Sub Form_Load() Dim dburl As String dburl = "D:\Programmer\Microsoft Visual Studio\VB98\my projects\BOF2\Brugere\" Dim Bruger As String '-----------------------------find login af bruger--- Open "C:\BOF2currentuser.txt" For Input As #1 Line Input #1, Bruger Close #1 '-----------------------------Vis hvem der er bruger- nuvbruger.Text = Bruger '-----------------------------ændre url på bruger---- Bruger = Bruger & ".mdb" dburl = dburl & Bruger '-----------------------------find data på bruger---- nubrugerdata.DatabaseName "D:\Programmer\Microsoft Visual Studio\VB98\my projects\Bilka og Føtex Rabat 2\Brugere\Eqvaliser.mdb" nubrugerdata.RecordSource.Lager End Sub ****************************************
'-----------------------------find data på bruger---- nubrugerdata.DatabaseName "D:\Programmer\Microsoft Visual Studio\VB98\my projects\Bilka og Føtex Rabat 2\Brugere\Eqvaliser.mdb"
TIL :
'------------------------find data på bruger---- nubrugerdata.databasename (dburl)
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.
