Vorrei sapere se questo codice che ho inserito è corretto e cioè
dovrebbe fare questo:io nel mio form ho: un MaskEditBox(codice fiscale)ed una textbox (nome)
1)inserisco codice fiscale quando perde il focus
mi va a fare un controllo nel database se c'è già automaticamente
mi mette nella txtnome il nome corrispondente a quel codice fiscale (ho tabella Anagrafica con 2 campi : nome e codicefiscale)
se non c'è mi attiva il pulsante invia che va a controllare se sono stati inseriti nome e codice fiscale e se sono
inseriti me li mette nel database
E' CORRETTO IMPOSTARE IL TUTTO COSI'
Private Function controllacodice(ByVal codf As String, ByRef dbConn As ADODB.Connection) As Boolean
Dim dbRec As New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM Anagrafica WHERE codicefiscale = '" & codf & "'"
DoEvents
Set dbRec = dbConn.Execute(strSQL)
controllacodice = Not dbRec.EOF
Set dbRec = Nothing
End Function
------------------------------------------------
Private Sub MaskCodF_LostFocus()
g_strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& App.Path & "\db1.mdb; Persist Security Info=False"
Dim dbConn As New ADODB.Connection
Dim strConnectionString As String
Dim strSQL As String
Dim iNome, iCod As String
iNome = txtNome
iCod = MaskCodf
dbConn.ConnectionString = g_strConnectionString
dbConn.Open
Dim bRes As Boolean
bRes = controllacodice(iCod, dbConn)
If bRes = True Then
txtNome.text= dbRec ("nome")
dbConn.Close
Set dbConn = Nothing
Else
cmdInvia.Enabled=True //attivo il pulsante di default l'ho impostato a false
dbConn.Close
Set dbConn = Nothing
End If
End Sub
-------------------------------------
Private Sub cmdInvia_Click()
Dim iNome, iCod As String
iNome = txtNome
iCod = MaskCodf
If txtNome = "" Or MaskCodf = "" Then
MsgBox "Inserisci i campi obblibatori * mancanti", vbInformation
Exit Sub
End If
dbConn.ConnectionString = g_strConnectionString
dbConn.Open
strSQL = "INSERT INTO Anagrafica (nome,codicefiscale) VALUES ' " & iNome & " ',' " & iCod & " ' "
dbConn.Close
Set dbConn = Nothing
End If
End Sub
------------------------------------------------------------