[softmail8]

MSDOS كتب :تفضل المثال بعد التعديل

تم التالي
1: تم نقل ملف قاعدة البيانات إلى المجلد debug الموجود في مجلد bin
2: إضافة Application.StartupPath قبل اسم ملف قاعدة البيانات وهي تماثل App.Path في VB6
3: تم تعديل خصائص المشروع: النقر مرتين على My Project في النافذة اليمين في الفجوال ثم اختيار التبويب Compile على اليسار ثم ضغط زر Advanced Compile Options تحت خالص وتغيير Target CPU إلى x86

لاحظت قاعدة البيانات لديك ان id رقم عادي مفتاحي والمعروف انه يكون ترقيم تلقائي مفتاحي،
إذا قمت بتغييره إلى ترقيم تلقائي فاجعل الكود كالتالي (لاحظ ما تم حذفه)

كود :

Public Class Form1

    Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\db1.mdb;")

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Try

            Dim s As String = "INSERT INTO [sameer] (Neme , ymem) VALUES(@Neme , @ymem)"

            Dim c As New OleDb.OleDbCommand(s, con)

            c.Parameters.AddWithValue("@Neme", Me.TextBox2.Text)
            c.Parameters.AddWithValue("@ymem", Me.TextBox3.Text)

            con.Open()
            c.ExecuteNonQuery()
            con.Close()

            MsgBox("تم الحفظ")

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
End Class

------------------------------------------------------------------------
لك مني الف تحية وتقدير استاذي العزيز والله يحفظكم ويرعاكم