تقييم الموضوع :
  • 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 ك ب / التحميلات : 85)
الرد }}}
تم الشكر بواسطة: 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 "الرقم" 

وهكذا
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام من عدة جداول لقاعدة بيانات اكسس Adel27213 1 702 07-11-23, 08:27 AM
آخر رد: justforit
  [سؤال] عدم إظهار الصور مع النص فى Listview من قاعدة البيانات alims 2 1,581 27-08-23, 12:22 PM
آخر رد: رضوان الجماعي
  [SQL] استفسار عن طريقة تحزم قواعد بيانات MSSQL مع البرنامج VB.NET2019 salemq 2 530 18-05-23, 03:02 AM
آخر رد: سعود
  ما معني بيانات تقع بين الرمز[] في حقل في داتا بيس bassant 3 672 03-04-23, 11:53 PM
آخر رد: sanyor77
  [نقاش] مشاركة قاعدة بيانات SQL على شبكه داخليه morkoskhalaf 3 3,009 06-01-23, 03:20 AM
آخر رد: عبدالكريم برشدان
  قاعدة بيانات xml djelloul 3 2,799 07-11-22, 10:27 PM
آخر رد: Am7
  [عنوان معدل]حفظ بيانات listbox fhad24 36 12,241 08-10-22, 06:55 PM
آخر رد: رضوان الجماعي
  استفسار عن تخزين الوقت في قاعدة البيانات strongriseman 2 1,126 22-04-22, 07:27 PM
آخر رد: strongriseman
  [سؤال] مشكلة فى عرض الصورة من ادخل قاعدة البيانات alims 2 1,264 17-11-21, 10:09 AM
آخر رد: سعود
  كيف اتجنب أخطاء ارسال قيم فارغة الى حقول رقمية في اكسس بسام محمدغانم 2 1,135 09-11-21, 02:09 AM
آخر رد: Anas Mahmoud

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


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