السلام عليكم اساتذتي الافاضل ورحمة والله وبركاته
جمعة مباركة طيبة عليكم جميعا في المرفقات برنامج معمول بالفيجوال بيسك6 وقاعدة بيانات اكسيس 2003 مقفولة برقم سري
( 13130022 ) اذا المساعدة في تشغيل استعلام الحاقي في هذه القاعدة من واجهة برنامج الفيجوال بيسك6 من خلال زر امر تشغيل استعلام مع وافر التحايا
وهذا البرنامج في المرفقات
السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
اذا امكن المساعدة مع وافر التحايا
السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
عملت تعديل على البرنامج بحيث عملت تشغيل الاستعلام من المايكرو وعند تشغيل الاستعلام من المايكرو او من الاستعلام نفسه يعمل بشكل ممتاز ويضيف سجل على جدول tbl1 ولكن المشكلة عندما اقوم بتشغيله على من واجهة الفيجوال بيسك6 بواسطة زر الامر تشغيل استعلام تخرج رسالة خطأ بأن تعذر على مايكرو افويس بفتح قاعدة البيانات
لانها مفتوحة من مستخدم او محذوفه
الرقم السري لقاعدة البيانات هو 13130022
وهذا هو البرنامج واتمنى التعديل على البرنامجين الذي في الاعلى وهذا البرنامج الذي في المرفقات مع وافر اتحايا لكي اتعلم اكثر
السلام عليكم ورحمة الله وبركاته
اخي العزيز عدل على المثال المرفق سابقا هكذا
احذف الكود كاملا من الصفحة وضع هذا الكود
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
بالتوفيق اخي
السلام عليكم استاذ احمد ورحمة الله وبركاته
شكرا جزيلا لمجهودك الاكثر من رائع الله يبارك بعمرك يا طيب جزاك الله خيرا نعم هذا هو المطلوب تماما هذا ما يخص المرفق سابقا
اذا امكن حل مشكلة الرسالة التي تخرج لي في المرفق الثاني بحيث اريد تشغيل الاستعلام من الماكرو من خلال واجهة الفيجوال بيسك لاني ايضا احتاجها وهذا البرنامج في المرفقات
مع جزيل الشكر والاحتارم لحضرتك استاذ احمد الطيب
وهذه صورة الرسالة التي تخرج لي بعد الضغط على زر امر تشغيل
السلام عليكم ورحمة الله وبركاته
تفضل اخي الحبيب
بالتوفيق
الله يبارك بعمرك استاذ احمد الغالي جزاك الله خيرا نعم هذا هو المطلوب تماما
ممنون منك جدا وفيت وكفيت واسأل الله جل شأنه ان يمن عليك بالصحة والعافية والخير والبركات اللهم أمين يا رب العالمين