VB6 Aggiornamento Database con Datagrid e adLockBatchOptimistic

venerdì 17 luglio 2009 - 15.36

Dedio Profilo | Newbie

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.
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 !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5