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