06-03-20, 11:23 AM
السلام عليكم اساتذتي الافاضل ورحمة الله
عملت رقم سري لقاعدة البيانات من نوع اكسس 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
مع وافر التحايا
عملت رقم سري لقاعدة البيانات من نوع اكسس 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
مع وافر التحايا