LEITURA DE TABELAS
Olá turma,
Sou iniciante em vb.net e estou tendo dificuldade em converter a rotina abaixo de vb6 para o vb.net.
Dim rsSD As New ADODB.Recordset
Dim rsTabP As New ADODB.Recordset
Dim rsTemp As New ADODB.Recordset
...
rsDC.MoveFirst
Do Until rsDC.EOF
mNumCart = mNumCart + 1
TempQuery = [Ô]Select * From tbTabP Order by curDE,curATE,curVALOR[Ô]
Set tbTabP = Conexao.Execute(TempQuery)
Do Until tbTabP.EOF
TempQuery = [Ô]Select * From tbSD Where intCodigo = [Ô] & rsDC!intCodigo & [Ô] and curValor = [Ô] & tbTabP!curValor
Set rsTemp = Conexao.Execute(TempQuery)
If rsTemp.EOF Then
TempQuery = [Ô]Insert Into tbSD (intCodigo,dtmData,curValor,intQuant) values ([Ô] & rsDC!intCodigo & [Ô],[ô][Ô] & Format(mDataMov, [Ô]yyyymmdd[Ô]) & [Ô][ô],[Ô] & tbTabP!curValor & [Ô],0)[Ô]
Conexao.Execute (TempQuery)
End If
rsTemp.Close
tbTabP.MoveNext
Loop
tbTabP.Close
rsDC.MoveNext
Loop
rsDC.Close
...
HELP...
Sou iniciante em vb.net e estou tendo dificuldade em converter a rotina abaixo de vb6 para o vb.net.
Dim rsSD As New ADODB.Recordset
Dim rsTabP As New ADODB.Recordset
Dim rsTemp As New ADODB.Recordset
...
rsDC.MoveFirst
Do Until rsDC.EOF
mNumCart = mNumCart + 1
TempQuery = [Ô]Select * From tbTabP Order by curDE,curATE,curVALOR[Ô]
Set tbTabP = Conexao.Execute(TempQuery)
Do Until tbTabP.EOF
TempQuery = [Ô]Select * From tbSD Where intCodigo = [Ô] & rsDC!intCodigo & [Ô] and curValor = [Ô] & tbTabP!curValor
Set rsTemp = Conexao.Execute(TempQuery)
If rsTemp.EOF Then
TempQuery = [Ô]Insert Into tbSD (intCodigo,dtmData,curValor,intQuant) values ([Ô] & rsDC!intCodigo & [Ô],[ô][Ô] & Format(mDataMov, [Ô]yyyymmdd[Ô]) & [Ô][ô],[Ô] & tbTabP!curValor & [Ô],0)[Ô]
Conexao.Execute (TempQuery)
End If
rsTemp.Close
tbTabP.MoveNext
Loop
tbTabP.Close
rsDC.MoveNext
Loop
rsDC.Close
...
HELP...
Procure por artigos na WEB que trate sobre a nova tecnologia de acesso à dados do .NET FRAMEWORK, ADO.NET.
ADO.NET 2.0 - DataTable e DataSet
ADO.NET 2.0 - DataTable e DataSet
Tópico encerrado , respostas não são mais permitidas