Dim strSQL1 As String
Dim conn1 As New SqlConnectionStringBuilder() - создается объект строки подключения
conn1.DataSource = serv ' тута указывается имя сервера
conn1.InitialCatalog = bas ' тута указывается имя базы
conn1.IntegratedSecurity = True
Using cn1 As New SqlConnection(conn1.ConnectionString) - создается подключение
cn1.Open()
strSQL1 = " SELECT * FROM TblDol "
Dim da2 As New SqlDataAdapter(strSQL1, cn1) - создается и заполняется датаадаптер, в который сгружаются данные из таблицы TblDol
Dim ds2 As New DataSet() - создается датасет ( аналог рекордсета в аксе )
da2.Fill(ds2, "TblDol") - заполняется датасет данными из датаадаптера
With ds2
Me.ComboBox1.DataSource = .Tables("TblDol") - это аналог роусорса для комбобокса
Me.ComboBox1.DisplayMember = "NaimDol" - показывает что будет отображаться в комбобоксе
Me.ComboBox1.ValueMember = "IdDol" - задается значения комбобокса - типа аналог значений комбобокса в аксе (Column0)
End With
End Using - кирдык соединению
|