الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في تعبئة ال comboBox

بدأه hawk1 في 9 فبراير 2014 · 2 رد · 1,275 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
comboBoxvbvisual studioكامبوبوكسmicrosoft visual studioconnect comboBoxlistBOXform load
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

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

 
مشكلتي هي في تعبئة comboBox.......  حيث لاتتعبئ مع عدم ظهور خطأ في الكود. وسوف اقوم بتوضيح الاكواد ....  

 

هذا كلاس يحنوي على دالة تقوم بتعبئة ال comboBox

' دالة تعبئة الكمبو بوكس
Public Sub FillComboBox(ByVal cbo As ComboBox, ByVal TableName As String, ByVal Col_Name As String, ByVal Col_Value As String, ByVal WHR As String)
Try
Dim VarSql As String
VarSql = ""
VarSql = "select" + Col_Name + "," + Col_Value + " from" + TableName + "" + WHR
Dim sda As New SqlDataAdapter(VarSql, sqlcon)
Dim ds As New DataSet()
sda.Fill(ds)
cbo.DataSource = ds.Tables(3)
cbo.DisplayMember = Col_Name
cbo.ValueMember = Col_Value

Catch

End Try
End Sub
End Class

وهذا كود الذي يقوم بربط الcomboBox  بالجدول

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
WinClass.FillComboBox(ComboBox1, "Type", "TypeName", "TypeId", "")


End Sub

تم تعديل هذه المشاركة بواسطة hawk1 في 10 فبراير 2014 في 00:09

#2

السلام عليكم...

 

أولاً هناك خطأ ولكنك تتجاهله بوجود عبارة Catch فارغة. إذا أردت أن نعرف الخطأ فاجعل عبارة Catch و ما بعدها هكذا مثلاً:

Catch ex As Exception
    MsgBox("ERROR: " & ex.Message)
End Try

أو نفذ الكود دون Try (أوقف سطور Try و Catch و End Try).

 

ثانيا الخطأ كتابي في صياغة جملة SELECT:

' الكود المرفق
VarSql = "select" + Col_Name + "," + Col_Value + " from" + TableName + "" + WHR

' الصحيح
VarSql = "select " + Col_Name + "," + Col_Value + " from " + TableName + " " + WHR

* لاحظ الفراغ بعد كلمة SELECT حتى لا تلتصق باسم الحقل المشار إليه بـ Col_Name و بعد FROM حتى لا تلتصق باسم الجدول المشار إليه بـ TableName.

 

*** ملاحظة:

الكود يخص VB.NET بينما هنا منتدى VB 6. ربما يقوم أحد الإخوة المشرفين بنقله إلى القسم الصحيح.

 

نرجو الاستفادة و السلام.

1

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

#3
najy_zl كتب:

السلام عليكم...

 

أولاً هناك خطأ ولكنك تتجاهله بوجود عبارة Catch فارغة. إذا أردت أن نعرف الخطأ فاجعل عبارة Catch و ما بعدها هكذا مثلاً:

Catch ex As Exception
    MsgBox("ERROR: " & ex.Message)
End Try

أو نفذ الكود دون Try (أوقف سطور Try و Catch و End Try).

 

ثانيا الخطأ كتابي في صياغة جملة SELECT:

' الكود المرفق
VarSql = "select" + Col_Name + "," + Col_Value + " from" + TableName + "" + WHR

' الصحيح
VarSql = "select " + Col_Name + "," + Col_Value + " from " + TableName + " " + WHR

* لاحظ الفراغ بعد كلمة SELECT حتى لا تلتصق باسم الحقل المشار إليه بـ Col_Name و بعد FROM حتى لا تلتصق باسم الجدول المشار إليه بـ TableName.

 

*** ملاحظة:

الكود يخص VB.NET بينما هنا منتدى VB 6. ربما يقوم أحد الإخوة المشرفين بنقله إلى القسم الصحيح.

 

نرجو الاستفادة و السلام.

  جزاك الله خير فعلاً تم الحل ... دعواتي لك بالصحة والعافية والرزق الطيب المبارك فيه :yuppie: 

مواضيع مشابهة