منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مامعنى الرسالة التالية؟؟؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
Failed to load database information.

تظهر هذه الرسالة عند تنفيذ البرنامج وهذا هو الكود الذي استخدمه في البرنامج....!
ds.Clear()
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = haider.mdb"
cn.Open()
sql = "select * from course where c_no = " + TextBox1.Text
dtadpt = New OleDbDataAdapter(sql, cn)
dtadpt.Fill(ds, "tra1")
sql = " select * from trained where c_no = " + TextBox1.Text
dtadpt = New OleDbDataAdapter(sql, cn)
dtadpt.Fill(ds, "tra")
rpt.SetDataSource(ds)
CrystalReportViewer1.ReportSource = rpt
CrystalReportViewer1.RefreshReport()
cn.Close()
يا إسراء،

هناك عدم تطابق لأسماء الجداول:
تم الاستعلام من الجدول course ولكن اسم tra1 مختلف
ونفس الشي للجدول trained والاسم tra

لو وضعت المشروع ممكن تنحل المشكلة

هذا تعديل لآسماء الجداول ممكن يفيد
PHP كود :
ds.Clear()
cn.ConnectionString "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = haider.mdb"
cn.Open()
sql "select * from course where c_no = " TextBox1.Text
dtadpt 
= New OleDbDataAdapter(sqlcn)
dtadpt.Fill(ds"course")
sql " select * from trained where c_no = " TextBox1.Text
dtadpt 
= New OleDbDataAdapter(sqlcn)
dtadpt.Fill(ds"trained")
rpt.SetDataSource(ds)
CrystalReportViewer1.ReportSource rpt
CrystalReportViewer1
.RefreshReport()
cn.Close() 
[attachment=10875][attachment=10875]
PHP كود :
ds.Clear()
cn.ConnectionString "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = haider.mdb"
cn.Open()
sql "select * from course where c_no = " TextBox1.Text
dtadpt 
= New OleDbDataAdapter(sqlcn)
dtadpt.Fill(ds"course")
sql " select * from trained where c_no = " TextBox1.Text
dtadpt 
= New OleDbDataAdapter(sqlcn)
dtadpt.Fill(ds"trained")
rpt.SetDataSource(ds)
CrystalReportViewer1.ReportSource rpt
CrystalReportViewer1
.RefreshReport()
cn.Close() 
السلام عليكم  لكن اخي ليس المشكلة في الكود... لأن الكود كان مثل ماتفضلت وأشرت..لكن اعتقد في التقرير هل يمكنك أن تساعدني اكثر Undecided [attachment=10875]
rpt1.setdatasource(datagridview1.datasource)
او

rpt1.setdatasource(table)
بس أنا لا أستعمل الداتاقريد فيو ....وكذلك إذا استعملت الجملة الثانيةبيكون لازم استعمل جدول واحد وانا عندي اكثر من جدوال....!
هناك خطا انت مادام تعمل بالكريستل ريبورت الاول ليش تنشا اوبجكت وتعطيلوا الدتا سورس
هذا خطا
rpt1.setdatasource(ds)
جرب هذا

Dim crystal As New CrystalReport1
crystal.SetDataSource(ds)
CrystalReportViewer1.ReportSource = crystal
CrystalReportViewer1.Refresh()
[attachment=10877]same thing
ليس واضح اخي
سؤال هل انت مغير الاعدادات الافتراضية للكريستال ريبورت
ثانيا جرب عدم الدمج بين (ds) جرب انشاء متغيرين
[attachment=10881]
  Shy  نعم لقد ظهرت لي الرسالة التي في الصورة وتتبعت المسار ونقلت الملف من مكانه لكن حاليا أعدته وهاهي الرسالة تظهر من جديد