فورم الدخول
PHP كود :
Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
Using cm As New OleDb.OleDbCommand("", con)
cm.CommandText = "update tb set n=@n where tn=@tn"
cm.Parameters.AddWithValue("@n,", Val(ComboBox1.Text))
cm.Parameters.AddWithValue("@tn,", TextBox1.Text)
If con.State = ConnectionState.Closed Then con.Open()
cm.ExecuteNonQuery()
If con.State = ConnectionState.Open Then con.Close()
End Using
End Using
Me.Hide()
Form2.Show()
الفورم الرئيسي
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dt As DataTable
Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
Using da As New OleDb.OleDbDataAdapter("select tn,n from tb", con)
dt = New DataTable
da.Fill(dt)
Me.DataGridView1.DataSource = dt
End Using
End Using
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim dt As DataTable
Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
Using da As New OleDb.OleDbDataAdapter("select tn,n from tb where n=10", con)
dt = New DataTable
da.Fill(dt)
Me.DataGridView1.DataSource = dt
End Using
End Using
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim dt As DataTable
Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
Using da As New OleDb.OleDbDataAdapter("select tn,n from tb where n=20", con)
dt = New DataTable
da.Fill(dt)
Me.DataGridView1.DataSource = dt
End Using
End Using
End Sub
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
