ник: Мюллер
Вот простой пример использования датаридера.
Допустим из базы под названием MySQLBase нужно вытащить из таблицы TblListObj вытащить наименование объекта (NaimObj) и город в котором он находится (CitiObj) для объекта c ID=1 ( IdObj)
Сначала идет подключение необимых специализированных классов
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 Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Объявляем строку подключения и параметры подключения
Dim conn1 As New SqlConnectionStringBuilder()
conn1.DataSource = System.Environment.MachineName() '- имя сервера. В данном случае совпадает с именем машины
conn1.InitialCatalog = "MySQLBase"
conn1.IntegratedSecurity = True
Dim cn1 As New SqlConnection(conn1.ConnectionString) - 'Обявляем строку подключения
Dim strSQL1 as String
cn1.Open()
strSQL1 = " SELECT * FROM dbo.TblListObj WHERE IdObj=1"
Dim cmd1 As New SqlCommand(strSQL1, cn1) ' Объявление объекта Command
Dim rdr1 As SqlDataReader = cmd1.ExecuteReader() - 'Объявление объекта DataReader
Считывание данных из таблицы и занесение их в соответствующие текстовые поля.
Do While rdr1.Read
Me.LabNaim.Text = (rdr1("NaimObj"))
Me.LabCiti.Text = (rdr1("CitiObj"))
Loop
rdr1.Close()
cn1.Close()
End Sub
End Class
Вот и фсе. Не правдали, очень напоминает работу с рекордсетом? 