Visualizzazione dei risultati da 1 a 6 su 6
  1. #1
    Utente di HTML.it
    Registrato dal
    Aug 2004
    Messaggi
    343

    (vb6)Problema con cancellazione recordset

    Ciao a tutti.
    Ho un problema.
    Ho fatto un semplice programmino che inserisce dati in un database *.mbd (uso ADO) e fin qui non ho problemi. Quando però cerco di cancellare alcuni record (che ho inserito precedentemente) con l'istruzione:

    Rs.Delete
    Rs.MoveNext

    Mi dà errore: "Informazioni sulla colonna chiave insufficienti o errate. Troppe righe interessate dall'aggiornamento"
    Perché? Cosa vuol dire?
    Grazie mille in anticipo per le risposte!
    Ste

  2. #2
    prova cosi:


    With rs.recordset
    .delete
    .Movenext
    End With


  3. #3
    Utente di HTML.it L'avatar di Petra
    Registrato dal
    Apr 2005
    Messaggi
    224
    e cosa cambia ? ? ?

  4. #4
    Utilizza Execute, come parametro vuole la stringa sql "delete ....."

    Ciao

  5. #5
    Utente di HTML.it L'avatar di Petra
    Registrato dal
    Apr 2005
    Messaggi
    224
    E per usare il metodo execute che tipo di connessione devo fare ? ? ? Riusciresti a postarmi il codice della connessione ? ? ? C'è un topic che ho aperto "Connessione Database", se potresti postarlo lì!!! Grassie!!!

  6. #6
    Utente di HTML.it
    Registrato dal
    Aug 2004
    Messaggi
    343
    Grazie per la risposta. Purtroppo mi dà ancora errore. Posto il codice

    Nel form:

    Sub connetti()
    With Cn
    .ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
    "Data source = C:\Documenti\db4.mdb"
    .ConnectionTimeout = 5 'numero dei secondi di timeout
    .CursorLocation = adUseClient
    .Mode = adModeShareDenyNone
    .Open
    End With
    With RS
    .ActiveConnection = Cn
    .LockType = adLockOptimistic End With
    End Sub


    Private Sub Command1_Click()
    RS.AddNew
    RS("mese e anno") = Text1.Text
    RS("entrate") = Text2.Text
    RS.Update
    End Sub

    Private Sub Command2_Click()

    With RS.Recordset
    .Delete
    .MoveNext
    End With

    End Sub

    Private Sub Form_Load()
    Call connetti
    RS.Open "SELECT * FROM tab"
    Set DataGrid1.DataSource = RS 'riempie la griglia coi dati del recorset
    End Sub

    Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    RS.Close
    Cn.Close
    End Sub

    Nel modulo:
    Public Cn As New adodb.Connection
    Public RS As New adodb.Recordset

    Aiutatemi per favore!
    Grazie
    Stefano

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.