Gogeta ss4
09-01-2007, 14:22
Ciao a tutti, ho un problema quando da vb6 mi collego al db access.
Ecco il codice:
Option Explicit
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Private Sub cmd_accedi_GotFocus()
Dim username, password As String
If txt_username.Text <> "" And txt_password <> "" Then
username = txt_username.Text
password = txt_password.Text
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database\conto_corrente.mdb;Persist Security Info=False"
rs.Open "SELECT * FROM utenti WHERE username = '" & username & "' AND password = '" & password & "'"
Rem ado_conto.RecordSource = "SELECT * FROM utenti WHERE username = '" & UserName & "' AND password = '" & Password & "'"
Rem ado_conto.Refresh
If rs.RecordCount > 0 Then
MsgBox "Accesso effettuato con successo", vbOKOnly + vbExclamation, "Successo"
frm_accesso.Hide
frm_panoramica.Show
Else
MsgBox "Username o password errati!", vbOKOnly + vbExclamation, "Errore"
End If
End If
End Sub
L'errore me lo da sulla rs.open e mi dice: "Connessione chiusa o non valida in questo contesto, impossibile utilizzarla per eseguire l'operazione"
Dove sbaglio? :mbe:
Ecco il codice:
Option Explicit
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Private Sub cmd_accedi_GotFocus()
Dim username, password As String
If txt_username.Text <> "" And txt_password <> "" Then
username = txt_username.Text
password = txt_password.Text
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database\conto_corrente.mdb;Persist Security Info=False"
rs.Open "SELECT * FROM utenti WHERE username = '" & username & "' AND password = '" & password & "'"
Rem ado_conto.RecordSource = "SELECT * FROM utenti WHERE username = '" & UserName & "' AND password = '" & Password & "'"
Rem ado_conto.Refresh
If rs.RecordCount > 0 Then
MsgBox "Accesso effettuato con successo", vbOKOnly + vbExclamation, "Successo"
frm_accesso.Hide
frm_panoramica.Show
Else
MsgBox "Username o password errati!", vbOKOnly + vbExclamation, "Errore"
End If
End If
End Sub
L'errore me lo da sulla rs.open e mi dice: "Connessione chiusa o non valida in questo contesto, impossibile utilizzarla per eseguire l'operazione"
Dove sbaglio? :mbe: