copiando un DBF a MySQL

juandedios · #1 (**permalink**) 28/12/2006, 14:57

Saludos a todos, hice este codigo para copiar una tabla DBF para un servidor MySQL, pero creo que algo esta mal, puesto que se demora mucho.

Podrian darle una chekada a este codigo quizas hay algo que estoy haciendo mal

Código:

Dim i As Long
    
    Set rsdos = New ADODB.Recordset
    rsdos.CursorLocation = adUseClient
    
    rsdos.Open "SELECT COUNT(*) AS numreg FROM periodo", CN, adOpenKeyset, adLockOptimistic, adCmdText
    
    prbActualizar.Max = rsdos("numreg")
    rsdos.Close
    
    Set rsdos = New ADODB.Recordset
    rsdos.Open "SELECT * FROM periodo", CN, adOpenKeyset, adLockOptimistic, adCmdText
    rsdos.MoveFirst
    
    'Limpiar la tabla productos en el servidor MySQL
    StrSql = "TRUNCATE TABLE periodobico"
    CNMySQL.Execute StrSql
    
    prbActualizar.Value = 1
    i = 0
    
    Do While Not rsdos.EOF
        StrSql = "INSERT INTO periodobico " & _
                 "(cupom, terminal, udata, produto, nproduto, unidade, custo, venda, qde, selecao) " & _
                 "VALUES " & _
                 "('" & rsdos("CUPOM") & "', '" & rsdos("TERMINAL") & "', '" & Format(rsdos("UDATA"), "yyyy-mm-dd") & "', '" & rsdos("PRODUTO") & "', '" & rsdos("NPRODUTO") & "', '" & rsdos("UNIDADE") & "', " & rsdos("CUSTO") & ", " & rsdos("VENDA") & ", " & rsdos("QDE") & ", '" & rsdos("SELECAO") & "')"
        CNMySQL.Execute StrSql
        
        rsdos.MoveNext
        i = i + 1
        prbActualizar.Value = i
    Loop
    MsgBox "La actualización de los productos fue un éxito.", vbInformation
    Unload Me

el objeto prbActualizar es un progressbar.

Korku · #2 (**permalink**) 08/01/2007, 11:25

Cita:

Iniciado por juandedios

Saludos a todos, hice este codigo para copiar una tabla DBF para un servidor MySQL, pero creo que algo esta mal, puesto que se demora mucho.

Podrian darle una chekada a este codigo quizas hay algo que estoy haciendo mal

Código:

Dim i As Long
 
    Set rsdos = New ADODB.Recordset
    rsdos.CursorLocation = adUseClient
 
    rsdos.Open "SELECT COUNT(*) AS numreg FROM periodo", CN, adOpenKeyset, adLockOptimistic, adCmdText
 
    prbActualizar.Max = rsdos("numreg")
    rsdos.Close
 
    Set rsdos = New ADODB.Recordset
    rsdos.Open "SELECT * FROM periodo", CN, adOpenKeyset, adLockOptimistic, adCmdText
    rsdos.MoveFirst
 
    'Limpiar la tabla productos en el servidor MySQL
    StrSql = "TRUNCATE TABLE periodobico"
    CNMySQL.Execute StrSql
 
    prbActualizar.Value = 1
    i = 0
 
    Do While Not rsdos.EOF
        StrSql = "INSERT INTO periodobico " & _
                 "(cupom, terminal, udata, produto, nproduto, unidade, custo, venda, qde, selecao) " & _
                 "VALUES " & _
                 "('" & rsdos("CUPOM") & "', '" & rsdos("TERMINAL") & "', '" & Format(rsdos("UDATA"), "yyyy-mm-dd") & "', '" & rsdos("PRODUTO") & "', '" & rsdos("NPRODUTO") & "', '" & rsdos("UNIDADE") & "', " & rsdos("CUSTO") & ", " & rsdos("VENDA") & ", " & rsdos("QDE") & ", '" & rsdos("SELECAO") & "')"
        CNMySQL.Execute StrSql
 
        rsdos.MoveNext
        i = i + 1
        prbActualizar.Value = i
    Loop
    MsgBox "La actualización de los productos fue un éxito.", vbInformation
    Unload Me

el objeto prbActualizar es un progressbar.

Hola,

¿De cuantos registros estamos hablando?

Saludos

juandedios · #3 (**permalink**) 12/01/2007, 09:01

muchos, 10000 y van aumentando cada dia