damas90
دوشنبه 18 مرداد 1389, 18:50 عصر
جايي براي تبادل نظر در مورد كدهاي مربوط به بانك اطلاعاتي اكسس
1.كد اضافه كردن ركورد:
Private ObjCon AsNew OleDb.OleDbConnection
Private ObjCom AsNew OleDb.OleDbCommand
Dim cs AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\damas90\My Documents\Bank.mdb"
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ObjCon.ConnectionString = cs
ObjCon.Open()
ObjCom.Connection = ObjCon
ObjCom.CommandText = "insert Into Table1(ID,name,family) Values('" & TextBox1.Text & " ' ,' " & TextBox2.Text & " ' , ' " & TextBox3.Text & " ')"
ObjCom.ExecuteNonQuery()
objcon.close()
EndSub
1.كد اضافه كردن ركورد:
Private ObjCon AsNew OleDb.OleDbConnection
Private ObjCom AsNew OleDb.OleDbCommand
Dim cs AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\damas90\My Documents\Bank.mdb"
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ObjCon.ConnectionString = cs
ObjCon.Open()
ObjCom.Connection = ObjCon
ObjCom.CommandText = "insert Into Table1(ID,name,family) Values('" & TextBox1.Text & " ' ,' " & TextBox2.Text & " ' , ' " & TextBox3.Text & " ')"
ObjCom.ExecuteNonQuery()
objcon.close()
EndSub