Através desta Classe pode ser feita a transferência de dados via DTS para alguma base de dados (TXT, DBF, Access, SQL Server, Oracle, DB2, etc...)

O SQL Server tem uma ferramenta muito poderosa para exportar dados, de um DBF para o Oracle por exemplo, diretamente sem precisar acessar os dados (leitura). É muito útil para tabelas carregadas, para pouca informação talvez seja mais fácil utilizar outro método. Abaixo segue algumas formas de utilizar o DTS do SQL Server pelo VB. Existe a possibilidade de criar o DTS em tempo de execução, mas vamos deixar para o próximo artigo. -------------------------------------------------------Obs.: Executa a chamada do DTS, mas não retorna uma resposta do progresso da execução. References Microsoft DTSPackage Object Library Dim pkg As New DTS.Package Public Sub ExecutaDTS()     pkg.LoadFromSQLServer "Servidor", "Usuario", "Senha", DTSSQLStgFlag_UseTrustedConnection, , , , "NOME_DTS"      End Sub -------------------------------------------------------Obs.: Executa a chamada do DTS com a tela do SQL Server de progresso da execução, mas não finaliza a tela. References Microsoft SQLNamespace Object Library Dim lErr As Long lErr = fctDTSExecuteSQLNamespace("NOME_DTS", "Servidor", "Usuario", "Senha", True) -------------------------------------------------------Obs.: Executa a chamada do DTS e retorna log para visualizar o progresso de execução, Pode ser programado também no próprio Form. References Microsoft DTSPackage Object Library Microsoft DTS Custom Tasks Object Library Microsoft DTSDataPump Scripting Object Library 'Criar a Seguinte Variavel Public Executa_DTS As Executa_DTS 'Para Executar Set Executa_DTS = New Executa_DTS Call Executa_DTS.LoadDTSSQLServer("Servidor", "Usuario", "Senha", "Nome_DTS") If Executa_DTS.IniciaExecDTS = False Then                      Exit Sub                      End If Rotina para utilizar com a seguinte anexada.

Quebra-Linha

Colaborador..: Alexandre Martins Placido
Categoria(s).: Programação; Banco de Dados; Microsoft SQL Server; Visual Basic;
Versão.......: VB6.0
Data.........: 11/03/2004 23:30:19
Visualizado..: 13942 vezes
Fonte........: 1.0