تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  السلام عليكم ورحمة الله وبركاته برجاء المساعدة فى تحويل تقرير اكتف ريبورت ل بى دي اف mhareek 9 180 28-11-20, 01:49 PM
آخر رد: sendbad100
  كراك لتشغيل  Skin  على ويندوز 7 عبدالسلام مصطفى 0 46 24-11-20, 09:34 PM
آخر رد: عبدالسلام مصطفى
  طلب كواد ترحيل بيانات منMSFlexGrid الي جدول ahmed201 3 101 15-11-20, 08:02 AM
آخر رد: sendbad100
  مشكلة اعادة ترقيم التلقائي في قاعدة بيانات اكسس ahmed201 8 278 25-10-20, 01:37 PM
آخر رد: sendbad100
  مساعدة في عرض بيانات محددة في التقرير مصمم هاوي 1 309 17-09-20, 08:39 PM
آخر رد: مصمم هاوي
  مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس مصمم هاوي 4 545 13-09-20, 03:57 AM
آخر رد: مصمم هاوي
Thumbs Up السلام عليكم... سؤال حول طباعة تقرير Activereports ... شكرا abdouhai 0 178 11-09-20, 02:46 PM
آخر رد: abdouhai
  طلب طريقة عمل جدولين في نفس التقرير ahmed250 0 368 24-08-20, 03:23 AM
آخر رد: ahmed250
  طريقة استخراج إنتهاء الاشتراك لعملاء ahmed250 2 279 17-08-20, 11:42 AM
آخر رد: ahmed250
  طلب طريقة استخدم طابعة بطابقة في الفيجوال بيسك6 ahmed250 2 314 07-08-20, 09:51 AM
آخر رد: ahmed250

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


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