Soluzione salvatagigo dati CurrencyManager

venerdì 17 settembre 2010 - 16.11

PierLuigi69 Profilo | Newbie

Fino ad ora utilizavo delle mie classi per gestire il database in sql:
Utilizzando:SqlCommand; ExecuteReader;ExecuteNonQuery ecc... nessun problema.
Ora vorrei provare ad utilizzare il CurrencyManager.
Per caricare i dati dal database nessun problema, Codice:
Public Sub Load(ByVal Query As String, ByVal Frm As Form)
Dim CN As New SqlConnection
CN.ConnectionString = DBSTConnectionString " stringa di connessione "

Dim SQL As String = Nothing
SQL = "SELECT * FROM " & Query

CN.Open()
Dim DA As SqlDataAdapter
DA = New SqlDataAdapter(SQL, CN)

Dim DS As New DataSet
DA.Fill(DS, Query)

Dim DT As DataTable
DT = DS.Tables(Query)

myCurrencyManager = CType(Frm.BindingContext(DT), CurrencyManager)

'Ciclo nel form pr trovare i nomi dei txt corrispondenti ai field del database, per associarli al binding in automatico
Dim N As Integer = 0
For N = 0 To DT.Columns.Count - 1
Dim Ctrl As Control = Nothing
For Each Ctrl In Frm.Controls
If TypeOf Ctrl Is TextBox Then
TXT = Ctrl
If TXT.Name = DT.Columns.Item(N).ColumnName Then
TXT.DataBindings.Add("Text", DT, DT.Columns.Item(N).ColumnName)
End If
End If

If TypeOf Ctrl Is Label Then
LAB = Ctrl
If LAB.Name = DT.Columns.Item(N).ColumnName Then
LAB.DataBindings.Add("Text", DT, DT.Columns.Item(N).ColumnName)
End If
End If

If TypeOf Ctrl Is ComboBox Then
CMB = Ctrl
If CMB.Name = DT.Columns.Item(N).ColumnName Then
CMB.DataBindings.Add("Text", DT, DT.Columns.Item(N).ColumnName)
End If
End If
Next
Next

For Each Ctrl In Frm.Controls
If TypeOf Ctrl Is DataGridView Then
DGV = Ctrl
DGV.DataSource = DT
End If
Next

myCurrencyManager.Position = myCurrencyManager.Count - 1
CN.Close()

End Sub

Il codice sopra scritto funziona e tutto OK per il caricamento dei dati dal database.

Ora vorrei fare l'incontrario, Salvare i dati COME SI FA?

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