س/ عند حذف سجل بقاعدة البيانات وضغطنا ok يخرج من الفورم عى طول ويظهر -1 من -1 في ال lable عند التنقل بين السجلات.. المطلوب تعديله..
س/ ما هو الكود الذي يجعل كلمة : لا يوجد سجل سابق عند الضغط على زر سجل سابق ولا يوجد سجل تالي عند الضغط على زر سجل تالي ظاهرة في label باستخدام الif statement ؟
تكفووون واجب تسليمه بكرا وما عرفت..
ولو تساعدوني بواحد منهم..
او بنص اجابة..
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()
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
(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()
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