21. marts 2003 - 15:00Der er
15 kommentarer og 1 løsning
Ny bruger formular m. password
er ved at oprette et Nyt bruger Form. men har nogle problemer med at få den til at sammenligne de to passwords som bliver tastet ind.
nypw1 = (er det som brugeren skriver på formen) nypww1 = (er det andet input fra brugeren)
her er koden som roder lidt meget for mig.
************************************************ Private Sub Command2_Click() Dim nypw1 Dim nypww1 Dim nypw As String nypw = "" Dim nypww As String nypww = "" Dim brugerurl As String brugerurl = "D:\Programmer\Microsoft Visual Studio\VB98\my projects\BOF2\Brugere\" Dim masterurl As String masterurl = "D:\Programmer\Microsoft Visual Studio\VB98\my projects\BOF2\Master\MASTER.mdb"
errorpw = "De to intastede passwords er ikke ens, prøv venligst igen"
nypw = nypw & nypw1 nypww = nypww & nypww1
If nypw = nypww Then nybruger.Recordset.AddNew nybruger.Recordset("BrugerNavn") = nybrugernavn nybruger.Recordset("BrugerPassword") = nypw nybruger.Recordset.Update nybruger.Recordset.MoveFirst
Nu ved jeg ikke helt hvad du bruger af kontroller på din form, men er det tekstfelter, så kunne din kode se sådan ud: nypw = txtPassword1.text nypww = txtPassword2.text
I stedet for nypw = nypw & nypw1 nypww = nypww & nypww1 Hvor du slår de 2 streng sammen.
***************************************************** Private Sub Command2_Click() Dim nypw1 Dim nypww1 Dim nypw As String nypw = "" Dim nypww As String nypww = "" Dim brugerurl As String ' HUSK ændre url brugerurl = "D:\Programmer\Microsoft Visual Studio\VB98\my projects\BOF2\Brugere\" Dim masterurl As String ' HUSK ændre url masterurl = "D:\Programmer\Microsoft Visual Studio\VB98\my projects\BOF2\Master\MASTER.mdb" '----------------------------------------Fejlkoder ------------------- errorpw = "De to intastede passwords er ikke ens, prøv venligst igen" '----------------------------------------omformuler PW´s til sammenligning nypw = nypw1.Text nypww = nypww1.Text '----------------------------------------Tilføj bruger + info til DB-- If nypw = nypww Then nybruger.Recordset.AddNew nybruger.Recordset("BrugerNavn") = nybrugernavn nybruger.Recordset("BrugerPassword") = nypww nybruger.Recordset.Update nybruger.Recordset.MoveFirst '----------------------------------------Fil kopiering & omdøbning---- nybrugernavn = nybrugernavn & ".mdb" brugerurl = brugerurl & nybrugernavn
FileCopy masterurl, brugerurl '--------------------------------------------------------------------- Form1.Show Unload Me Else '----------------Fejl MsgBox errorpw End If
Hvis du har et par tekstfelter på din form hedder de vel ikke nypw1 og nypww1, dem har du jo som 2 variabler i din sub. Du skal skrive navnet på tekstfeltet.text og slettet nypw1 og nypww1 dem har du ikke noget at bruge til.
Ja, men problemet er jo at du i starten definerer Dim nypw1 Dim nypww1 Det er dem jeg mener du skal slettet... Er ret sikker på at de er skyld i dine problemer.
Det er stadig der fejlen kommer?? For når nypw1 og nypww2 er tekstfelter og nypw og nypww er variabler af typen string, skulle det ikke give fejl.
Går ud fra du bruger Visual Studio 6, så vil den når du skriver nypw1. komme med hvilke funktioner du kan benytte, gør den det ved både nypw1 og nypww1?
Haar lidt en mistanke om navngiveningen, Da i proberties, har den SELV omdøbt nypw1 med et (0) og nypww1 med et (1) så tror jeg skulle prøve at slette tekstfelterne og insætte to nye, med andre navne, virker som om, der er flere af sammenavn. som jeg ikke kender til,.
eller ved fejl at tastet ind.. øjeblik prøver. lige at lave et par nye..
Du var kommet til at lave tekstfelter i et kontrol array. Man kan gruppere ens kontroller, så skal man kalde dem med tekstfelt(0).text tekstfelt(1).text osv.
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.