طلب كود ربط asp مع قاعدة البينات

[mamn]

السلام عليكم انا بحاجه الى كود ربط صفحة asp مع قاعدة البينات من نوع sql باستخدام لغة vb.net

و كمان الكود الى يربط تطبيق الvb.net مع قاعدة البينات لو كانت من نوع sql و الف شكر على المساعده

[amged2000]

dim Conn
Dim connStr
Dim Rs
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("VBQUIZ.MDB")
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.CursorType = 2
RS.LockType = 3
'now find the quiz specified by the URL command line
'e.g. vbmark.asp?quiz=1 means mark quiz 1
set RS = Conn.Execute("SELECT * FROM [quiz] WHERE [QuizID]=" & request.querystring("Quiz"))
totalmark = RS("TotalMark")
%>

[mamn]

اخي الغالي الف شكر و لكن لو تشرح لي الكود با عربي ريح يكون احسن ادا ما فيها ازعاج

و وضح لي المكان الى اعمل فيه جملة

select
insert
التحديث
الحدف

[Mr.Nuke]

السلام عليكم.........


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

و اتمنى أن اكون قد حصلت على الفكرة

[Mr.Nuke]

لمزيد من المعلومات يمكنك الذهاب الى الموقع التالي:
https://www.daniweb.com/code/snippet216920.html#

[mamn]

مشكور اخي و ما قصرت و يعطيك الف عافيه على المجهود الى الكبير الف شكر لك يا غالي

[ZMWJ]

السلام عليكم.........


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

و اتمنى أن اكون قد حصلت على الفكرة





عفوا يا اخي ولكن اين اكتب هذا الكود على صفحة sql or Asp الرجاء التوضيح