نقل قول: مشکل این قطعه کد چیه ؟
Imports System.Data.OleDb
PublicClass Form1
Const Str AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = Users.mdb"
Dim DS AsNew DataSet
Dim DT AsNew DataTable
Dim DA AsNew OleDbDataAdapter
Dim CB1 AsNew OleDbCommandBuilder
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
DA = New OleDbDataAdapter("SELECT * FROM Users", Str)
DS = New DataSet
DA.Fill(DS, "Users")
CB1 = New OleDbCommandBuilder(DA)
TextBox1.Text = DS.Tables("Users").Rows(0)("Username").ToString()
Dim row As DataRow = DS.Tables("Users").Rows(0)
row.BeginEdit()
row("Username") = "reza"
row.EndEdit()
DA.Update(DS, "Users")
DS.AcceptChanges()
EndSub
EndClass
نقل قول: مشکل این قطعه کد چیه ؟
دوست عزیز کدی که من قرار دادم کاملا سالمه و کار میکنه.
فقط به زبان vb هستش ببینید شما با قرار دادن command builder مشکلتون حل نمیشه عزیز؟
نقل قول: مشکل این قطعه کد چیه ؟
با سلام
دوست عزیز منم خیلی از این مشکلات داشتم و بیشترشون هم بخاطر آدرس نادرست پایگاه داده بود که نادرست می دادم. آدرسو درست کن فکر کنم حل بشه.