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 - ADODB.Recordset e  update non riuscito
Forum - Visual Basic 6 - ADODB.Recordset e update non riuscito

Avatar
symonx80 (Normal User)
Pro


Messaggi: 107
Iscritto: 30/07/2009

Segnala al moderatore
Postato alle 9:48
Mercoledì, 18/11/2009
Ciao, ho un problema con una recordset che non ne vuole sapere di aggiornarsi, vi posto il codice
Codice sorgente - presumibilmente Php

  1. 'variabili globali per la form
  2. ....
  3. Global strConnection As String
  4. Global dbConnection As New ADODB.Connection
  5. Global rsSolleciti As New ADODB.Recordset
  6. ....
  7. ...
  8. 'funzione che carica i dati da un db sql server 2005 su una tabella VSFlexGrid e li mostra a video
  9.  .....
  10. .........
  11.  
  12. strConnection= "Provider=SQLNCLI;Server=localhost;Database=EXPORT_DATA;Uid=userr;Pwd=psw;"
  13.  
  14.     dbConnection.ConnectionTimeout = 5
  15.     dbConnection.CursorLocation = adUseClient
  16.     dbConnection.Mode = adModeShareDenyNone
  17.    
  18.     dbConnection.Open strConnection
  19.  
  20.     rsSolleciti.Open "select CODCLI,DESTINATARIO,RESIDUO_TOT,num_fatture,doc from estrazione order by RESIDUO_TOT asc", dbConnection, adOpenStatic, adLockOptimistic, adCmdUnknown
  21.        
  22.         Set VSFlexGridSolleciti.DataSource = rsSolleciti
  23.        
  24.         VSFlexGridSolleciti.Visible = True
  25.        
  26.         VSFlexGridSolleciti.Editable = True
  27.  
  28.         VSFlexGridSolleciti.AllowSelection = False
  29.        
  30.         VSFlexGridSolleciti.AllowBigSelection = False
  31.  ....
  32. .......



Il caricamento sulla tabella avviene correttamente, l'ultimo campo è un boolean e viene visualizzato con il consueto checkbox.
L'utente ha la possibilità di modificare il valore del checkbox e poi eseguire un button che aggiorna i valori sul db, o almeno che dovrebbe aggiornare i valori sul db..

Codice sorgente - presumibilmente VB.NET

  1. Private Sub mnuUpdate_Click()
  2.    
  3.     rsSolleciti.Update
  4.    
  5.         Do While Not rsSolleciti.EOF
  6.         If (rsSolleciti(4) = True) Then
  7.             Debug.Print ("checkbox true per " & rsSolleciti(0))
  8.         End If
  9.         rsSolleciti.MoveNext
  10.     Loop
  11. End Sub



Questa funzione dovrebbe fare un semplice update e poi controllare quale checkbox ha valore true e stamparlo in debug. Ma il db non vuole sapere di aggiornare la tabella, dov'è il mio errore?
Grazie per chi mi darà una mano.. 8-|

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 15:38
Mercoledì, 18/11/2009
non ho molta esperienza in questo campo, però potresti provarlo ad aggiornarlo "manualmente" ossia con una query: "UPDATE db SET ..."

PM Quote