Aggiornamento dati datagrid

sabato 03 maggio 2008 - 16.07

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

xxxgiacomoxxx Profilo | Newbie

14 messaggi | Data Invio: sab 3 mag 2008 - 16:07

Salve ho già postato il problema un pò di tempo fa; la risposta che mi è stata data non è stata chiara e poi non ho più avuto risposta. Il mio problema è di aggiornare un datagrid dopo aver fatto un inserimento da un form secondario nel database in mysql.

Praticamente cliccando su di un pulsante inserisci apro un form di inserimento, in questo form faccio un inserimento al database tramite un store procedure e poi chiudo questo form. Il problema è che il datagrid nel form principale non viene aggiornato. L'altra volta mi è stato detto di richiamare lupdate del dataadapter, però non ho ben capito come.

Questo è il codice:
*** BLMovimento.vb ***
Imports MySql.Data
Imports MySql.Data.MySqlClient

Public Class BLMovimento
Dim strConn As String = "server=localhost;user id=giacomo;Password=l3g0l4s83m;persist security info=True;database=gestioneeconomica"
Dim cn As New MySqlConnection(strConn)
Dim ds As New DataSet()
Dim da As New MySqlDataAdapter

Public Function GetMovimenti(ByVal mese As Int16) As Data.DataSet
Return _GetMovimenti(mese)
End Function

Public Function InserisciMovimento(ByVal mese As Int16, ByVal dataValuta As Date, _
ByVal descr As String, ByVal dare As Double, _
ByVal avere As Double, ByVal saldo As Double) As Data.DataSet
Return _InserisciMovimento(mese, dataValuta, descr, dare, avere, saldo)
End Function

Private Function _GetMovimenti(ByVal mese As Int16) As Data.DataSet
da.SelectCommand = New MySqlCommand("SELECT * FROM VW_MOV_GEN", cn)
cn.Open()
da.Fill(ds, "movimentigennaio")
cn.Close()
Return ds
End Function

Public Function _InserisciMovimento(ByVal mese As Int16, ByVal dataValuta As Date, _
ByVal descr As String, ByVal dare As Double, _
ByVal avere As Double, ByVal saldo As Double) As Data.DataSet
cn.Open()
Dim exComm As New MySqlCommand()
exComm.Connection = cn
exComm.CommandText = "CALL SP_I_MOV_MESE(?pMese, ?pData, ?pDescr, ?pDare, ?pAvere, ?pSaldo);"
exComm.Parameters.AddWithValue("?pMese", mese).DbType = DbType.Int16
exComm.Parameters.AddWithValue("?pData", dataValuta).DbType = DbType.Date
exComm.Parameters.AddWithValue("?pDescr", descr).DbType = DbType.String
exComm.Parameters.AddWithValue("?pDare", dare).DbType = DbType.Double
exComm.Parameters.AddWithValue("?pAvere", avere).DbType = DbType.Double
exComm.Parameters.AddWithValue("?pSaldo", saldo).DbType = DbType.Double
exComm.ExecuteNonQuery()
cn.Close()
Return ds
End Function
End Class

*** Form1.vb ***
Public Class Form1
Dim ds As New DataSet()
Dim Movimento As New BLMovimento
Dim da As New MySql.Data.MySqlClient.MySqlDataAdapter

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ds = Movimento.GetMovimenti(1)
grdGennaio.AutoGenerateColumns = True
grdGennaio.DataSource = ds
grdGennaio.DataMember = "movimentigennaio"
End Sub

Private Sub btnInserisci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInserisci.Click
Inserisci.Show()
End Sub

Private Sub btnUpdate_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
End Sub
End Class

*** Inserisci.vb ***
Public Class Inserisci
Dim ds As New DataSet()
Dim Movimento As New BLMovimento

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
ds = Movimento.InserisciMovimento(1, CDate(txtData.Text), txtDescrizione.Text, _
CDbl(txtDare.Text), CDbl(txtAvere.Text), 0.0)
Me.Close()
End Sub
End Class

Grazie anticipatamente

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 !