درج اطلاعات در combobox

[nazaninebaba]

با سلام من از كد زير تنها ميتمنم يك مقدار بيارم اگر به طور مثال خواستم نام در كنار نام خانوادگي قرار بگيره چيكار بايد بكنم.

populate_combo(ComboBox1, "lastname", "table1")


Function populate_combo(ByRef combo As ComboBox, ByVal sfield As String, ByVal stable As String)



Dim dc As New SqlCommand()
Dim dr As SqlDataReader
dc.CommandText = " select " & sfield & " from " & stable & " "

dc.Connection = conbank
dr = dc.ExecuteReader()
combo.Items.Clear()
dr.Read()
If dr.HasRows = True Then

While dr.Read
combo.Items.Add(dr(sfield))
End While

End If
end function

با سپاس

[Pr0grammer]

با سلام من از كد زير تنها ميتمنم يك مقدار بيارم اگر به طور مثال خواستم نام در كنار نام خانوادگي قرار بگيره چيكار بايد بكنم.

populate_combo(ComboBox1,

"lastname", "table1")



Function populate_combo(ByRef combo As ComboBox, ByVal sfield AsString, ByVal stable AsString)


Dim dc AsNew SqlCommand()
Dim dr As SqlDataReader
dc.CommandText = " select " & sfield & " from " & stable & " "


dc.Connection = conbank
dr = dc.ExecuteReader()
combo.Items.Clear()
dr.Read()


If dr.HasRows = TrueThen


While dr.Read
combo.Items.Add(dr(sfield))
EndWhile


EndIf
end function

با سپاس



سوالتون نا مفهومه! لطفاً کد هایتونو در # قرار دهید!
البته من فکر کنم مشکل شما در select و بعد توی ریختن اطلاعات در combo باشه!

[sepehr.net]

شما باید به این صورت عمل کنید

Dim Da As New SqlClient.SqlDataAdapter("Select Name,Family From Table1", Con)
Dim Dt As New DataTable
Da.Fill(Dt)
For i As Integer = 0 To Dt.Rows.Count - 1
ComboBox1.Items.Add(Dt.Rows(i)("Name") & Dt.Rows(i)("Family"))
Next

[nazaninebaba]

خيلي ممنون از جوابتون ممنون ميشم اگر اين كد م اصلاح كنيد .
من نميدونم چطوري كدارو بدون اينكه به هم بخورن بيارم اينجا اگه ممكنه بهم بگيد
متشكرم

[bah_jaf]

از عبارت زیر استفاده کن البته بدون فاصله
[ C O D E ]
اینجا هم کد بنویس
[ / C O D E ]

[Pr0grammer]

خيلي ممنون از جوابتون ممنون ميشم اگر اين كد م اصلاح كنيد .
من نميدونم چطوري كدارو بدون اينكه به هم بخورن بيارم اينجا اگه ممكنه بهم بگيد
متشكرم

کافیه کدتونو در محل پاسخ دادن، بیارید(Copy و Paste)، بعد همه رو انتخاب کنید و از منو، گزینه # رو انتخاب کنید.... با اینکار دیگه احتیاجی نیست کاری که bah_jaf اشاره کردند رو انجام بدید! خودش خودکار اونارو در ابتدا و انتهای کدتون قرار میده!

موفق باشید

[milade]

شما باید به این صورت عمل کنید
کد:
Dim Da As New SqlClient.SqlDataAdapter("Select Name,Family From Table1", Con) Dim Dt As New DataTable Da.Fill(Dt) For i As Integer = 0 To Dt.Rows.Count - 1 ComboBox1.Items.Add(Dt.Rows(i)("Name") & Dt.Rows(i)("Family")) Next


اینم درسته اما تکمیل کد خودتون:



Function populate_combo(ByRef combo As ComboBox, ByVal sfield AsString, ByVal stable AsString)



Dim dc AsNew SqlCommand()
Dim dr As SqlDataReader
dc.CommandText = " select " & sfield & " from " & stable & " "



dc.Connection = conbank
dr = dc.ExecuteReader()
combo.Items.Clear()
dr.Read()


If dr.HasRows = TrueThen



While dr.Read
combo.Items.Add(dr("sfield" & dr("family")))
EndWhile



EndIf


مگه چه مشکلی هست؟