PHP كود :
Imports compact_dll
Imports System.IO
Public Class Form1
Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
Dim dt As DataTable
Dim da As OleDb.OleDbDataAdapter
Dim dt2 As DataTable
Dim da2 As OleDb.OleDbDataAdapter
Dim cm As OleDb.OleDbCommandBuilder
Private Sub gd()
dt = New DataTable
da = New OleDb.OleDbDataAdapter("select * from tb where countryid=0", con)
dt2 = New DataTable
da2 = New OleDb.OleDbDataAdapter("select * from tb where countryid<>0", con)
cm = New OleDb.OleDbCommandBuilder(da)
da.Fill(dt)
da2.Fill(dt2)
countries.DataSource = dt
countries.DisplayMember = "countryorcity"
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
gd()
End Sub
Private Sub countries_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles countries.SelectedIndexChanged
If dt.Rows.Count = 0 Then Exit Sub
If countries.SelectedIndex = -1 Then Exit Sub
If countries.Items.Count <= 0 Then Exit Sub
cities.Items.Clear()
For r = 0 To dt2.Rows.Count - 1
If dt2.Rows(r)(2) = dt.Rows(countries.SelectedIndex)(0) Then
cities.Items.Add(dt2.Rows(r)(1))
End If
Next
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim a As String = InputBox("أكتب اسم دولة")
If a.ToString.Trim = "" Then Return
Dim row As DataRow = dt.NewRow
row(1) = a
row(2) = 0
dt.Rows.Add(row)
da.Update(dt)
gd()
countries.Refresh()
countries.SelectedIndex = countries.Items.Count - 1
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If countries.SelectedIndex = -1 Then Exit Sub
Dim pos As Integer = countries.SelectedIndex
Dim a As String = InputBox("أكتب اسم مدينة")
If a.ToString.Trim = "" Then Return
Dim row As DataRow = dt.NewRow
row(1) = a
row(2) = dt.Rows(countries.SelectedIndex)(0)
dt.Rows.Add(row)
da.Update(dt)
gd()
Me.BindingContext(dt).Position = pos
cities.Refresh()
cities.SelectedIndex = cities.Items.Count - 1
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
'MsgBox(New AccessRepairForVb4arbUsers.Class1().replyaccess(Application.StartupPath & "\db.accdb", ""))
Dim d As New compact_dll.Class1
Dim f As String = Application.StartupPath & "\db.accdb"
Dim fl As New FileInfo(f)
' MsgBox(fl.FullName)
MsgBox(d.replyaccess(fl.FullName, "").ToString)
End Sub
End Class
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
