السلام عليكم
لقد وجدت برنامج بالفيجوال بيسك خاص في استعراض قاعدة بيانات مناسبة للغرض الذي أبحث عنه .. لكني لا أعرف كيق أحول الكود إلى الدلفي لقة خبرتي في قواعد البيانات
و هذا هو البرنامج بالفيجوال بيسك:
-----------------------------------------------------------------module-------------------------------------
Public CoN As ADODB.Connection
Public CheminBase As String
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Sub Connection()
On Error GoTo err
Set CoN = New ADODB.Connection
CoN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & CheminBase & " ;"
Exit Sub
err:
MsgBox err.Description
End
End Sub
Public Sub RemplirCombo(ByVal RS As ADODB.Recordset, ByVal cmb As ComboBox)
On Error GoTo err
cmb.Clear
Select Case cmb.Name
Case "cmbpays"
While Not RS.EOF
cmb.AddItem RS!pays
cmb.ItemData(cmb.NewIndex) = RS!cpays
RS.MoveNext
Wend
Case "cmbville"
While Not RS.EOF
cmb.AddItem RS!ville
cmb.ItemData(cmb.NewIndex) = RS!cville
RS.MoveNext
Wend
End Select
Exit Sub
err:
MsgBox err.Description
End Sub
------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------form-----------------------------------------------------
Dim LatiTude As Variant
Dim LonGitude As Variant
Dim ville As String
Dim AdrEsse As String
Private Sub cmbpays_Click()
Set RS = New ADODB.Recordset
RS.Open "SELECT Villes.* FROM Villes WHERE (((Villes.Pays)=" & cmbpays.ItemData(cmbpays.ListIndex) & ")) ORDER BY Villes.Ville;", CoN, adOpenKeyset, adLockReadOnly
RemplirCombo RS, cmbville
RS.Close
cmbville.Visible = True
lblville.Visible = True
End Sub
Private Sub cmbville_Click()
On Error GoTo err
Set RS = New ADODB.Recordset
RS.Open "SELECT Villes.* FROM Villes WHERE (((Villes.Cville)=" & cmbville.ItemData(cmbville.ListIndex) & "));", CoN, adOpenKeyset, adLockReadOnly
txtlatitude = Replace(RS!LatiTude, ",", ".")
txtlongitude = Replace(RS!LonGitude, ",", ".")
RS.Close
Exit Sub
err:
MsgBox err.Description
End Sub
---------------------------------------------------------------------------------------------------------------------