Non funziona anche se il cognome è presente mi va in
MsgBox "Dati non trovati", vbInformation
Come mai
Private Sub txtCognome_LostFocus()
If txtCognome.Text <> "" Then
txtNome.Enabled = True
End If
Dim dbConn As New ADODB.Connection
Dim dbRecCognome As New ADODB.Recordset
Dim strSQLCognome As String
Dim iCognome As String
iCognome = txtCognome
g_strConnectionString = "maia"
dbConn.ConnectionString = g_strConnectionString
dbConn.Open
dbRecCognome.Open "Staff", dbConn, adOpenForwardOnly, adLockOptimistic, -1
Dim bRes As Boolean
bRes = controllanome(iCognome, dbConn)
If bRes = True Then
strSQLCognome = "SELECT * FROM Staff WHERE Cognome = '" & iCognome & "'"
DoEvents
Set dbRecCognome = dbConn.Execute(strSQLCognome)
Do While dbRecCognome.EOF = False
ListCognome.AddItem dbRecCognome!Cognome & vbTab & dbRecCognome!Nome & vbTab & dbRecCognome!Ruolo
dbRecCognome.MoveNext
Loop
Else
MsgBox "Dati non trovati", vbInformation
dbRecCognome.Close
Set dbRecCognome = Nothing
dbConn.Close
Set dbConn = Nothing
End If
txtCognome.Text = UCase(txtCognome.Text)
txtCognome.Text = Replace(txtCognome.Text, " ", " ", 1, -1)
End Sub