Migração De Base De Dados

[Guest Wgp]

Fiz um programa para migração de base de dados e conecto via ODBC em uma base e seleciono os dados e vou

montando as querys de insert,minha dúvida:

- Criei um variavel do DADOSTAB do tipo ADODB.recordset, e mando ela executar e guardar um um select abaixo:

"select * from tabela1". Não executei ainda, por que estou com medo de o objeto ADODB.recordset não aguentar

tantos dados. A tabela tem 1 milhão de linhas. alguém já fez algo parecido, será que isso vai rodar, preciso

saber disso antes de mandar rodar. Segue o código:

Sub conecta()

' Conexão com o Banco de Dados

Dim StringConexao As String

Dim NomeODBC As String

Dim Usuario As String

Dim Senha As String

Dim rstDados As New ADODB.Recordset

Dim Pesquisa As String

Dim cnnDados As ADODB.Connection

Dim Testedados As String

Dim Insere As String

Dim fso As New Scripting.FileSystemObject

Dim ts As Scripting.TextStream

Dim contador As Long

NomeODBC = "fontedch"

Usuario = "DCOWN"

Senha = "123"

StringConexao = "Data Source='" & NomeODBC & "';User ID='" & Usuario & "';Password='" & Senha & "';"

Set cnnDados = New ADODB.Connection

cnnDados.ConnectionString = StringConexao

cnnDados.Open

rstDados.CursorLocation = adUseClient

Pesquisa = " select * from tbteste"

rstDados.Open Pesquisa, cnnDados

Testedados = rstDados!Nome

Set ts = fso.OpenTextFile("c:\meutexto.txt", ForWriting, True)

contador = 0

While Not (rstDados.EOF)

Insere = "insert into tbTeste (Codigo, Nome) values ('" & rstDados!codigo & "','" & rstDados!Nome & "');"

ts.Write (Insere)

ts.WriteBlankLines (1)

contador = contador + 1

If contador = 3 Then

ts.Write ("commit;")

ts.WriteBlankLines (1)

contador = 0

End If

rstDados.MoveNext

Wend

ts.Close

Set ts = Nothing

rstDados.Close

End Sub

Private Sub Command1_Click()

conecta

End Sub

Private Sub Text1_Change()

End Sub

[Donati]

Boa Tarde

Nunca fiz com tantos dados, porem já gerei recodsets com em torno de meio milhao de registros e não tive problema nenhum, a unica coisa é que sera um pouco demorado para executar

FUI!!!!!!!!

Donati

[Guest Wgp]

Donati você lembra quanto tempo demorou?

São muitas horas?

Obrigado,

Wgp

[Donati]

Cara não me lembro não faz algum tempo que fiz isso

Donati