تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اين الخطا في هذا الكود
#1
السلام عليكم
مساء الخير
اخواني ممكن توضحون لي اين الخطا في هذا الكود لان اذا ضغطة على زر اضافة يطلع لي خطا بالبرنامج ويحدد لي الخطا هنا (       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
الرد
تم الشكر بواسطة:
#2
السلام عليكم

لماذا لا تريد أن تذكر رسالة الخطأ
كود :
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
الرد
تم الشكر بواسطة: tariq2812
#3
اخوي هاذي رسالة الخطا


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

الرد
تم الشكر بواسطة: tariq2812
#4
غير خصائص المشروع من AnyCpu الى x86

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


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

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

المشاركة الثانية
الرد
تم الشكر بواسطة: tariq2812
#5
شكرا لك اخوي تم حل المشكله بالتحول الى x86
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد هذا الكود عندما اضغط عاى Button يقول لي ان TEXTBOX.TEX مملوء ادا كان مملوء samirzaima 6 869 24-04-18, 06:19 PM
آخر رد: moniam
Bug ممكن الخطأ في هذا الكود ؟ YousefOkasha 0 135 01-02-18, 01:07 PM
آخر رد: YousefOkasha
  ما هو الكود المناسب CHANGE PASSWORD النسر79 3 534 28-12-17, 08:28 PM
آخر رد: النسر79
  ما هو الكود الخاص بـ Enable and Disable to Local Area Connection ؟ PeterGhattas082460 3 362 20-10-17, 12:28 AM
آخر رد: a.ahmed
Smile [كود] منذ متى وانت تعرف هذا الكود؟:) serial gen or guid سعود 3 356 07-08-17, 03:56 AM
آخر رد: سعود الشامان
  [سؤال] اين الخطا من فضلكم safalo 2 369 15-05-17, 11:57 PM
آخر رد: safalo
  اين الخطا من فضلكم safalo 0 307 15-05-17, 03:59 PM
آخر رد: safalo
  [كود] طريقة إضافة زر للفورم عن طريق الكود + في حدث معين mohammed moh 11 8,456 19-08-16, 12:13 AM
آخر رد: test123
Sad [كود] ممكن تحويل هذا الكود الى VB NET ماستر قراند 1 1,779 16-02-14, 02:36 PM
آخر رد: جاسم عبد

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم