Ciao,
puoi aiutarmi?
Sto programmando in VB NET, con db Sql Server.
Riesco a connettermi al db, riesco ad inserire tabelle in un dataset, ma se modifico i campi di una tabella, non riesco a fare l'update da dataset a locale.
in un form apro la connessione e riempio il data set, su un'altro form modifico i campi di una tabella presente nel dataset e alla chiusura del programma cerco di fare l'update. Non mi da errori in esecuzione e non vengono intercettate eccezioni.
StrCn = f_ScegliConnessione("GestionePremiRisultato", tipoLogin, Server, User, Password)
Try
Dim cn1 As System.Data.SqlClient.SqlConnection
cn1 = New System.Data.SqlClient.SqlConnection(StrCn)
cn1.Open()
frmLogin.Hide()
'Carica le tabelle in locale
da = New SqlDataAdapter
ds = New DataSet
Dim custCB As SqlCommandBuilder = New SqlCommandBuilder(da)
'PARAMETRI--------------------------------------------------------
Dim cmd1 As SqlCommand = New SqlCommand("SELECT annocalcolo " & _
"FROM Parametri", cn1)
da.SelectCommand = cmd1
da.Fill(ds, "Parametri")
cmd1 = Nothing
'NOMIPREMI -------------------------------------------------
Dim cmd2 As SqlCommand = New SqlCommand("SELECT * from nomipremi", cn1)
da.SelectCommand = cmd2
da.Fill(ds, "nomipremi")
cmd2 = Nothing
cn1.Close()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim drriga As DataRow
drriga = ds.Tables("parametri").Rows(0)
drriga.BeginEdit()
drriga("annocalcolo") = txtAnno.Text.Trim
drriga.EndEdit()
ds.AcceptChanges()
Me.Close()
End Sub
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Try
Dim StrCn As String
StrCn = f_ScegliConnessione("GestionePremiRisultato", tipoLogin, Server, User, Password)
Dim cn1 As SqlConnection
cn1 = New SqlConnection(StrCn)
cn1.Open()
da.Update(ds, "parametri")
cn1.Close()
Catch er As System.Exception
MsgBox(er.Message)
End Try
Secondo te perchè non funziona????
Rispondi quotando
