Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - VB6    Modificare record
Forum - Visual Basic 6 - VB6 Modificare record

Avatar
Paolo92 (Normal User)
Newbie


Messaggi: 2
Iscritto: 24/06/2009

Segnala al moderatore
Postato alle 10:09
Mercoledė, 24/06/2009
Salve a tutti,
questa č la prima volta che scrivo qui.
Vi chiedo come si fa a modificare un record di un database access 2000 da visual basic 6.
Io ho attivo il controllo DAO e questo č il mio 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 codice As String
Dim anno As Integer
Dim importo As Integer

Private Sub Command1_Click()
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & "C:\Documents and Settings\BarbaraG\Desktop\Progetto Stage\Programma\Movimentazioni.mdb"
stringa2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa2 = stringa2 & "C:\Documents and Settings\BarbaraG\Desktop\Progetto Stage\Programma\LibroCespiti.mdb"

Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Set Cn2 = New ADODB.Connection
Set rs2 = New ADODB.Recordset

Cn.Open stringa
Rs.Open "Movimenti", Cn
Cn2.Open stringa2
rs2.Open "LibroCespiti", Cn2

If Rs("Inserimento") = "" Then
      Rs.Edit
          Rs("Inserimento") = "Inserito"
      Rs.Update
      codice = Rs("Codice_Cespite")
      anno = Rs("Anno")
      importo = Rs("Importo")
      Rs.MoveNext
Else
      Rs.MoveNext
End If

--------------------------------------------------------------------------------------
Ecco io riesco al posto di Rs.Edit con Rs.Addnew a inserire un nuovo record e anche a leggerlo, ma non a modificarlo e non trovo come fare.

Grazie mille per l'aiuto a tutti  :)

Ultima modifica effettuata da Paolo92 il 24/06/2009 alle 10:10
PM Quote
Avatar
Paolo92 (Normal User)
Newbie


Messaggi: 2
Iscritto: 24/06/2009

Segnala al moderatore
Postato alle 15:31
Mercoledė, 24/06/2009
ciao ancora ho provato a mettere solo cosė
codice:
-----------------------------------------------------------------------------------
.
.
.
.
.
Rs("Inserimento") = Text1.Text
.
.

------------------------------------------------------------------------------------
ma mi da quest'errore:
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.



Qualche consiglio...Grazie mille...

Ultima modifica effettuata da Paolo92 il 24/06/2009 alle 15:34
PM Quote
Avatar
theprogrammer (Normal User)
Guru^2


Messaggi: 2509
Iscritto: 28/01/2009

Segnala al moderatore
Postato alle 23:48
Lunedė, 29/06/2009
Intanto stai usando ADO e non DAO.

E poi, il problema sta nel come hai aperto il recordset ... dai un'occhiata alla sintassi del metodo Open del recordset e al significato dei suoi parametri (specialmente di quelli che mancano)

PM Quote