+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة (/showthread.php?tid=46502)
المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة - وادي العوضي - 07-07-23
السلام عليكم اساتذتي الافاضل ورحمة والله وبركاته
جمعة مباركة طيبة عليكم جميعا في المرفقات برنامج معمول بالفيجوال بيسك6 وقاعدة بيانات اكسيس 2003 مقفولة برقم سري
( 13130022 ) اذا المساعدة في تشغيل استعلام الحاقي في هذه القاعدة من واجهة برنامج الفيجوال بيسك6 من خلال زر امر تشغيل استعلام مع وافر التحايا
وهذا البرنامج في المرفقات
RE: المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة - وادي العوضي - 08-07-23
السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
اذا امكن المساعدة مع وافر التحايا
RE: المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة - وادي العوضي - 08-07-23
السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
عملت تعديل على البرنامج بحيث عملت تشغيل الاستعلام من المايكرو وعند تشغيل الاستعلام من المايكرو او من الاستعلام نفسه يعمل بشكل ممتاز ويضيف سجل على جدول tbl1 ولكن المشكلة عندما اقوم بتشغيله على من واجهة الفيجوال بيسك6 بواسطة زر الامر تشغيل استعلام تخرج رسالة خطأ بأن تعذر على مايكرو افويس بفتح قاعدة البيانات
لانها مفتوحة من مستخدم او محذوفه
الرقم السري لقاعدة البيانات هو 13130022
وهذا هو البرنامج واتمنى التعديل على البرنامجين الذي في الاعلى وهذا البرنامج الذي في المرفقات مع وافر اتحايا لكي اتعلم اكثر
RE: المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة - ahmedabdelaliem - 08-07-23
السلام عليكم ورحمة الله وبركاته
اخي العزيز عدل على المثال المرفق سابقا هكذا
احذف الكود كاملا من الصفحة وضع هذا الكود
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
RE: المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة - وادي العوضي - 08-07-23
السلام عليكم استاذ احمد ورحمة الله وبركاته
شكرا جزيلا لمجهودك الاكثر من رائع الله يبارك بعمرك يا طيب جزاك الله خيرا نعم هذا هو المطلوب تماما هذا ما يخص المرفق سابقا
اذا امكن حل مشكلة الرسالة التي تخرج لي في المرفق الثاني بحيث اريد تشغيل الاستعلام من الماكرو من خلال واجهة الفيجوال بيسك لاني ايضا احتاجها وهذا البرنامج في المرفقات
مع جزيل الشكر والاحتارم لحضرتك استاذ احمد الطيب
وهذه صورة الرسالة التي تخرج لي بعد الضغط على زر امر تشغيل
RE: المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة - ahmedabdelaliem - 08-07-23
السلام عليكم ورحمة الله وبركاته
تفضل اخي الحبيب
بالتوفيق
RE: المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة - وادي العوضي - 09-07-23
الله يبارك بعمرك استاذ احمد الغالي جزاك الله خيرا نعم هذا هو المطلوب تماما
ممنون منك جدا وفيت وكفيت واسأل الله جل شأنه ان يمن عليك بالصحة والعافية والخير والبركات اللهم أمين يا رب العالمين