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

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

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

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

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

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

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

كود :

dtgst1.DataSource = dtst1

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

كود :

datasetst1.Tables("usrs")

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

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

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

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

كود :

dg.datasource=ds

dg.datamember="tb"

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

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

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

كود :

       datagridv.DataSource = ds

        datagridv.DataMember = "tablename"

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

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

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

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

كود :

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()

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

كود :

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

أستاذي....

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

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

هذي تكفي

كود :

       dtgst1.DataSource = datasetst1.Tables("usrs")

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

slackgate

سعود

slackgate

سعود

slackgate

سعود