تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] طريقة الاتصال بقاعدة بيانات اكسس 2003 محمية برقم سري لتشغيل تقرير معمول بالاكيف ريبو
#1
السلام عليكم اساتذتي الافاضل ورحمة الله
عملت رقم سري لقاعدة البيانات من نوع اكسس 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

مع وافر التحايا
الرد
تم الشكر بواسطة:
#2
الحمد لله والفضل لله جل وعلا توصلت الى الحل وهذا هو الكود :
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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في عرض بيانات محددة في التقرير مصمم هاوي 1 56 17-09-20, 08:39 PM
آخر رد: مصمم هاوي
  مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس مصمم هاوي 4 125 13-09-20, 03:57 AM
آخر رد: مصمم هاوي
Thumbs Up السلام عليكم... سؤال حول طباعة تقرير Activereports ... شكرا abdouhai 0 62 11-09-20, 02:46 PM
آخر رد: abdouhai
  طلب طريقة عمل جدولين في نفس التقرير ahmed250 0 229 24-08-20, 03:23 AM
آخر رد: ahmed250
  طريقة استخراج إنتهاء الاشتراك لعملاء ahmed250 2 145 17-08-20, 11:42 AM
آخر رد: ahmed250
  طلب طريقة استخدم طابعة بطابقة في الفيجوال بيسك6 ahmed250 2 165 07-08-20, 09:51 AM
آخر رد: ahmed250
  مشكله في كواد بحث في قاعدة بيانات اكسس ahmed250 2 156 07-08-20, 09:50 AM
آخر رد: ahmed250
  [سؤال] لايمكن الاتصال بقاعدة بيانات MYsql ناجح احمد 5 380 30-07-20, 03:10 AM
آخر رد: حريف برمجة
  [سؤال] كيف يتم اضافة اطار الى صفحة تقرير اكتف ريبورت ؟ ناجح احمد 3 252 26-07-20, 10:08 PM
آخر رد: ناجح احمد
  سؤال يخص اعدادت ورقة تقرير اكتيف ريبورت haider kh 5 349 04-07-20, 08:09 AM
آخر رد: haider kh

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم