مشكلة عند فتح البرنامج

السلام عليكم ...

النسخة الحديثة هي المحرك ACE  بدلا من JET . للتعامل مع قواعد بيانات accdb  .

Dim ConnSTR As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\MyData.accdb;Persist Security Info=False;"

houssam11350_11350 كتب:

 

السلام عليكم ...

النسخة الحديثة هي المحرك ACE  بدلا من JET . للتعامل مع قواعد بيانات accdb  .

Dim ConnSTR As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\MyData.accdb;Persist Security Info=False;"

اخى الحبيب اشكرك على ردك الكريم على ولكن ظهرت لى مشكله جديده لا اعرف سببها والصورة الاتيه توضح المشكلة

 

 

السلام عليكم .. 

1. الخطأ في عبارة الـــ SELECT  مكتوب فيها tabell  و المفروض tabel1  .
2. ينقل الموضوع من قسم الأكسس لقسم ADO.NET  ..

houssam11350_11350 كتب:

 

السلام عليكم .. 

1. الخطأ في عبارة الـــ SELECT  مكتوب فيها tabell  و المفروض tabel1  .
2. ينقل الموضوع من قسم الأكسس لقسم ADO.NET  ..

 

جزاك الله كل خير الحبيب انت فله شمعه منورة اتمنى تكون بصحه جيده وبارك الله لك فى علمك حقيقى انا مديون لك

الباشا شكر كتب:

جزاك الله كل خير الحبيب انت فله شمعه منورة اتمنى تكون بصحه جيده وبارك الله لك فى علمك حقيقى انا مديون لك

بارك الله بك أخي و جزاك خيرا ..

اخى الكريم انا عارف انى زهقتك لكن معلش انا دلوقتى كله تمام لكن لما باجى امسح سجل بيجيبلى على السطر التالى خطأ

 SavInto.ExecuteNonQuery()

تمام والرساله بتاع الخطا كالاتى

نوع البيانات غير متطابق في تعبير المعايير

houssam11350_11350 كتب:

بارك الله بك أخي و جزاك خيرا ..

اخى الكريم انا عارف انى زهقتك لكن معلش انا دلوقتى كله تمام لكن لما باجى امسح سجل بيجيبلى على السطر التالى خطأ

 SavInto.ExecuteNonQuery()

تمام والرساله بتاع الخطا كالاتى

نوع البيانات غير متطابق في تعبير المعايير

السلام عليكم ..

أفضل طريقة للتعامل مع الوقت هو البارمترات حتى لا تحصل مشاكل في التحويل ...

 Dim SavInto As New OleDb.OleDbCommand
        Dim DataAdapter1 As New OleDbDataAdapter(sqlstr, conn)
        SavInto.Connection = conn
        SavInto.CommandType = CommandType.Text
        SavInto.CommandText = "DELETE FROM Tabel1 WHERE date = @dt "
        SavInto.Parameters.AddWithValue("@dt", DateTimePicker1.Value)
        conn.Open()
        SavInto.ExecuteNonQuery()

 طبعا لن يحذف بسبب وجود علاقات في الجدول ..

houssam11350_11350 كتب:

السلام عليكم ..

أفضل طريقة للتعامل مع الوقت هو البارمترات حتى لا تحصل مشاكل في التحويل ...

 Dim SavInto As New OleDb.OleDbCommand
        Dim DataAdapter1 As New OleDbDataAdapter(sqlstr, conn)
        SavInto.Connection = conn
        SavInto.CommandType = CommandType.Text
        SavInto.CommandText = "DELETE FROM Tabel1 WHERE date = @dt "
        SavInto.Parameters.AddWithValue("@dt", DateTimePicker1.Value)
        conn.Open()
        SavInto.ExecuteNonQuery()

 طبعا لن يحذف بسبب وجود علاقات في الجدول ..

طب بص ده الكود الموجود فى زر الحذف اغير فيه ايه بقى

If MsgBox("هل تريد حذف السجل الحالى", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then

            Exit Sub
        End If
        Dim SavInto As New OleDb.OleDbCommand
        Dim DataAdapter1 As New OleDbDataAdapter(sqlstr, conn)
        SavInto.Connection = conn
        SavInto.CommandType = CommandType.Text
        SavInto.CommandText = "DELETE FROM Tabel1 WHERE date =@dt "
        SavInto.Parameters.AddWithValue("@dt", DateTimePicker1.Value)
        conn.Open()
        SavInto.ExecuteNonQuery()
        dataset1.Clear()
        DataAdapter1.Fill(dataset1, "tabel1")
        conn.Close()
        MsgBox("تم الحذف بنجاح من قاعدة البيانات")
        ChangePosition()
    End Sub

أخي الفاضل

سيكون كود الحذف كالتالي

 If MsgBox("هل تريد حذف السجل الحالى", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then

            Exit Sub
        Else
            Con.Open()

            Dim cmd As New OleDbCommand()
            cmd.CommandText = "DELETE FROM Tabel1 WHERE date ='" + DateTimePicker1.Text + "'"

            cmd.Connection = Con
            cmd.ExecuteNonQuery()
            Con.Close()

            MsgBox("تم الحذف بنجاح من قاعدة البيانات")
        End If

محمد فؤاد تركي كتب:

 

أخي الفاضل

 

سيكون كود الحذف كالتالي

 If MsgBox("هل تريد حذف السجل الحالى", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then

            Exit Sub
        Else
            Con.Open()

            Dim cmd As New OleDbCommand()
            cmd.CommandText = "DELETE FROM Tabel1 WHERE date ='" + DateTimePicker1.Text + "'"

            cmd.Connection = Con
            cmd.ExecuteNonQuery()
            Con.Close()

            MsgBox("تم الحذف بنجاح من قاعدة البيانات")
        End If

 

جربت مشرفنا الحبييب ولكن للاسف لم تنجح والرساله هى

اريد الحل ضرورى اخوانى الكرام

أخي الفاضل

تعديل بسيط علي الكود وان شاء الله يعمل معك

If MsgBox("هل تريد حذف السجل الحالى", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then

            Exit Sub
        Else
            Con.Open()

            Dim cmd As New OleDbCommand()
            cmd.CommandText = "DELETE FROM Tabel1 WHERE date =?"

            cmd.Parameters.Add(New OleDb.OleDbParameter("@", DateTimePicker1.Text))

            cmd.Connection = Con
            cmd.ExecuteNonQuery()
            Con.Close()

            MsgBox("تم الحذف بنجاح من قاعدة البيانات")
        End If

تم حل مشكلة الحذف استاذى الفاضل بالنسبه للتعديل بيقولى خطأ فى بناء جملة update واللسورس كود اهو

Dim n As String = TextBox3.Text

        Dim SavInto As New OleDb.OleDbCommand
        Dim ConStr As String = _
        "Provider=Microsoft.ace.OLEDB.12.0; Data Source =" & _
        Application.StartupPath & "\MyData.accdb"
        Dim conn As New OleDbConnection(ConStr)
        SavInto.Connection = Conn
        SavInto.CommandType = CommandType.Text
        SavInto.CommandText = "UPDATE Tabel1 SET name = '" & Trim(TextBox1.Text) & "' ,date = '" & _
        Trim(DateTimePicker1.Text) & "' , money= '" & Trim(TextBox2.Text) & "' WHERE MONEY ='" & n & "'"
        conn.Open()
        SavInto.ExecuteNonQuery()
        Conn.Close()
        MsgBox("تمت عملية الاضافة والحفظ فى قاعدة البيانات بنجاح")
        Me.Close()
        frm.Show()