السلام عليكم اساتذتي الافاضل ورحمة والله وبركاته
جمعة مباركة طيبة عليكم جميعا في المرفقات برنامج معمول بالفيجوال بيسك6 وقاعدة بيانات اكسيس 2003 مقفولة برقم سري
( 13130022 ) اذا المساعدة في تشغيل استعلام الحاقي في هذه القاعدة من واجهة برنامج الفيجوال بيسك6 من خلال زر امر تشغيل استعلام مع وافر التحايا
وهذا البرنامج في المرفقات
السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
عملت تعديل على البرنامج بحيث عملت تشغيل الاستعلام من المايكرو وعند تشغيل الاستعلام من المايكرو او من الاستعلام نفسه يعمل بشكل ممتاز ويضيف سجل على جدول tbl1 ولكن المشكلة عندما اقوم بتشغيله على من واجهة الفيجوال بيسك6 بواسطة زر الامر تشغيل استعلام تخرج رسالة خطأ بأن تعذر على مايكرو افويس بفتح قاعدة البيانات
لانها مفتوحة من مستخدم او محذوفه
الرقم السري لقاعدة البيانات هو 13130022
وهذا هو البرنامج واتمنى التعديل على البرنامجين الذي في الاعلى وهذا البرنامج الذي في المرفقات مع وافر اتحايا لكي اتعلم اكثر
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
08-07-23, 06:03 PM (آخر تعديل لهذه المشاركة : 08-07-23, 06:16 PM {2} بواسطة وادي العوضي.)
السلام عليكم استاذ احمد ورحمة الله وبركاته
شكرا جزيلا لمجهودك الاكثر من رائع الله يبارك بعمرك يا طيب جزاك الله خيرا نعم هذا هو المطلوب تماما هذا ما يخص المرفق سابقا
اذا امكن حل مشكلة الرسالة التي تخرج لي في المرفق الثاني بحيث اريد تشغيل الاستعلام من الماكرو من خلال واجهة الفيجوال بيسك لاني ايضا احتاجها وهذا البرنامج في المرفقات
مع جزيل الشكر والاحتارم لحضرتك استاذ احمد الطيب
وهذه صورة الرسالة التي تخرج لي بعد الضغط على زر امر تشغيل
الله يبارك بعمرك استاذ احمد الغالي جزاك الله خيرا نعم هذا هو المطلوب تماما
ممنون منك جدا وفيت وكفيت واسأل الله جل شأنه ان يمن عليك بالصحة والعافية والخير والبركات اللهم أمين يا رب العالمين