منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ماهو الخطاء في هذا الكود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
سلام عليكم ورحمة الله وبركاته

ماهو الخطاء في هذا الكود
PHP كود :
   Sub combo()
 
       ComboBox1.Items.Clear()
 
       Dim query As String
        Dim command 
As SqlCommand
     
'يؤشر ان الخطا هنا لماذا   Dim reader As SqlDataAdapter

        '
فحص الاتصال بقاعدة البيانات
        If Conn
.State ConnectionState.Closed Then
            Conn
.Open()
 
       End If
 
       query "SELECT distinct [nationlz] FROM [nationalz_3]"
 
       command = New SqlCommand(queryConn)
 
       reader command.ExecuteReader()
 
       If reader.HasRows Then
            While reader
.Read()
 
               ComboBox1.Items.Add(reader(0))
 
               '    Label11.Text = reader.FieldCount
            End While
        End If
        reader.Close()
        Conn.Close()

    End Sub 

تم حل الموضوع


datareader
(06-09-20, 02:12 PM)عمور2016 كتب : [ -> ]سلام عليكم ورحمة الله وبركاته

ماهو الخطاء في هذا الكود
PHP كود :
   Sub combo()
 
       ComboBox1.Items.Clear()
 
       Dim query As String
        Dim command 
As SqlCommand
     
'يؤشر ان الخطا هنا لماذا   Dim reader As SqlDataAdapter

        '
فحص الاتصال بقاعدة البيانات
        If Conn
.State ConnectionState.Closed Then
            Conn
.Open()
 
       End If
 
       query "SELECT distinct [nationlz] FROM [nationalz_3]"
 
       command = New SqlCommand(queryConn)
 
       reader command.ExecuteReader()
 
       If reader.HasRows Then
            While reader
.Read()
 
               ComboBox1.Items.Add(reader(0))
 
               '    Label11.Text = reader.FieldCount
            End While
        End If
        reader.Close()
        Conn.Close()

    End Sub 

تم حل الموضوع


datareader

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

اولاً جزاك الله خير على نشر الحل .

الواضح من الكود تبعك تريد تعبئة كومبو بوكس ببيانات حقل من الجدول .

اقترح عليك هذا الكود والرأي لك .


كود :
Dim da As New SqlDataAdapter("SELECT distinct [nationlz] FROM [nationalz_3]", Conn)
Dim dt As New DataTable
da.Fill(dt)
ComboBox1.datasource = dt
ComboBox1.displaymember = "nationlz"

بالتوفيق للجميع ،،