Dim add As New OleDbCommand
add.Connection = conn
add.CommandType = CommandType.Text
add.CommandText = " insert into i_e_g ( b,r,total,shortage,d) values ('" & TextBox99.Text & "','" & TextBox118.Text & "','" & TextBox192.Text & "','" & TextBox315.Text & "','" & DateTimePicker11.Text & "')"
conn.Open()
add.ExecuteNonQuery()
conn.Close()
انا عايز اعمل اكتر من جملة insert اعملها ازاى فى الكود ده ؟ بحيث تتنفذ الجمل كلها بدوسة واحدة
انا جربت طرقتين ومنفعتش
أخي الكريم
سوف تجد كل ماتريده في هذا الرباط
http://msdn.microsoft.com/en-us/library/system.data.oledb.oledbdataadapter.updatecommand.aspx#Y673
تحياتي
وَعَبْدٌ قَدْ يَنامُ عَلَى حَرِيرٍ ××× وَذُو نَسَبٍ مَفَارِشُهُ التُّرَابُ
Dim add As New OleDbCommand
add.Connection = conn
add.CommandType = CommandType.Text
add.CommandText = " insert into i_e_g ( b,r,total,shortage,d) values ('" & TextBox99.Text & "','" & TextBox118.Text & "','" & TextBox192.Text & "','" & TextBox315.Text & "','" & DateTimePicker11.Text & "')"
conn.Open()
add.ExecuteNonQuery()==============================================================================
add.CommandText = " insert into ...... etc & "')" add.ExecuteNonQuery() add.CommandText = " select * from ...... etc & "')" add.ExecuteNonQuery() add.CommandText = " delete from ...... etc & "')" add.ExecuteNonQuery() add.CommandText = " update table ...... etc & "')" add.ExecuteNonQuery()
==============================================================================
حتى تنتهي اكتب السطر هذا
conn.Close()
الله عليكوا شكرا