Salve a tutti
sono nuovo del forum e vi scrivo per chiedervi aiuto su un codice di visual basic 6 che dovrebbe farmi modificare un record di un database access 2000.
Questo è l'errore che mi da:
Errore di run-time91
Variabile oggetto o variabile del blocco with non impostata.
questo è il codice:
--------------------------------------------------------------------------------------
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim stringa As String
Dim stringa2 As String
Dim Cn2 As ADODB.Connection
Dim rs2 As ADODB.Recordset
Dim sw As Integer
Dim codiceM As String
Dim annoM As Integer
Dim importoM As Integer
Dim conta As Integer
Dim conta2 As Integer
Private Sub Command1_Click()
Cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Documents and Settings\BarbaraG\Desktop\Progetto Stage\Programma\Movimentazioni.mdb"
Rs.Open "Select * from Movimenti", Cn, adOpenForwardOnly, adLockOptimistic, adCmdTableDirect
Cn.CursorLocation = adUseClient
Cn2.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Documents and Settings\BarbaraG\Desktop\Progetto Stage\Programma\LibroCespiti.mdb"
rs2.Open "Select * from LibroCespiti", Cn, adOpenForwardOnly, adLockOptimistic, adCmdTableDirect
Cn2.CursorLocation = adUseClient
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Set Cn2 = New ADODB.Connection
Set rs2 = New ADODB.Recordset
'contare tutti i record presenti
While Not rs2.EOF
conta = conta + 1
rs2.MoveNext
Wend
rs2.MoveFirst
If Rs("Inserimento") = "" Then
Rs("Inserimento") = Text1.Text
Rs.Update
codiceM = Rs("Codice_Cespite")
annoM = Rs("Anno")
importoM = Rs("Importo")
Rs.MoveNext
conta2 = conta2 + 1
Else
Rs.MoveNext
conta2 = conta2 + 1
End If
-------------------------------------------------------------------------------------
ecco l'immagine dell'errore
ecco l'immagine di dove sorge l'errore
spero di essere stato il più chiaro possibile
grazie per l'aiuto.
Rispondi quotando
VVoVe: 
