hhr1360
چهارشنبه 11 فروردین 1400, 19:57 عصر
سلام
الان برای آپدیت اطلاعات دیتا گرید تو بانک اکسس مشکل دارم
این کد نوشتم. میشه لطفا یک نگاه بکنید؟
Public Class Form3
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLED B.12.0;Data Source=|DataDirectory|\karkonan.accdb;Persist Security Info=True;Jet OLEDB:Database Password=123")
Dim ad As New OleDb.OleDbDataAdapter
Dim ds As New DataSet
Dim dt As New Data.DataTable
Dim r As DataRow
کد های فرم لود
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ad = New OleDb.OleDbDataAdapter("select * from fardi", con)
ad.Fill(ds, "fardi")
dt = ds.Tables("fardi")
dgv.DataSource = dt
End Sub
این کد دکمه ذخیره اطلاعات
Private Sub but_sa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_sa.Click
ad.Update(ds, "fardi")
End Sub
فایل برنامه رو ضمیمه کردم.
البته به دلیل کم کردن حجم برنامه، بانک شو حذف کردم
یک فایل اکسس به نام karkonan که یک جدول به نام fardi داره
الان برای آپدیت اطلاعات دیتا گرید تو بانک اکسس مشکل دارم
این کد نوشتم. میشه لطفا یک نگاه بکنید؟
Public Class Form3
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLED B.12.0;Data Source=|DataDirectory|\karkonan.accdb;Persist Security Info=True;Jet OLEDB:Database Password=123")
Dim ad As New OleDb.OleDbDataAdapter
Dim ds As New DataSet
Dim dt As New Data.DataTable
Dim r As DataRow
کد های فرم لود
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ad = New OleDb.OleDbDataAdapter("select * from fardi", con)
ad.Fill(ds, "fardi")
dt = ds.Tables("fardi")
dgv.DataSource = dt
End Sub
این کد دکمه ذخیره اطلاعات
Private Sub but_sa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_sa.Click
ad.Update(ds, "fardi")
End Sub
فایل برنامه رو ضمیمه کردم.
البته به دلیل کم کردن حجم برنامه، بانک شو حذف کردم
یک فایل اکسس به نام karkonan که یک جدول به نام fardi داره