Avatar billede eqvaliser Nybegynder
21. marts 2003 - 15:00 Der 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

    nybrugernavn = nybrugernavn & ".mdb"
    brugerurl = brugerurl & nybrugernavn

    FileCopy masterurl, brugerurl
   
  Form1.Show
  Unload Me
Else
  MsgBox errorpw
End If

End Sub
***********************************************
Avatar billede mortrr Praktikant
21. marts 2003 - 15:23 #1
Burde du ikke hente værdierne fra formularen ind i nypw og nypww?
Avatar billede eqvaliser Nybegynder
21. marts 2003 - 15:30 #2
det gør jeg jo egentlig ved

nypw = nypw & nypw1
nypww = nypww & nypww1

gør jeg ikke ?
Avatar billede helmet Nybegynder
21. marts 2003 - 17:42 #3
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.

Ellers burde resten af koden virke.
Avatar billede eqvaliser Nybegynder
22. marts 2003 - 08:10 #4
ja det er tekstfelter.

hmm prøver lig dette..  ;-)
Avatar billede eqvaliser Nybegynder
22. marts 2003 - 08:14 #5
nope

run-time error 424 : Object Required.

Debug fejl ved. :    nypw = nypw1.text
                    nypww = nypww1.text
Avatar billede eqvaliser Nybegynder
22. marts 2003 - 08:28 #6
nu ser koden såles ud..

*****************************************************
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

End Sub
Avatar billede helmet Nybegynder
22. marts 2003 - 12:50 #7
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.
Avatar billede eqvaliser Nybegynder
22. marts 2003 - 20:05 #8
de hedder rent faktisk nypw1 og nypww1. har jo selv døbt dem.
i name. eller som du selv siger  nypw1.text og nypww1.text
Avatar billede helmet Nybegynder
22. marts 2003 - 20:45 #9
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.
Avatar billede eqvaliser Nybegynder
23. marts 2003 - 13:38 #10
ahhh okay det vil jeg da lige prøve.  ;-)
Avatar billede eqvaliser Nybegynder
23. marts 2003 - 13:40 #11
okay nu flyttede fejlen sig. til

'----------------------------------------omformuler PW´s til sammenligning
nypw = nypw1.Text
nypww = nypww1.Text

hvor fejlen hedder :

Compile Error :
Method or data member not found.
Avatar billede helmet Nybegynder
23. marts 2003 - 13:57 #12
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?
Avatar billede eqvaliser Nybegynder
23. marts 2003 - 14:01 #13
ja begge.. og ja vb6.

har også lige prøvet uden .text..

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..
Avatar billede eqvaliser Nybegynder
23. marts 2003 - 14:03 #14
JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!

Det var det, der skulle til..  LMAO.. damn
kunne heller ikke forstå det, det har da altid virket før.. hehe

anyway du for points helmet.. 

takker mange gange,.
Avatar billede helmet Nybegynder
23. marts 2003 - 14:06 #15
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.
Avatar billede eqvaliser Nybegynder
23. marts 2003 - 14:24 #16
nu har du hvis temmelig styr på vb6
er det så muligt at ændre data1.recorset.databasename
altså databasen alt efter hvilken bruger der logger  på ?

jeg referere til : http://www.eksperten.dk/spm/331689
som forhindre mig i at komme vidre.
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