[iFayfoy]

(02-01-17, 12:23 AM)مساعدة كتب : هذا تصحيح بسيط لفورم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

شكراً حبيبتي..
انتي الحين ضبط معاك ؟!