تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ربط جدوليين في قاعدة بيانات اكسس و عرض كل جدول في أداة MSfexgrid
#1
السلام عليكم..

ارجو المساعدة في كيفية ربط جدوليين موجوديين في قاعدة بيانات اكسس بحيث يمكنني عرض محتوى كل جدول و بشكل منفصل في آداة MSfexgrid.
لقد قمت بتصميم جدوليين في ملف اكسس اسمهما: st-tb, info وارغب بعرض محتوى كل جدول في MSfexgrid بشكل منفصل و بنفس الفورم.
هل يمكن عمل ذلك و ما هي الاكواد الازمة.

شكرا.
الرد }}}}
تم الشكر بواسطة:
#2


المثال مرفق
وهذا الكلاس
كود :
Imports System.Data.OleDb

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(str)

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        gd()
    End Sub
    Private Sub gd()
        Dim ds1 As New DataSet
        Dim ds2 As New DataSet

        Dim da1 As New OleDbDataAdapter("select tn from tb1", con)
        Dim da2 As New OleDbDataAdapter("select mo from tb2", con)



        ds1.Clear()
        ds2.Clear()
        g1.DataSource = Nothing
        g2.DataSource = Nothing


        da1.Fill(ds1, "tb1")
        da2.Fill(ds2, "tb2")


        g1.DataSource = ds1
        g1.DataMember = "tb1"


        g2.DataSource = ds2
        g2.DataMember = "tb2"

    End Sub
End Class


الملفات المرفقة
.zip   For_luai.zip (الحجم : 39.62 ك ب / التحميلات : 64)
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: luai
#3
شكرا لك اخي الكريم...
حاولت ان اتبع نفس الكود مع اجراء التعديل الملائم لكنني فشلت
علما اني استخدم اكسس 2000 وليس اكسس 2010 لا ادري انا كان ذلك يؤثر على الكود البرمجي
علما ان هذا هو الكود الذي اتبعته:
كود :
Imports System.Data
Imports System.Data.OleDb
Public Class basefrm
    Dim constr As String = "provider=microsoft.jet.oledb.4.0;" & _
"Data Source=" & Application.StartupPath & "\wwtp.mdb"
    Dim con As New OleDbConnection(constr)
    Dim dataset1 As New DataSet
    Dim dataset2 As New DataSet



    Private Sub basefrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con.Open()
        Dim dataadapter1 As New OleDbDataAdapter("select * from info", con)
        dataset1.Clear()
        infoview.DataSource = Nothing
        dataadapter1.Fill(dataset1, "info")
        Dim dataadapter2 As New OleDbDataAdapter("select * from st-tb", con)
        dataset2.Clear()
        stview.DataSource = Nothing
        dataadapter2.Fill(dataset2, "st-tb")
        con.Close()
        infoview.DataSource = dataset1
        infoview.DataMember = "info"
        stview.DataSource = dataset2
        stview.DataMember = "st-tb"

    End Sub
End Class

على علم ان الجدوليين هما (info, st-tb)

ارجو الاطلاع ان كان هناك اخطاء لم استطع اكتشافها.

شكرا جزيلا.
الرد }}}}
تم الشكر بواسطة:
#4
مدري لكن ما لاحظت خطا
هل فيه رسالة ظهرت لك عن خطا ما؟
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#5
الخطأ ظهر تحديدا عند العبارة:
كود :
dataadapter2.Fill(dataset2, "st-tb")
الرد }}}}
تم الشكر بواسطة:
#6
ورسالة الخطا ماهي؟
النص ماهو؟
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: luai
#7
شكرا لك اخي سعود...
المشكلة انه لم تنجح تسمية الحقول باللغة العربية اي عند محاولة ادخال بيانات لم تنجح العملية! و عند استبدالها باللغة الانكليزية حلت المشكلة.

لكن هل يمكنني التعامل مع اسم الحقل (العمود) باللغة الانكليزية وبنفس الوقت اود انا يظهر اسم الحقل في الفورم باللغة العربية؟
يعني كما في المثال الذي رفعته لي: هناك حقل اسمه mo ولكن اود ان تظهر التسمية "الرقم" على الفورم فكيف يمكن ذلك؟
كنا نستخدم خاصية في vb6 اسمها TextMatrix لم اجدها في دوت نت

الرجاء مساعدتي في هذا الامر.

شكرا.
الرد }}}}
تم الشكر بواسطة:
#8
هذي بسيطة
من خصائص الاداة مثلا شبيكة البيانات فيه خاصية اسمها Headertext
PHP كود :
DataGridView1.Columns(0).HeaderText "الرقم" 

وهكذا
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 108 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  ممكن تعديل كود انشاء قاعدة اكسس بالكود سعود 8 243 07-08-17, 11:26 PM
آخر رد: أبو نوره
  [مثال] مبتدئة ربط اكسس بفجيوال بيسك ام سفانة 3 190 21-07-17, 04:50 AM
آخر رد: ام سفانة
  تضمين قاعدة بيانات MySQL مع الرنامج Jounior_P 8 243 19-07-17, 01:58 PM
آخر رد: Jounior_P
Question [سؤال] كيف يتم تشغيل قاعدة بيانات SQL SERVER دون تنصيب MS SQL SERVER alimoi79 1 168 16-07-17, 02:56 AM
آخر رد: ابو ليلى
  تحويل ملف اكسس mdb الي sql server 2008 r2 atefkhalf2004 2 274 15-07-17, 03:57 PM
آخر رد: atefkhalf2004
  [كود] المساعدة في كود بحث برقم التسلسل اذا كان الرقم غير موجود داخل قاعدة بيانات تخرج رسالة وادي العوضي 3 153 14-07-17, 09:43 AM
آخر رد: وادي العوضي
Rainbow [VB.NET] كيف يمكنني الإتصال بملف قاعدة البيانات نوع Paradox sniperjawadino 2 153 12-07-17, 01:20 PM
آخر رد: sniperjawadino
  مشكله فى Load الخاص بفورم متصل بقواعد بيانات... للخبراء نبيل كونكت 0 70 08-07-17, 07:50 AM
آخر رد: نبيل كونكت
  البحث في قاعدة البيانات مع تجاهل التشكيل waelalmsry75 16 670 03-07-17, 05:04 AM
آخر رد: K39

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


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