Vorrei memorizzare l'ID della tabella a cui appartiene il
codice fiscale che viene digitato nella MaskEditBox
come posso fare! poi vi farò vedere il codice che posto io mi dice che è sbagliato
Vorrei memorizzare l'ID della tabella a cui appartiene il
codice fiscale che viene digitato nella MaskEditBox
come posso fare! poi vi farò vedere il codice che posto io mi dice che è sbagliato
Dim dbRec As New ADODB.Recordset
Dim dbConn As New Connection
g_strConnectionString = "maia"
dbConn.ConnectionString = g_strConnectionString
dbConn.Open
dbRec.Open "Pazienti", dbConn, adOpenForwardOnly, adLockOptimistic, -1
While Not dbRec.EOF
Dim codice As String
codice= dbRec!CodFiscale
Dim collPaziente As New Collection
collPaziente.Add Int(dbRec("ID_Paziente")), codice
dbRec.MoveNext
Wend
iPaziente = collPaziente(MaskCodice.Text)
dbRec.Close
Set dbRec = Nothing
dbConn.Close
Set dbConn = Nothing
End Sub
---------------------------> mi dà errore qui mi dice chiamata di routine o argomento non valido
Private Sub cmdTrova_Click()
Dim dbRec As New ADODB.Recordset
Dim dbConn As New Connection
g_strConnectionString = "maia"
dbConn.ConnectionString = g_strConnectionString
dbConn.Open
dbRec.Open "Pazienti", dbConn, adOpenForwardOnly, adLockOptimistic, -1
MaskCodice.Text = codice
While Not dbRec.EOF
codice = dbRec!CodFiscale
Dim collPaziente As New Collection
collPaziente.Add Int(dbRec("ID_Pazienti")), codice
dbRec.MoveNext
Wend
iPaziente = collPaziente(MaskCodice.Text)--------->
dbRec.Close
Set dbRec = Nothing
dbConn.Close
Set dbConn = Nothing
Dim dbRec1 As New ADODB.Recordset
Dim dbConn1 As New Connection
Dim strSQl As String
g_strConnectionString = "maia"
dbConn1.ConnectionString = g_strConnectionString
dbConn1.Open
dbRec1.Open "Operazione", dbConn, adOpenForwardOnly, adLockOptimistic, -1
strSQl = "SELECT ID_Cartella from Operazione where Operazione.ID_Paziente= '& iPaziente & " '"
dbConn1.Execute (strSQl)
ListCartelle.Clear
While Not dbRec1.EOF
ListCartelle.AddItem dbRec1!ID_Cartella
dbRec1.MoveNext
Wend
dbRec1.Close
Set dbRec1 = Nothing
dbConn1.Close
Set dbConn1 = Nothing
End Sub