kostenloser Webspace werbefrei: lima-city

Login mit fehler

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   trucidare

   trucidare hat kostenlosen Webspace.

   11:08, 21.5.2005

   versuche gerade einen login zu erstellen und m?chte die daten aus der datenbank ?berpr?fen datenbank ist eine access datei
   .
   
   mein code
   
   Private Sub cmdok_click()
   StatusBar1.SimpleText = "Verbindung zur DB wird erstellt..."
   
   Set AdoCmd = New ADODB.Command
   Set conn = New ADODB.Connection
   Set rs = New ADODB.Recordset
   
   With conn
   .Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb"
   ConStr = "c:\db1.mdb"
   .Provider = "Microsoft.Jet.OLEDB.4.0"
   
   .Open (ConStr)
   
   If .State = adStateOpen Then
   StatusBar1.SimpleText = "Verbindung offen!"
   Else
   MsgBox "Fehler beim ?ffnen..."
   Exit Sub
   End If
   End With
   Dim counte As Integer
   
   rs.Open "select * from login", conn
   
   rs.Filter = "Nickname ='" & Text2.Text & "'"
   rs.Filter = "Passwort ='" & Text1.Text & "'"
   
   counte = rs.RecordCount
   
   If counte = 0 Then
   End
   Else
   MsgBox ("MUH")
   End If
   
   
   so und nu mein prob wenn ich auf conect klick sagt er m ir muh und ich bekomm das nich weg... kann mir einer helfen..
   
   danke im voraus.
   
   nt

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. dd2005

   dd2005 hat kostenlosen Webspace.

   19:30, 27.5.2005

   Du hast eine MsgBox eingef?gt!
   Sie ist vor dem End If und heist MsgBox ("Muh")
   
   Code:
   
   --------------------------------------------------------------------------------------
   
   Private Sub cmdok_click()
   StatusBar1.SimpleText = "Verbindung zur DB wird erstellt..."
   
   Set AdoCmd = New ADODB.Command
   Set conn = New ADODB.Connection
   Set rs = New ADODB.Recordset
   
   With conn
   .Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=c:\db1.mdb"
   ConStr = "c:\db1.mdb"
   .Provider = "Microsoft.Jet.OLEDB.4.0"
   
   .Open (ConStr)
   
   If .State = adStateOpen Then
   StatusBar1.SimpleText = "Verbindung offen!"
   Else
   MsgBox "Fehler beim ?ffnen..."
   Exit Sub
   End If
   End With
   Dim counte As Integer
   
   rs.Open "select * from login", conn
   
   rs.Filter = "Nickname ='" & Text2.Text & "'"
   rs.Filter = "Passwort ='" & Text1.Text & "'"
   
   counte = rs.RecordCount
   
   If counte = 0 Then
   End
   Else
   MsgBox ("MUH")
   End If
   
   --------------------------------------------------------------------------------------
   
   mfg Denis

4. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?