سؤال

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

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

 
مشكلتي هي في تعبئة 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)TryDim VarSql As StringVarSql = ""VarSql = "select" + Col_Name + "," + Col_Value + " from" + TableName + "" + WHRDim sda As New SqlDataAdapter(VarSql, sqlcon)Dim ds As New DataSet()sda.Fill(ds)cbo.DataSource = ds.Tables(3)cbo.DisplayMember = Col_Namecbo.ValueMember = Col_ValueCatchEnd TryEnd SubEnd Class

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

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadWinClass.FillComboBox(ComboBox1, "Type", "TypeName", "TypeId", "")End Sub
تم تعديل بواسطه hawk1
0

شارك هذا الرد


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

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

  • 0

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

 

أولاً هناك خطأ ولكنك تتجاهله بوجود عبارة 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

شارك هذا الرد


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

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

 

أولاً هناك خطأ ولكنك تتجاهله بوجود عبارة 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: 

0

شارك هذا الرد


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

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

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