+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ماهو الخطاء في هذا الكود (/showthread.php?tid=36311)
ماهو الخطاء في هذا الكود - عمور2016 - 06-09-20
سلام عليكم ورحمة الله وبركاته
ماهو الخطاء في هذا الكود
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(query, Conn)
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
RE: ماهو الخطاء في هذا الكود - حريف برمجة - 06-09-20
(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(query, Conn)
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"بالتوفيق للجميع ،،