2013-07-25 4 views
0

У меня есть несколько полей со списком, которые необходимы для отображения имен кандидатов, от президента до музы, без нажатия каких-либо кнопок, но я не знаю, как это сделать ..Как отображать записи из базы данных с помощью vb.net

Открытый класс Frm_ElemBallot

Private Sub ComboBox7_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox7.SelectedIndexChanged 

End Sub 

Private Sub Frm_ElemBallot_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

End Sub 

End Class

, как я должен подключить его к базе данных?

+0

Пожалуйста, поиск [Google] (https://www.google.com/search?q=populate+combobox+vb. чистый и RLZ = 1C1AFAB_enUS452US452 & OQ = заселить + выпадающий + VB & AQS = chrome.2.69i57j0l3.4232j0 & SourceId = хром и т = UTF-8 # безопасно = выкл и RLZ = 1C1AFAB_enUS452US452 & sclient = пси-аб & д = заселить + выпадающий + vb.net + база данных & OQ = заселить + выпадающий + vb.net + DA & gs_l = serp.1.0.0i22i30l4.5829.6496.0.7396.3.3.0.0.0.0.158.411.0j3.3.0 .... 0.0..1c.1.20.psy-ab.mN6fPsjuvDs & = 1 PBX & БАВ = on.2, or.r_qf . & BVM = bv.49784469% 2Cd.aWc% 2Cpv.xjs.s.en_US.MpiVkF51mp A.O & fp = 1fb426de7cf3e564 & biw = 1110 & bih = 759), есть *** много *** результатов – Dom

ответ

0

вы должны попробовать этот путь

Пример кода:

Try 
      Dim cn As SqlConnection 
      Dim strCnn As String = "Your data base connection string" 
      cn = New SqlConnection(strCnn) 
      cn.Open() 
      Dim comm As New SqlCommand("Your sp or Command text to get the data from DB", cn) 
      '' If ur using Sp then Commandtype= CommandType.StoredProcedure if 'is Text then comm.CommandType=CommandType.Text 
      comm.CommandType = CommandType.StoredProcedure 
      Dim da As New SqlDataAdapter(comm) 
      Dim ds As New DataSet 
      da.Fill(ds) 
      ListBox1.Items.Clear() 
      If ds.Tables.Count > 0 And ds.Tables(0).Rows.Count > 0 Then 
       ListBox1.DataSource = ds 
      End If 
      ''Close your connections and commands. 
     Catch ex As Exception 
      ''Handle error if any 
     End Try 
Смежные вопросы