royaeel
شنبه 17 اسفند 1387, 10:09 صبح
سلام من کد زیر را در VS2005 نوشتم ولی در هنگام اجرای برنامه پس از تغییر رکوردها و زدن دکمه ثبت، هیچ تغییری ایجاد نمی شود یعنی به صورت واقعی تغییری روی رکوردهای دیتابیس انجا نشده است.
PrivateSub Assets_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim strCon AsString = " Provider=Microsoft.jet.oledb.4.0;data source=E:\Roya\Projects\RA-soft\VB\RAS\RAS\bin\RAdb.mdb;"
Dim Con AsNew OleDb.OleDbConnection(strCon)
Con.Open()
Dim strSQL AsString = "SELECT * FROM T_Asset"
Dim Adapter AsNew OleDb.OleDbDataAdapter(strSQL, Con)
Dim Comm AsNew OleDb.OleDbCommand("INSERT INTO T_Asset (AssetName) VALUES ('PC')", Con)
T_AssetTableAdapter.Fill(RAdbDataSet, "T_Asset")
EndSub
Private
Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
T_AssetTableAdapter.Update(RAdbDataSet, "T_Asset")
EndSub
PrivateSub Assets_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim strCon AsString = " Provider=Microsoft.jet.oledb.4.0;data source=E:\Roya\Projects\RA-soft\VB\RAS\RAS\bin\RAdb.mdb;"
Dim Con AsNew OleDb.OleDbConnection(strCon)
Con.Open()
Dim strSQL AsString = "SELECT * FROM T_Asset"
Dim Adapter AsNew OleDb.OleDbDataAdapter(strSQL, Con)
Dim Comm AsNew OleDb.OleDbCommand("INSERT INTO T_Asset (AssetName) VALUES ('PC')", Con)
T_AssetTableAdapter.Fill(RAdbDataSet, "T_Asset")
EndSub
Private
Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
T_AssetTableAdapter.Update(RAdbDataSet, "T_Asset")
EndSub