• 0
gamal_orcl

Fill Combo Problem

سؤال

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

طلبت من قبل ممن يعلم أن يخبرني بكيفية تعبئة الكومبو بوكس من داتا بيز أكسس مع العلم إني بعد البحث و المحاولة وجدت بالمنتدي الحل و لكن لا يعمل معي فهناك رسالة خطأ تظهر لي لا أعلم سببها و هي في المرفقات فأرجو ممن لديه العلم بالحل أن يخبرني و من الأفضل بمثال سواء مكتوب(كود) أو مرفق و جزاكم الله خيراً.

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

عفواً الكود المستخدم هو :

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source =" & Application.StartupPath & "\candiate_result.mdb"

Dim Conn As New OleDbConnection(ConStr)

Dim ds As New DataSet

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim da As New OleDbDataAdapter("Select MODULE_no,MODULE_Name From MODULE Order by 1", Conn)

da.Fill(ds, "module")

ComboBox1.DataSource = ds.Tables("MODULE")

ComboBox1.DisplayMember = "MODULE_name"

ComboBox1.ValueMember = "MODULE_no"

End Sub

End Class

post-62853-1212522249_thumb.jpg

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

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

طلبت من قبل ممن يعلم أن يخبرني بكيفية تعبئة الكومبو بوكس من داتا بيز أكسس مع العلم إني بعد البحث و المحاولة وجدت بالمنتدي الحل و لكن لا يعمل معي فهناك رسالة خطأ تظهر لي لا أعلم سببها و هي في المرفقات فأرجو ممن لديه العلم بالحل أن يخبرني و من الأفضل بمثال سواء مكتوب(كود) أو مرفق و جزاكم الله خيراً.

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

عفواً الكود المستخدم هو :

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source =" & Application.StartupPath & "\candiate_result.mdb"

Dim Conn As New OleDbConnection(ConStr)

Dim ds As New DataSet

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim da As New OleDbDataAdapter("Select MODULE_no,MODULE_Name From MODULE Order by 1", Conn)

da.Fill(ds, "module")

ComboBox1.DataSource = ds.Tables("MODULE")

ComboBox1.DisplayMember = "MODULE_name"

ComboBox1.ValueMember = "MODULE_no"

End Sub

End Class

أخ جمال حياك الله

جرب التالي

ComboBox1.DataSource = ds
ComboBox1.DisplayMember = "Module.MODULE_name"
ComboBox1.ValueMember = "Module.MODULE_no"

و إن شاء الله تنحل معاك :)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

الظاهر ان المشكلة في جملة الاستعلام فالخطأ عندها

فالمشكلة ممكن ان تكون من

اسم الجدول خطأ او الاسم محجوز فالافضل وضعها بين الاقواس []

اسماء الحقول خطأ

وممكن المشكلة من الترتيب فبدل استخدام 1 استخدم اسم الحقل

ليصبح الاستعلام

Select MODULE_no,MODULE_Name From [MODULE] Order by MODULE_no

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

أود أن أشكركم حقاً علي ردكم السريع و المفيد و الحمد لله الكود إتنفذ و أتمني الرد علي سؤالين أخرين و أسف حقاً للإطالة

الأول : كيف يمكن أو أسهل طريقة لطباعة بيانات الداتا جريد بشكل منسق و جميل طبعاً.

الثاني : كيف يمكن تلوين الحقل في الداتا جريد بناءً علي شرط معين مع العلم إنه نص و ليس رقم .

و لكم مني جزيل الشكر .

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .