[ahmedabdelaliem]

السلام عليكم ورحمة الله وبركاته

اخي العزيز عدل على المثال المرفق سابقا هكذا

احذف الكود كاملا من الصفحة وضع هذا الكود

PHP كود :

Dim db As Database
Dim RS As Recordset
Dim p, b, d, s As String
Private CN As New ADODB.Connection
Private RS1 As New ADODB.Recordset

Public Sub ConncData()
    If CN.State = 1 Then CN.Close
    CN.CursorLocation = adUseClient
    CN.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=13130022;"
    CN.Open App.Path & "\compny.mdb"
    
End Sub

Private Sub Command16_Click()
Dim myCmd As ADODB.Command
Set myCmd = New ADODB.Command
myCmd.ActiveConnection = CN
myCmd.CommandText = "q"
myCmd.CommandType = adCmdStoredProc
Set RS1 = myCmd.Execute
MsgBox "Done"
End Sub

Private Sub Command9_Click()
End
End Sub

Private Sub Form_Load()

Call ConncData
'Set db = OpenDatabase(".\compny.mdb")
'Set RS = db.OpenRecordset("tbl1")

End Sub

Private Sub Timer1_Timer()
'Label6.Caption = Time
'Label7.Caption = Date
End Sub 


بالتوفيق اخي