+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : اين الخطا في هذا الكود (/showthread.php?tid=19264)
اين الخطا في هذا الكود - عالم التقنية - 15-02-17
السلام عليكم
مساء الخير
اخواني ممكن توضحون لي اين الخطا في هذا الكود لان اذا ضغطة على زر اضافة يطلع لي خطا بالبرنامج ويحدد لي الخطا هنا ( conn.Open() )
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=|DataDirectory|\Assembly members.accdb"
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim cmdinsert As New OleDbCommand
cmdinsert.Connection = conn
cmdinsert.CommandText = "INSERT INTO [N_Data] (Name,Civil,Mobile,Living,Address,Trak,Membership,sdad) VALUES (@Name,@Civil,@Mobile,@Living,@Address,@Trak,@Membership,@sdad)"
cmdinsert.Parameters.AddWithValue("@Name", TextBox1.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Civil", m.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Mobile", o.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Living", d.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Address", Box.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Trak", DateTimePicker1.Value.ToString("yyyy-MM-dd"))
cmdinsert.Parameters.AddWithValue("@Membership", TextBox6.Text.Trim)
cmdinsert.Parameters.AddWithValue("@sdad", CheckBox1.Checked)
conn.Open()
cmdinsert.ExecuteNonQuery()
conn.Close()
MsgBox("تمت الاضافة بنجاح")
conn.Close()
End Sub
End Class
RE: اين الخطا في هذا الكود - مساعدة - 15-02-17
السلام عليكم
لماذا لا تريد أن تذكر رسالة الخطأ
كود :
Imports System.Data.OleDb
Public Class Form1
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='|DataDirectory|\Assembly members.accdb';")
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim sqlStr As String = "INSERT INTO [N_Data] (Name,Civil,Mobile,Living,Address,Trak,Membership,sdad) VALUES (@Name,@Civil,@Mobile,@Living,@Address,@Trak,@Membership,@sdad)"
Dim cmdinsert As New OleDbCommand(sqlStr, conn)
cmdinsert.Parameters.AddWithValue("@Name", TextBox1.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Civil", m.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Mobile", o.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Living", d.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Address", Box.Text.Trim)
cmdinsert.Parameters.AddWithValue("@Trak", DateTimePicker1.Value.ToString("yyyy-MM-dd"))
cmdinsert.Parameters.AddWithValue("@Membership", TextBox6.Text.Trim)
cmdinsert.Parameters.AddWithValue("@sdad", CheckBox1.Checked)
conn.Open()
cmdinsert.ExecuteNonQuery()
conn.Close()
MsgBox("تمت الاضافة بنجاح")
End Sub
End Classالأفضل أن تجعل اسم قاعدة البيانات بدون مسافة مثل AssemblyMembers.accdb
RE: اين الخطا في هذا الكود - عالم التقنية - 16-02-17
اخوي هاذي رسالة الخطا
إن الموفر 'Microsoft.ACE.OLEDB.12.0' غير مسجل على الجهاز المحلي.
RE: اين الخطا في هذا الكود - مساعدة - 16-02-17
غير خصائص المشروع من AnyCpu الى x86
الطريقة
[سؤال] provider Oledb.ace.4.00 not support
في المشاركة الثانية
أو
[سؤال] اظهار وتفعيل Target CPU في خصائص المشروع
المشاركة الثانية
RE: اين الخطا في هذا الكود - عالم التقنية - 27-02-17
شكرا لك اخوي تم حل المشكله بالتحول الى x86