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:
solitamente avrei usato una cosa del tipo: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
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"