ADODB.RECORDSET
Boa tarde
estou migrando de vb6 para vbnet- Banco de Dados Firebird 2.1
no vb6 eu faço isso
Set RsAdo = New ADODB.Recordset
RsAdo.Fields.Append [Ô]ID[Ô], adInteger
RsAdo.Fields.Append [Ô]Data[Ô], adDate
RsAdo.Fields.Append [Ô]Troco1[Ô], adDouble
RsAdo.Open
após isso eu faço os select em vairas tabelas e adiciono
set Rs1!cnn.execute([Ô]Select * from tblVenda[Ô])
do While not rs1.EOF
rsado.AddNew
Rsado!ID=rs1!ID
rsado!Data=rs1!Data
rsado!Troco=Rs1!Troco
Rsado.Update
Passo o recordset para o relatório
Relatorio.Datasource=Rsado
pergunto
no vbnet tem algo que substitua o metodo acima ? para que não precise utilizar gravar em tabelas no banco de dados
Obrigado
estou migrando de vb6 para vbnet- Banco de Dados Firebird 2.1
no vb6 eu faço isso
Set RsAdo = New ADODB.Recordset
RsAdo.Fields.Append [Ô]ID[Ô], adInteger
RsAdo.Fields.Append [Ô]Data[Ô], adDate
RsAdo.Fields.Append [Ô]Troco1[Ô], adDouble
RsAdo.Open
após isso eu faço os select em vairas tabelas e adiciono
set Rs1!cnn.execute([Ô]Select * from tblVenda[Ô])
do While not rs1.EOF
rsado.AddNew
Rsado!ID=rs1!ID
rsado!Data=rs1!Data
rsado!Troco=Rs1!Troco
Rsado.Update
Passo o recordset para o relatório
Relatorio.Datasource=Rsado
pergunto
no vbnet tem algo que substitua o metodo acima ? para que não precise utilizar gravar em tabelas no banco de dados
Obrigado
Qual é o relatório que irás utilizar no .NET?
Neste caso, vc pode trabalhar com DataSet, inclusive pode acrescentar várias tabelas e relacionamentos. Vc pode executar consultas nos DataSets normalmente.
Pesquise sobre dataset e datarow que vc conseguirá fazer.
Essa linha abaixo retorna um DataRow
Dim DR As DataRow()
DR = SeuDataSet.Tables(0).Select([Ô]COLUNACRITERIO=[ô][Ô] & SEUCRITERIOTXT & [Ô][ô][Ô])
Pesquise sobre dataset e datarow que vc conseguirá fazer.
Essa linha abaixo retorna um DataRow
Dim DR As DataRow()
DR = SeuDataSet.Tables(0).Select([Ô]COLUNACRITERIO=[ô][Ô] & SEUCRITERIOTXT & [Ô][ô][Ô])
bom consegui igualzinho estava usando no vb6, para isso bastei acrescentar referencia a biblioteca adodb do vbnet
Tópico encerrado , respostas não são mais permitidas