السلام عليكم إخواني الكرام...
قبل البدء أعلم أنني مبتدئ جدًا في البرمجة.
أنا أصمم برنامجًا بسيطًا لقاعدة بيانات على الفيجوال بيسيك 2010 وقمت بربطه بملف الأكسس، وهذا هو الكود حتى الآن:
Imports System.Data.OleDb
Public Class Form1
Dim conn As New OleDbConnection
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\قاعدة بيانات.accdb"
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
conn.Open()
Dim cmdinsert As New OleDbCommand
cmdinsert.Connection = conn
cmdinsert.CommandText = "insert into قاعدة بيانات Values (' " + TextBox1.Text + "' , ' " + TextBox2.Text + " ' , ' " + TextBox3.Text + " ' , ' " + TextBox4.Text + " ' , ' " + TextBox5.Text + " ' , ' " + TextBox6.Text + " ' )"
cmdinsert.ExecuteNonQuery()
MsgBox(" تم إضافة العضو بنجاح ")
conn.Close()
End Sub
End Class
وعندما أقوم بعمل Run للبرنامج لتجربته تظهر لي الرسالة التي في الصورة التالية:
وهذا الفيديو يوضح المشكلة أيضًا:
فأرجو لمن يستطيع حل هذه المشكلة التي تعطلني أصلًا من إكمال البرنامج
التعليقات