Private Sub insertData() 'تعريف متغيير جديد لمعرفة المجلد الخاص بالبرنامج Dim newdir As String = System.Windows.Forms.Application.StartupPath Dim اسم_المنتج As String = TextBox1.Text Dim الكمية As String = TextBox2.Text Dim اسم_المستخدم As String = TextBox3.Text Dim تاريخ_الادخال As String = DateTimePicker1.Text 'الاعلان عن متغيير و تعيين جملة الادخال لقاعدة البيانات كقيمة له Dim query As String = "Insert into product values (@اسم_المنتج , @الكمية , @اسم_المستخدم , @تاريخ_الادخال)" 'الاعلان عن متغيير و تعيين جملة الاتصال بقاعدة البيانات كقيمة له Using conn As SqlConnection = New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB; AttachDbFilename=" & newdir & "\Database1.mdf; Integrated Security=True") 'الاعلان عن متغيير تنفيذى للاتصال و ادخال البيانات للقاعدة Using cmd As SqlCommand = New SqlCommand(query, conn) 'اعطاء قيم للمتغير التنفيذى cmd.Parameters.AddWithValue("@اسم_المنتج", اسم_المنتج) cmd.Parameters.AddWithValue("@الكمية", الكمية) cmd.Parameters.AddWithValue("@اسم_المستخدم", اسم_المستخدم) cmd.Parameters.AddWithValue("@تاريخ_الادخال", تاريخ_الادخال) 'فتح الاتصال بالقاعدة conn.Open() 'تنفيذ الاتصال و الادخال لقاعدة البيانات cmd.ExecuteNonQuery() 'اغلاق الاتصال بالقاعدة conn.Close() End Using End Using End Sub
UPDATE
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)