Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
App. Visual Studio 6.0
VB6 Aggiornamento Database con Datagrid e adLockBatchOptimistic
venerdì 17 luglio 2009 - 15.36
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
Dedio
Profilo
| Newbie
7
messaggi | Data Invio:
ven 17 lug 2009 - 15:36
Salve a tutti Sono nuovo qui e alle prime armi con il VB6.
Vengo subito al dunque il pratica dovrei aggiornare un DB (MySQL) con le infromazioni che scrivo in un Datagrid.
In pratica Mi creo il recordset, lo associo al datagrid e visualizzo i dati.
Ora se utilizzo la proprietà adLockOptimistic riesco a modificare il database ma a me servirebbe modificare il database dopo aver cliccato un Bottone.
Ed è proprio questo che nn riesco a fare ovvero non riesco ad associare al recordset il datagrid e lanciare il batchupdate vi posto il codice che nn va magari voi mi potete aiutare.
codice:
Private Sub cmdMancanti_Click()
Dim rst_Up As New ADODB.Recordset
Set rst_Up = New ADODB.Recordset
cnn.CursorLocation = adUseClient
Comando_corpo = "Select Disponibile, Codice_Prodotto, Descrizione , Quantita, Prezzo_Unitario, Importo from Righe_Ordine where ID_Ordine = " & ID & ";"
'Mostra Data Grid con il corpo Ordine
rst_Up.Open Comando_corpo, cnn, adOpenDynamic, adLockBatchOptimistic
rst_Up.DataSource = Me.dtg_ord
rst_Up.UpdateBatch
'Call Mancanti
End Sub
So che questo codice è pieno di errori...abbiate pietà di me
Giusto per completezza posto anche la parte di codice in cui popolo il datagrid
codice:
Public Sub DGPop(ID)
Dim rst_Corpo As ADODB.Recordset
Set rst_Corpo = New ADODB.Recordset
Dim rst_Corpo1 As ADODB.Recordset
Set rst_Corpo1 = New ADODB.Recordset
cnn.CursorLocation = adUseClient
Comando_corpo = "Select Disponibile, Codice_Prodotto, Descrizione , Quantita, Prezzo_Unitario, Importo from Righe_Ordine where ID_Ordine = " & ID & ";"
'Mostra Data Grid con il corpo Ordine
rst_Corpo.Open Comando_corpo, cnn, adOpenDynamic, adLockBatchOptimistic
Set Me.dtg_ord.DataSource = rst_Corpo
Me.dtg_ord.Refresh
Me.dtg_ord.HoldFields
rst_Corpo.ActiveConnection = Nothing
Grazie a tutti.
Torna su
Stanze Forum
Elenco Threads
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?
Dopo esserti registrato potrai chiedere
aiuto sul nostro
Forum
oppure aiutare gli altri
Consulta le
Stanze
disponibili.
Registrati ora !