[العزابي]

شوف ياخي الكريم أنا عندي 2010 وماراح يشتغل معاك

انا راح اعطيك الكود تحطه بالفورم

كود :

Imports System.Data.OleDb

Public Class Form1
    Public con As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\db1.mdb;user id=admin")
    Dim DataSet1 As New DataSet
    Dim DataAdapter1 As New OleDbDataAdapter
    Dim BindingSource1 As BindingSource
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim toob As OleDbCommand = New OleDbCommand("SELECT iD,Name,sss from toob order by id", con)
        DataAdapter1 = New OleDbDataAdapter(toob)
        Dim builder1 As New OleDbCommandBuilder(DataAdapter1)

        DataSet1 = New DataSet()

        DataAdapter1.Fill(DataSet1, "toob")

        BindingSource1 = New BindingSource(DataSet1, "toob")

        TextBox1.DataBindings.Add("Text", BindingSource1, "iD", True, 1, "")
        TextBox2.DataBindings.Add("Text", BindingSource1, "Name", True, 1, "")
        TextBox3.DataBindings.Add("Text", BindingSource1, "sss", True, 1, "")

    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("هل تريد اضافة سجل جديد ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "اضافة سجل جديد") = MsgBoxResult.Cancel Then Exit Sub

        Application.DoEvents()

        ' الغاء اضافة السجل او السجلات الجديدة والتراجع عن التعديل دام لم يتم حفظها
        'وسبب وضع الامر هنا من  شان اذا ضغطت زر الاضافة اكثر من مرة
        DataSet1.RejectChanges()

        'امر اضافة سجل جديد
        BindingSource1.AddNew()

        'كود انهاء عملية الاضافة ولكن لم يحفظ في القاعدة بعد
        BindingSource1.EndEdit()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try

            If BindingSource1.Count = 0 Then Beep() : Exit Sub

            'كود حفظ الاضافة وحفظ التعديل
            BindingSource1.EndEdit()
            DataAdapter1.Update(DataSet1, "toob")
          
            MsgBox("تمت عملية حفظ قاعدة البيانات بنجاح", 64 + 524288, "نجاح الحفظ")

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
End Class

ولمعلوميتك فيه فيه قسم المشاريع أمثلة رائعة .

حاجة مهمة أنا غيرت اسم حقل القسم بالقاعدة عندك لانها محجوزة إلى SSS