السلام عليكم.........
كود:
Protected Sub cmdInsert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdInsert.Click
'تعريف بعض المتحولات
Dim SQLstr As String
Dim connstr As String
'يقوم هذا المتحول بإسناد قيمة خاصة تحتوي على المعلومات الضرورية التي يحتاجعا البرنامج من اجل انشاء اتصال مع محرك قاعدة البيانات
connstr = "Data Source=localhost;Initial Catalog=Students;user id = sa; password = 0000"
Dim id As Integer
id = Me.txtID.Text
Dim fname As String
fname = Me.txtFname.Text
Dim lname As String
lname = Me.txtLname.Text
'يقوم هذا المتحول على الحفظ بتعليمة sql
SQLstr = "INSERT INTO Students(stu_ID,StudentFirstName,StudentLastName) VALUES (" + ID + "," + fname + "," + lname + ")"
'تعريف متحول خاصة للقيام بفتح و اغلاق اتصال
Dim SQLconn As New SqlConnection()
'تعريف متحول خاص للقيام بتنفيذ تعليمة sql
Dim SQLcmd As New SqlCommand()
'ربط متحول الإتصال بمتحول الخاص الذي يحتوي على المعلومات الضرورية لإنشاء الإتصال
SQLconn.ConnectionString = connstr
'فتح الإتصال مع قاعدة المعطيات
SQLconn.Open()
'تعريف متحول الخاص بعملية التنفيذ بأي اتصال بحتاج اليه
SQLcmd.Connection = SQLconn
'تعريف المتحول الخاض بعملية التنفيذ بتعمليمة ال sql المراد تنفيذه
'او يمكن استخدام التعليمة كالتالي
'SQLcmd.CommandText = "INSERT INTO Students(stu_ID,StudentFirstName,StudentLastName) VALUES (1,'Ibraheem'.'Mansour')"
SQLcmd.CommandText = SQLstr
'تنفيذ تعليمة ال sql
SQLcmd.ExecuteNonQuery()
'اغلاق الإتصال
SQLconn.Close()
Response.Write("The data has inserted......")
End Sub
و اتمنى أن اكون قد حصلت على الفكرة
المفضلات