none
Ler arquivos .Sql pelo Visual Basic 6 RRS feed

  • Pergunta

  • Boa tarde,
    Estou tentando executar um arquivo .sql através do visual basic 6, porém não estou conseguindo.

    Eu preciso pegar um script já criado através do SQL Server 2005 e abri-lo no VB, isso de outra máquina. Estou conseguindo ler o arquivo, mas aparece apenas essas letras: ÿþU. como se estivesse corrompido.

    A codificação que estou usando para poder ler o arquivo e depois armazena-lo em uma String é a seguinte:

    Dim s As String   
    Dim texto As String  
    
    Open "c:\SQLQuery1.sql" 
    
    For Input As #1    
    Do Until EOF(1)    
    Line Input #1, s   
    texto = texto + s   
    
    Loop 
       
    Close #1   
    
    
    Minha outra dúvida é a seguinte: Como posso percorrer todas as linhas desse mesmo arquivo e armazenalas na String, pois só estou conseguindo pegar a primeira linha.

    sexta-feira, 13 de julho de 2012 15:32

Respostas

  • Dim s As String    Dim texto As String  

    dim teste as string * 1 Open "c:\SQLQuery1.sql" for random as 1 len =1 For Percore = 1 to lof(1)/1

    get 1, Percore,Teste

    Texto=Texto+Teste

    next

      Close #1  

    Isso deve resolver se não resolver me avisa
    quinta-feira, 9 de agosto de 2012 02:11