G
Guest
Hey, I have never used a datagrid/dataset/adaptor/table method for updating
data, I have always used direct updates to the database so ADO is quite new
to me.
I have a datagrid and I change a value in one of the fields.
I hit save and the following code runs...
Dim da As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("Select *
from MISRE_Threshold", cn)
da.Update(dsThreshold, "MISRE_Threshold")
my code to populate the datagrid is as below, what am i missing to actually
update the data in the database......
Private Sub Thresholds_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
UserName.Text = dbProps.MyUserName
Password.Text = dbProps.MyPassword
Database.Text = dbProps.MyDatabase
Server.Text = dbProps.MyServer
Try
cn = New SqlClient.SqlConnection("user id=" & UserName.Text &
";password=" & Password.Text & ";database=" & Database.Text & ";server=" &
Server.Text)
cn.Open()
cmdSelect.Connection = cn
Dim da As SqlClient.SqlDataAdapter = New
SqlClient.SqlDataAdapter("Select * from MISRE_Threshold", cn)
'Dim dsThreshold As DataSet = New DataSet
' fill dataset
da.Fill(dsThreshold, "MISRE_Threshold")
'Attach DataSet to DataGrid
dgThreshold.DataSource = dsThreshold.DefaultViewManager
Dim dt As New DataTable
dt.CaseSensitive = False
dt = dsThreshold.Tables("MISRE_Threshold")
Catch ex As Exception
MessageBox.Show("Error: Could not establish database connection")
End Try
End Sub
data, I have always used direct updates to the database so ADO is quite new
to me.
I have a datagrid and I change a value in one of the fields.
I hit save and the following code runs...
Dim da As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("Select *
from MISRE_Threshold", cn)
da.Update(dsThreshold, "MISRE_Threshold")
my code to populate the datagrid is as below, what am i missing to actually
update the data in the database......
Private Sub Thresholds_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
UserName.Text = dbProps.MyUserName
Password.Text = dbProps.MyPassword
Database.Text = dbProps.MyDatabase
Server.Text = dbProps.MyServer
Try
cn = New SqlClient.SqlConnection("user id=" & UserName.Text &
";password=" & Password.Text & ";database=" & Database.Text & ";server=" &
Server.Text)
cn.Open()
cmdSelect.Connection = cn
Dim da As SqlClient.SqlDataAdapter = New
SqlClient.SqlDataAdapter("Select * from MISRE_Threshold", cn)
'Dim dsThreshold As DataSet = New DataSet
' fill dataset
da.Fill(dsThreshold, "MISRE_Threshold")
'Attach DataSet to DataGrid
dgThreshold.DataSource = dsThreshold.DefaultViewManager
Dim dt As New DataTable
dt.CaseSensitive = False
dt = dsThreshold.Tables("MISRE_Threshold")
Catch ex As Exception
MessageBox.Show("Error: Could not establish database connection")
End Try
End Sub