[سعود]

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