khz-web1
پنج شنبه 01 مرداد 1388, 16:38 عصر
سلام
من از کد زیر جهت آپدیت سرهای datagridview استفاده می کنم ...
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Computer.FileSystem.CurrentDirectory & "\person.mdb")
cmd.Connection = con
da.SelectCommand = cmd
Dim custCB As OleDbCommandBuilder = New OleDbCommandBuilder(da)
con.Open()
da.SelectCommand.CommandText = "select * from register"
da.Fill(ds1, "register")
DataGridView1.DataSource = ds1.Tables("register")
con.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
da.Update(ds1, "register")
End Sub
ولی متاسفانه بعضی وقت ها کار می کنه و عمل ادیت رو انجام میده و بعضی وقت ها هم انجام نمیده!!!
من از کد زیر جهت آپدیت سرهای datagridview استفاده می کنم ...
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Computer.FileSystem.CurrentDirectory & "\person.mdb")
cmd.Connection = con
da.SelectCommand = cmd
Dim custCB As OleDbCommandBuilder = New OleDbCommandBuilder(da)
con.Open()
da.SelectCommand.CommandText = "select * from register"
da.Fill(ds1, "register")
DataGridView1.DataSource = ds1.Tables("register")
con.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
da.Update(ds1, "register")
End Sub
ولی متاسفانه بعضی وقت ها کار می کنه و عمل ادیت رو انجام میده و بعضی وقت ها هم انجام نمیده!!!