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()
EndSub
با عرض سلام
يك سوال پيش پا افتاده داشتم ميخواستم بدونم تو قطعه كد بالا وقتي يكبار اطلاعات باهمين فرم وارده ميشه براي دفعه دوم كه ميخوايم وارد كنيم ارور مياره !
سوالات:
1.كدي هست كه كه اين نقص رو برطرف كنه؟؟
2.كدي هست كه اگر اطلاعات تكراري بود پيغامي بياره؟؟
كسي هست كمكم كنه ممنون ميشم
پاسخ با نقل قول