منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مشكلة داتا جريد بدون بيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مشكلة داتا جريد بدون بيانات (/showthread.php?tid=11186)



مشكلة داتا جريد بدون بيانات - slackgate - 20-01-15

أصدقائي الأعزاء

السلام عليكم ورحمة الله وبركاته

اليوم أنا أعمل على مثال لعرض بيانات قاعدة البيانات (أكسس 2007) من خلال آداة Data Grid View

ويتم الاتصال بنجاح بكل جداول قاعدة البيانات

ولكن تظهر فقط عناوين الحقول ولكن دون البيانات

سواء اعتمدت على Data table (المسمى dtst1) كـ Data Source

كود :
dtgst1.DataSource = dtst1

أو اعتمدت على الداتا سيت مباشرة

كود :
datasetst1.Tables("usrs")

في كل الحالات يتم الاتصال بنجاح، ولكن تظهر فقط رؤوس حقول الجدول، بدون البيانات سواء كانت باللغة العربية أو الإنجليزية

هل من توضيح لسبب المشكلة؟؟

تحياتي للجميع


RE: مشكلة داتا جريد بدون بيانات - سعود - 20-01-15

ياليت ترفع مشروع بنفس الطريقة هذه لعل الاطلاع افضل

كود :
dg.datasource=ds
dg.datamember="tb"



RE: مشكلة داتا جريد بدون بيانات - slackgate - 20-01-15

(20-01-15, 01:42 AM)سعود كتب : ياليت ترفع مشروع بنفس الطريقة هذه لعل الاطلاع افضل


تفضل أخي هذا هو مثالي

والجدير بالذكر أنني قمت بتجربة الطريقة التي تفضلت بذكرها من خلال الكود


كود :
       datagridv.DataSource = ds
       datagridv.DataMember = "tablename"

وأيضاً يتم الاتصال بالجدول وعرض عناوين الحقول دون عرض البيانات أي نفس النتيجة السابقة

مع العلم أن تلك الأكواد قد قمت بتجربتها مسبقاً في مشروع آخر مع قاعدة بيانات أخرى (أيضاً أكسس 2007) وكانت تعمل بطريقة طبيعية

وحاول استخدام قاعدة البيانات الأولى مع هذا المشروع ونفس النتيجة

حاولت أيضاً استخدام نفس أداة الداتا جريد في المشروع الأول ونفس النتيجة أيضاً


RE: مشكلة داتا جريد بدون بيانات - سعود - 20-01-15

كود :
sqlstrst1 = "SELECT * FROM [usrs]"
        const1.Open()
        Dim dast1 As New OleDbDataAdapter(sqlstrst1, const1)
        dast1.Fill(datasetst1, "usrs")

        Dim dtst1 As New DataTable
        dtst1 = datasetst1.Tables.Item("usrs")
        dtgst1.DataSource = datasetst1.Tables("usrs")


        const1.Close()
        ' dast1.Dispose()
        ' datasetst1.Clear()

شوف التعديل

السبب هو:
كود :
' dast1.Dispose()
        ' datasetst1.Clear()



RE: مشكلة داتا جريد بدون بيانات - slackgate - 20-01-15

(20-01-15, 02:01 AM)سعود كتب : السبب هو:

كود :
   ' dast1.Dispose()
       ' datasetst1.Clear()

أستاذي....

الآن فقط فهمت السبب، وهو أنني تخلصت من مصدر البيانات أساساً قبل عرضها على الأداة

لكن كل التحية والتقدير Heart Heart


RE: مشكلة داتا جريد بدون بيانات - سعود - 20-01-15

هذي تكفي
كود :
       dtgst1.DataSource = datasetst1.Tables("usrs")