منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
مساء الخير
اخواني ممكن توضحون لي اين الخطا في هذا الكود لان اذا ضغطة على زر اضافة يطلع لي خطا بالبرنامج ويحدد لي الخطا هنا ( 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

السلام عليكم

لماذا لا تريد أن تذكر رسالة الخطأ

كود :

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

اخوي هاذي رسالة الخطا

إن الموفر 'Microsoft.ACE.OLEDB.12.0' غير مسجل على الجهاز المحلي.

غير خصائص المشروع من AnyCpu الى x86

الطريقة
[سؤال] provider Oledb.ace.4.00 not support

في المشاركة الثانية

أو
[سؤال] اظهار وتفعيل Target CPU في خصائص المشروع

المشاركة الثانية

شكرا لك اخوي تم حل المشكله بالتحول الى x86

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عالم التقنية

مساعدة

عالم التقنية

مساعدة

عالم التقنية