هذا الكود مايطلع فيه اخطاء
لكن المشكلة انو يضيف ويحذف في قاعدة البيانات فقط اثناء البرنامج شغال
وعندما اقفل الفيجوال بيسك وارجع افتح البرنامج لا يحدث اي تغيير
اي كأنه لم تحدث الاضافة او الحذف في قاعدة البيانات
لا يحدث اي تغيير في قاعدة البيانات
ارجو المساعدة
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & Application.StartupPath & "\db1.mdb"
Dim conn As New OleDbConnection(constr)
Dim dataSet1 As New DataSet
Dim sqlStr As String = " select * from device"
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim frm2 As New Form2
frm2.Show()
Me.Hide()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conn.Open()
Dim dataAdapter1 As New OleDbDataAdapter(sqlStr, conn)
dataAdapter1.Fill(dataSet1, "device")
conn.Close()
TextBox1.DataBindings.Add("Text", dataSet1, "device.الرقم")
TextBox3.DataBindings.Add("Text", dataSet1, "device.السم")
ChangePosition()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.BindingContext(dataSet1, "device").Position = 0
ChangePosition()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.BindingContext(dataSet1, "device").Position -= 1
ChangePosition()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.BindingContext(dataSet1, "device").Position += 1
ChangePosition()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.BindingContext(dataSet1, "device").Position = Me.BindingContext(dataSet1, "device").Count - 1
ChangePosition()
End Sub
Public Sub ChangePosition()
Label3.RightToLeft = Windows.Forms.RightToLeft.Yes
Label3.Text = "السجل " & Me.BindingContext(dataSet1, "device").Position & _
" من " & Me.BindingContext(dataSet1, "device").Count - 1
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If MsgBox("هل تريد الحذف السجل الحالي", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
Exit Sub
End If
Dim SavInto As New OleDb.OleDbCommand
Dim dataAdapter1 As New OleDbDataAdapter(sqlStr, conn)
SavInto.Connection = conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "DELETE FROM device WHERE الرقم ='" & _
Trim(TextBox1.Text) & "'"
conn.Open()
SavInto.ExecuteNonQuery()
dataSet1.Clear()
dataAdapter1.Fill(dataSet1, "device")
conn.Close()
MsgBox("تم الحذف")
ChangePosition()
End Sub
End Class
*******************************************
وهذا كودالفورم الثاني
Imports System.Data
Imports System.Data.OleDb
Public Class Form2
Dim frm1 As New Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim SavInto As New OleDb.OleDbCommand
Dim constr As String = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\db1.mdb"
Dim conn As New OleDbConnection(constr)
SavInto.Connection = conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "INSERT INTO device(الرقم,السم)" & _
"values ('" & TextBox1.Text & "','" & TextBox2.Text & "') "
conn.Open()
SavInto.ExecuteNonQuery()
conn.Close()
MsgBox("بسم الله الرحمن الرحيم")
Me.Close()
frm1.Show()
Catch ex As Exception
Exit Sub
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
frm1.Show()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class