salve a tutti..
il mio problema e il seguente:
devo inserire/modificare dei dati in un database tramite gli ADO..
come faccio??
io ho provato a fare cosi:
codice:
Dim adoCon4 As New ADODB.Connection
Public Function OpeDatabas4(sDatabase As String) As ADODB.Recordset
Dim i As Long
Dim sDBPath As String
Dim sADOConnect As String
sDBPath = Text1.Text
On Error GoTo Hell:
If adoCon4.ConnectionString = "" Then
' Open ADO Connection to Database
sADOConnect = "Driver={Microsoft Paradox Driver (*.db )};" & _
"DriverID=538;" & _
"Fil=Paradox 5.X;" & _
"DefaultDir=" & sDBPath & "\;" & _
"Dbq=" & sDBPath & "\;" & _
"CollatingSequence=ASCII"
adoCon4.Mode = adModeShareDenyNone
adoCon4.Open sADOConnect
End If
Set OpeDatabas4 = adoCon4.Execute("SELECT * FROM " & sDatabase)
Exit Function
Hell:
MsgBox "Errore Apertura Database Catalogs.db", vbCritical, NomPrg
End Function
Private Sub Command1_Click()
Dim rsRec As ADODB.Recordset
Set rsRec = OpeDatabas4("catalogs")
While Not (rsRec.EOF)
If Not (rsRec.Fields("man code") <> "") Then rsRec.Fields("man code") = rsRec.Fields("code")
'rsRec.Update
rsRec.MoveNext
Wend
rsRec.Close
adoCon4.Close
End
End Sub
solitamente avrei usato una cosa del tipo:
rsrec.edit
rsrec.field("..") = ".."
rsrec.update
ma edit non so xke ma non c'e piu!
come posso fare?
come vi ho fatto vedere sopra mi da un errore di questo tipo:
"errore di run-time 3251. il set di record corrente non supporta l'aggiornamento. Potrebbe trattarsi di una limitazione del provider o del tipo di blocco selezionato"