none
exportando dados da tabela do SQL para txt ouu word no VB6 RRS feed

  • Pergunta

  • Bom dia!

    Galera, tem uma tabela Alunos, preciso pegar as informacoes que estao nessa tabela no banco SQL SERVER e exportar para um txt ou word, utilizando o VB6.

    Alguém poderia me passar o código? Tenho que estudar esse codigo.

    Valeu

    sexta-feira, 19 de outubro de 2012 10:27

Respostas

  • Oi recomendações a todos

    O parâmetro que vc deve definir são:

    Type aqrTxt

    Nome As String * 10
    Emdereco As String  * 15
    Numero  As String  * 5
    Cidade As String * 10
    Bairro As String * 10
    Cep As Trimg *  9
    End Type

    Este e o procedimento inicial esta variáveis definidas pelo usuário
    Vc pode também definir o Nome As String * 256 e o tamanho Maximo permitido por variável.

    Passo 2:

    Public PegaTxt As aqrTxt

    Passo 3:

    Open “C:\Banco.txt” For Binary As  #1

    With PegaTxt
    .nome = VariaveSql
    .endereco= VariaveSql

    put  #1, , .nome
    put  #1, , .endereco

    ‘para ler o arquivo substituir por get

    end with

    Basicamente e isto:
    Um Exemplo:
    Para Executar o exemplo vc deve comferir as biblioteca, va para Project selecione References e procure por Microsoft DAO 2,5/3.51 Compatibility Library celecine e click em OK

    Defina :

    Public dbBanco As Database
    Public StTabela As Recordset
    Din Registro as Long
    Din TamanhoAqr AS Long
    din FileNum as Long

     Depois defina

    TamanhoAqr = len(PegaTxt)
    FileNum = FreeFile

    Open “C:\Banco.txt” For RanDom As PegaTxt len = TamanhoAqr

    Set dbBanco = OpenDatabase(“C:\Banco.dbf”)
    Set StTabela = dbBanco.OpenRecordset(“NomeDaTabela”, dbOpenDynaset)

    Registro = 0

    StTabela.MoveFirt
    Volta:
    Registro = Registro + 1
    PegaTxt.Nome = ""
    PegaTxt.Nome = StTabela![Nome] ' ou StTabela(1) valor do index da coluna do Banco

    Put #registro, PegaTxt.Nome ‘Salva Valor TXT

    StTabela.MoveNext

    if StTabela.EOF goto Volta

     Close #registro

    sábado, 27 de outubro de 2012 01:23