VBNet - Форум - Как правильно инициализировать DataSet и как ег...

Вопрос: Как правильно инициализировать DataSet и как ег... Добавлено: 11.09.03 12:00

Автор вопроса: Atma | ICQ: 161504457

Вот мой класс
Public Class AdoN_Command
         Public DS As DataSet
         Private AD As OleDb.OleDbDataAdapter
         Private Comm As OleDb.OleDbCommand
         Private DR As OleDb.OleDbDataReader
         Public Sub New(ByVal str_Sql As String, ByRef CNN As OleDb.OleDbConnection)
                             Comm = New OleDb.OleDbCommand()
                             Comm.Connection = CNN
                             Comm.CommandText = str_Sql
                             DR = Comm.ExecuteReader
                             DS = New DataSet()
                             AD = New OleDb.OleDbDataAdapter()
                             AD.SelectCommand = Comm
                             AD.Fill(DS, str_Sql)
Здесь возникает ошибка!!!!!!!!!!!!!!!!!!!!!! AD.Fill
                  End Sub
End Class
Как потом присвоить DataGrid-у этот обьект DataSet???

Ответить

Ответы Всего ответов: 2

Номер ответа: 1
Автор ответа:

Артём Л.

ICQ: 280044491

Вопросов: 43
Ответов: 227

Профиль | | #1

Добавлено: 12.09.03 15:54

а CNN открывается перед тем как попадает в конструктор?

DataGrid.DataSource=DS

Ответить

Номер ответа: 2
Автор ответа:

⊗WaX⊗

Вопросов: 26
Ответов: 325

Web-сайт: sapfir.cift.ru
Профиль | | #2

Добавлено: 12.09.03 20:46

Без слов :-}

Dim ds As DataSet '

Dim Conn As OleDbConnection '

Dim Ad As OleDbDataAdapter

Dim sSQL As String '

Dim Comm As OleDbCommand '

Dim Tablename As String

ds = New DataSet()

Tablename = "Продажи"

sSQL = "SELECT kolvo.№, kolvo.Кол_во, kolvo.Дата, kolvo.Имя, ottenki.Оттенок, ottenki.Марка FROM ottenki INNER JOIN kolvo ON ottenki.Код_оттенка = kolvo.Код_оттенка"

Conn = New OleDbConnection()

Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0ata Source=" & "ДБ.mdb"

Conn.Open()

Comm = New OleDbCommand(sSQL, Conn) '

Comm.Connection = Conn '

Ad = New OleDbDataAdapter() '

Ad.SelectCommand = Comm '

Ad.Fill(ds, Tablename) '

dvprod = New DataView(ds.Tables("Продажи"), DEFAULT_FILTER, DEFAULT_SORT, DataViewRowState.OriginalRows)

'DataGrid1.Expand(-1)

DataGrid1.DataSource = dvprod 'ds.Tables(Tablename)

ds.WriteXml("data.xml")

Ответить

Страница: 1 |