DataSets

Como criar, adicionar tabelas, colunas e linhas

Declarar e instanciar um DataSet

Dim MyDataSet As DataSet
MyDataSet = New DataSet

Um DataSet pode conter várias tabelas

 MyDataSet.Tables.Add("Tabela1")

Aceder a tabela dentro do DataSet

Existem duas opções:

'Pelo Nome da Tabela
MyDataSet.Tables("Tabela1")
'Ou pelo indice
MyDataSet.Tables(0)

Adicionar Colunas dentro da Tabela1

MyDataSet.Tables(0).Columns.Add("Coluna0")
MyDataSet.Tables(0).Columns.Add("Coluna1")

Neste Momento temos a Tabela "Tabela1" dentro do MyDataSet com duas colunas criadas ("Coluna0","Coluna1")

Inserir linhas dentro do DataSet

Dim StrValores(1) As String
StrValores(0) = "1"
StrValores(1) = "Exemplo1"
MyDataSet.Tables(0).Rows.Add(StrValores)

No código descrito acima , é criado um array de String's com dois indices(0,1) que por sua vez é o mesmo numero de colunas criado na tabela. E depois é atribuir valores aos dois indices ao array de strings. Logo de seguida é adiciona a linha á tabela.

Aceder aos dados no DataSet

MyDataSet.Tables(0).Rows(0).Item(1)

Aqui acedemos à tabela de índice 0, à linha 0 e à coluna com índice 1, ou seja, a nossa segunda coluna.