[مساعدة]

هذا تصحيح بسيط لفورم1 Form1

كود :

Imports System.Data
Imports System.Data.OleDb

Public Class Form1

    Dim dbcon As New OleDb.OleDbConnection(My.Settings.Database1ConnectionString)
    Dim dataset1 As New DataSet
    Dim Sql As String


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        dataset1.Reset()
        '   امر ال SQL
        Sql = "select * from table1"
        ' فتح قواعد البيانات
        dbcon.Open()
        'جلب البياتات مباشرة من الملف وتخزينها في قاعدة بيانات وسيطة خاصة بال SQL
        Dim dataadapter1 As New OleDb.OleDbDataAdapter(Sql, dbcon)
        ' ملء قاعدة بيانات ال VB
        dataadapter1.Fill(dataset1, "table1")
        'اغلاق قواعد البيانات
        dbcon.Close()

        ' textbox عند التحميل: عرض السجلات في

        TextBox1.DataBindings.Add("text", dataset1, "table1.name")
        TextBox2.DataBindings.Add("text", dataset1, "table1.city")
        TextBox3.DataBindings.Add("text", dataset1, "table1.mobile")


        changeposition()
    End Sub
    Public Sub changeposition()
        Label4.Text = "السجل" & Me.BindingContext(dataset1, "table1").Position + 1 & "من " & _
            Me.BindingContext(dataset1, "table1").Count

        Label4.Text = "السجل" & Me.BindingContext(dataset1, "table1").Position + 1 & "من" & _
Me.BindingContext(dataset1, "table1").Count

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.BindingContext(dataset1, "table1").Position = 0
        changeposition()
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Me.BindingContext(dataset1, "table1").Position -= 1
        changeposition()
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Me.BindingContext(dataset1, "table1").Position += 1
        changeposition()
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Me.BindingContext(dataset1, "table1").Position = Me.BindingContext(dataset1, "table1").Count
        changeposition()
    End Sub


    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        سجل.Show()
        Me.Close()
    End Sub

    Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
        ' Me.Close()
        Application.Exit()
    End Sub

    Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
        Me.Hide()
        Form4.Show()

    End Sub

    Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
        If MsgBox("هل تريد حذف السجل الحالي", MsgBoxStyle.OkCancel, "تاكيد عملية الحذف") = MsgBoxResult.Cancel Then
            Exit Sub
        End If

        Dim sql1 As String
        sql1 = Sql
        Sql = "delete from Table1 where mobile=" & TextBox3.Text & ""
        Dim delete1 As New OleDbCommand(Sql, dbcon)
        dbcon.Open()
        'امر لتنفيذ اوامر ال SQL السابقة
        delete1.ExecuteNonQuery()
        'اغلاق قواعد البيانات
        dbcon.Close()


        dataset1.Clear()
        Dim dataadapter1 As New OleDbDataAdapter(sql1, dbcon)
        dataadapter1.Fill(dataset1, "table1")

        changeposition()


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


End Class