28-05-13, 11:39 PM
السلام عليكم
- هذا الكود كامل أنسخه وألصقة في مثالك , مع نعديل كود فتح اللنك :
- هذا الكود كامل أنسخه وألصقة في مثالك , مع نعديل كود فتح اللنك :
كود :
Private 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
Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset
Private Sub Form_Load()
DB.Provider = "Microsoft.jet.oledb.4.0;"
DB.Open App.Path & "\db.mdb"
If RS.State = adStateOpen Then RS.Close
Set RS = DB.OpenSchema(adSchemaTables)
Do Until RS.EOF
If RS.Fields("TABLE_TYPE") = "TABLE" Then
Combo1.AddItem RS.Fields("TABLE_NAME")
End If
RS.MoveNext
Loop
If RS.State = 1 Then RS.Close
End Sub
Private Sub Command1_Click()
If Trim$(Combo1.Text) <> "" Then
Dim R As Long
RS.Open "Select * From " & Trim$(Combo1.Text), DB, adOpenDynamic, adLockOptimistic
If RS.RecordCount > 0 Then
If Not IsNull(RS![link]) Then
R = ShellExecute(0, "open", RS![link], 0, 0, 1)
End If
End If
If RS.State = 1 Then RS.Close
End If
End Sub
