السلام عليكم ورحمة الله وبركاتة
ظهرت لي رسالة خطأ بعد أن جربت إدخال بيانات إلى قاعدة البيانات
وهذا الكود
Imports System.Data
Imports System.Data.OleDb
Partial Class _Default
Inherits System.Web.UI.Page
Dim objConnection As OleDbConnection
Dim MyReader As OleDbDataReader
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
objConnection.ConnectionString = ("PROVIDER = Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\DB2.mdb")
objConnection.Open()
Dim Res As Integer
Dim strSQL, schtxt As String
Dim dname, demail, dmessage As String
dname = "'" + name.Text + "'"
demail = "'" + email.Text + "'"
dmessage = "'" + message.Text + "'"
strSQL = "Insert Into GuestBookEntries(G_name,Email,Message)" & _
"values(" + dname + "," + demail + "," + dmessage + ")"
MsgBox(strSQL)
Dim objComand2 As New OleDbCommand(strSQL, ObjConnection)
Res = objComand2.ExecuteNonQuery()
End Sub
End Classملاحظة: أنا مبتدئة : )
