Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Едрёныч
Покопался по форумам и заработало следующим образом:

Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient

Public Class Form2
Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim strConn, strSQL1 As String
strConn = "Data Source=.\SQLExpress;Initial Catalog=Northwind;Integrated Security=True;Asynchronous Processing=True;"
strSQL1 = "Select OrderID, CustomerID, OrderDate, ShippedDate, ShipCity" & _
" From Orders Where ShipCountry='Canada'"
Dim cn As New SqlConnection(strConn)
cn.Open()
Dim cmd As SqlCommand
cmd = New SqlCommand(strSQL1, cn)
Dim da1 As New SqlDataAdapter(cmd)
Dim ds1 As New DataSet()
da1.Fill(ds1, "Orders")
DataGridView1.DataBindings.Add("", (ds1), "Orders")

DataGridView1.DataMember = "Orders"
DataGridView1.DataSource = ds1

cmd.Connection.Close()
cmd.Connection.Dispose()
End Sub

End Class
всё равно тяжело пока, всё надо обмыслить.
Тогда при чём здесь ExecuteReader?
Получается, что примеры неполные или не подходят для 3,5.


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.