Problema di update - MYSQL

mercoledì 02 agosto 2006 - 21.47

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

junglenet Profilo | Newbie

6 messaggi | Data Invio: mer 2 ago 2006 - 21:47

Salve a tutti, questo è il mio primo Thread.
Ho un problema e spero che qualcuno possa aiutarmi.

ho creato la seguenti due classi:

Public Class clsClienteSystem
Public dsCliente As clsClienteDataSet

Public Sub GetCliente(ByVal idcliente As Integer)
Dim ClienteDA As clsClienteDA = New clsClienteDA()
dsCliente = ClienteDA.Load(idcliente)
ClienteDA = Nothing
End Sub

Public Function Update() As Object
Dim ClienteDA As clsClienteDA = New clsClienteDA()
Update = ClienteDA.Update(dsCliente)
ClienteDA = Nothing
End Function
End Class

Public Class clsClienteDA
Inherits clsDABase
Dim da As MySqlDataAdapter

Public Function Load(ByVal idcliente As Integer) As clsClienteDataSet
Dim conn As MySqlConnection = New MySqlConnection(clsCommon.GetConnectionString)
Dim dsdati As clsClienteDataSet = New clsClienteDataSet
da = New MySqlDataAdapter("SELECT * from clienti WHERE IDCliente=" & idcliente & ";", conn)
conn.Open()
da.Fill(dsdati, "Cliente")
conn.Close()
Return dsdati
End Function

Public Overrides Function Update(ByVal dsToUpdate As DataSet) As Boolean
da = New MySqlDataAdapter
Dim cn As MySqlConnection = New MySqlConnection(clsCommon.GetConnectionString)
cn.Open()
Try
With da
.Update(dsToUpdate, "Clienti")
End With
Update = True

Catch ex As Exception
Update = False

Finally
cn.Close()
cn.Dispose()
End Try
End Function

End Class

In una form ho creato le mie textbox e le riempio così: (questo funziona perfettamente)

Private Sub Caricadati()
clientesystem = New clsClienteSystem
Dim dg_ID As String
dg_ID = frm_ricercaclienti.dg_clienti.Item(0, frm_ricercaclienti.dg_clienti.CurrentCellAddress.Y).Value
clientesystem.GetCliente(dg_ID)

' assegno ad ogni textbox il value contenuto nel campo di riferimento
txt_ID.Text = clientesystem.dsCliente.Tables("Cliente").Rows(0).Item("IDcliente").ToString
txt_nome1.Text = clientesystem.dsCliente.Tables("Cliente").Rows(0).Item("nomesocieta").ToString
........
End Sub

Se modifico qualche valore faccio un salvataggio: (e qui comincio ad avere dei dubbi)

clientesystem.dsCliente.Tables("Cliente").Rows(0).Item("nomesocieta") = txt_nome1.Text
clientesystem.dsCliente.Tables("Cliente").Rows(0).Item("indirizzo") = txt_indirizzo.Text
......
clientesystem.Update()

ma non funziona.

Grazie anticipatamente per i vostri aiuti

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 !