منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] طريقة الاتصال بقاعدة بيانات اكسس 2003 محمية برقم سري لتشغيل تقرير معمول بالاكيف ريبو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] طريقة الاتصال بقاعدة بيانات اكسس 2003 محمية برقم سري لتشغيل تقرير معمول بالاكيف ريبو (/showthread.php?tid=33686)

طريقة الاتصال بقاعدة بيانات اكسس 2003 محمية برقم سري لتشغيل تقرير معمول بالاكيف ريبو - وادي العوضي - 06-03-20

السلام عليكم اساتذتي الافاضل ورحمة الله
عملت رقم سري لقاعدة البيانات من نوع اكسس 2003 وهي تعمل بصورة صحيحة وشغالة عند فتح البرنامج ولكن واجهتني مشكلة عند فتح التقرير
التقرير معمول بالاكتف ريبورت طبعا عند الغاء كلمة المرور لقاعدة البيانات التقرير يعمل بشكل صحيح وهذا هو الكود في الاسفل يرجى التعديل عليه (كلمة المرور هي : 123 )

هذا كود الاتصال بقاعدة البيانات للبرنامج :
Set db = OpenDatabase(".\compny.mdb", False, False, ";pwd=123")

وهذا الكود لفتح التقرير الذي اريد التعديل عليه لفتحه بعد وضع كلمة مرور لقاعدة البيانات :

Private Sub Command14_Click()
Unload Report1
Report1.DataControl1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\compny.mdb;Persist Security Info=False"
If Text4.Text = "" Then
Report1.DataControl1.Source = "Select * From [tbl1]"
Else
Report1.DataControl1.Source = "Select * From [tbl1] WHERE [IDnum] = " & Trim(Text4.Text)
End If
Report1.Show
End Sub

مع وافر التحايا

RE: طريقة الاتصال بقاعدة بيانات اكسس 2003 محمية برقم سري لتشغيل تقرير معمول بالاكيف ريبو - وادي العوضي - 06-03-20

الحمد لله والفضل لله جل وعلا توصلت الى الحل وهذا هو الكود :
Unload Report1
Report1.DataControl1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBBig Grinatabase Password=123; Data Source=" & App.Path & "\compny.mdb"
If Text4.Text = "" Then
Report1.DataControl1.Source = "Select * From [tbl1]"
Else
Report1.DataControl1.Source = "Select * From [tbl1] WHERE [IDnum] = " & Trim(Text4.Text)
End If
Report1.Show