ник: FORMAT
С VB2008 я никогда не работал - это .Net3.5 . Когда-то делал на VB2005. А между ними есть небольшие отличия - в VB2008 вроде возможностей больше.
Вот небольшой пример
В модуле объявляются переменные
Public servname As String = "Тут должно стоять имя сервера"
Public basename As String = "Тут должно стоять название базы данных"
Ну и далее в классе формы
Imports System.Drawing
Imports System.Data.SqlClient.SqlConnectionStringBuilder
Imports System.Data.SqlClient
Imports System.Windows.Forms.Form
Imports System.Data
Imports System.Data.DataSet
Imports System.Data.DataColumn
Public Class FormName ' имя формы
Private Sub FormName_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' Пример работы с объектом DataReader
Dim conn1 As New SqlConnectionStringBuilder()
conn1.DataSource = servname
conn1.InitialCatalog = basename
conn1.IntegratedSecurity = True
Dim cn1 As New SqlConnection(conn1.ConnectionString)
cn1.Open()
strSQL1 = " SELECT Field1,Field2 ,Field3 FROM Tbl1"
Dim cmd1 As New SqlCommand(strSQL1, cn1)
Dim rdr1 As SqlDataReader = cmd1.ExecuteReader()
Do While rdr1.Read
Me.Label1.Text = (rdr1("Field1"))
Me.Label2.Text = (rdr1("Field2"))
Me.Label3.Text = (rdr1("Field3"))
Loop
rdr1.Close()
cn1.Close()
' Пример работы с объектом Dataset
Dim conn As New SqlConnectionStringBuilder()
conn.DataSource = servname
conn.InitialCatalog = basename
conn.IntegratedSecurity = True
Using cn As New SqlConnection(conn.ConnectionString)
cn.Open()
strSQL = " SELECT * FROM TblPassport "
Dim da1 As New SqlDataAdapter(strSQL, cn)
Dim ds1 As New DataSet()
da1.Fill(ds1, "TblPassport")
With ds1
Me.ComboBox1.DataSource = .Tables("TblPassport") ' Можно просто поставить = ds1 вместо .Tables("TblPassport")
Me.ComboBox1.DisplayMember = "NaimObj"
Me.ComboBox1.ValueMember = "IdPassport"
End With
End Using
End sub
End Class
В общем как-то так. А вообще почитайте книжки по ADO.NET. Без этого - никак не получится полноценно работать с базами данных.