Exportar Dados - Ajuda

[Noopy]

Ola!!!

Estou a programar em VB6 e tenho o seguinte problema:

Neste momento a minha base de dados é em SQL e não estou a conseguir esxportar os dados de uma tabela da Base de Dados para uma grelha de excel. alguém me pode ajudar, pois tenho este projecto para entregar breve e não consigo sair deste problema. Ou seja alguém me pode izer como esportar dados de uma tabela sql para o excel via vb6?

Preciso mesmo de ajuda.Obrigado!

Abraço

[Donati]

Boa Tarde

BOm vamos la então

primeiro voce tera que criar tres objetos

segue exemplo

Dim oExcel As Object

Dim oBook As Object

Dim oSheet As Object

Depois disso executa o select na tabela desejada e armazena a execução em uma variavel do tipo ADODB.Recordset.

abra uma nova planilha com o codigo abaixo

Set oExcel = CreateObject("Excel.Application")

Set oBook = oExcel.Workbooks.Add

Set oSheet = oBook.worksheets(1)

depois disso basta jogar os dados como no exemplo abaixo

oSheet.cells(LINHA, COLUNA).Value = campo desejado

onde

oSHeet é o objeto criado acima

LINHA é a linha que deseja colocar a informação da tabela

COLUNA é a coluna que deseja colocar a informação da tabela

se for varias linha de resultado do seu select basta execular um loop dentro

Espero ter ajudado

t+

FUI!!!!!!!!!

Donati

[Noopy]

Ola Donati!

Obrigado pela ajuda, no entanto tenho outra duvida, como faço para gravar o ficheiro excel depois de exportada a informação?

Abraço

[Donati]

bom dia

se entendi direito, voce quer salvar o arquivo depois de carregar os dados, ai vai o codigo

oBook.SaveAs "C:\FUNDOS.xls"

apos fazer isso, você precisa eliminar o objeto excel da memoria da maquina, segue abaixo o codigo

oBook.Close False

Set oSheet = Nothing

Set oBook = Nothing

oExcel.Application.Quit

Set oExcel = Nothing

espero que seja isso que você precise

t+

FUI!!!!!

Donati

[Noopy]

Ola Donati!

Obrigado pela ajuda tem sido muito útil para mim. E como não há duas sem três preciso de outra ajuda :lol:

Como disse tenho uma base de dados em sql e já existe uma base de dados em excel, por acaso não podes ajudar em como posso fazer a migração dos dados da base em excel para a nova base de dados em sql?

Uma vez mais obrigado pela ajuda... :lol:

Abraço

[Donati]

Bom dia

Bom ai é um pouco mais complicado, mas voce pode proceder da mesma maneira, so que ao invés de voce mandar os dados para a planilha, voce vai buscar os dados nela e realizar um Insert into nas tabela do SQL

acho que é isso que voce esta querendo

t+

FUI!!!!!!!!!!!

Donati

[Noopy]

Ola Donati!

Mas ai e que esta a minha duvida, pois não sei como ir buscar os dados ao excel? Pode me ajudar?

Obrigado!

Abraço...

[Donati]

Fala Ai

segue abaixo

Dim oExcel As Object

Dim oBook As Object

Dim oSheet As Object

Set oExcel = CreateObject("Excel.Application")

Set oBook = oExcel.Workbooks.Open("c:\fund.xls", False)

Set oSheet = oBook.worksheets(1)

variavel = oSheet.cells(LINHA, COLUNA).Value

onde

oSHeet é o objeto criado acima

LINHA é a linha que deseja colocar a informação da tabela

COLUNA é a coluna que deseja colocar a informação da tabela

VARIAVEL é a variavel que voce vai colocar os dados para depois realizar o insert into na tabela

ai basta fazer um loop para pegar todos os campos e linhas da sua planilha, porem a cada mudança de linha realize o insert into

T+

FUI!!!!!!!!!!!!!

Donati

[Noopy]

Ola Donati!!!

Estou com um problema urgente!

Estou a fazer a passagem dos dados de excel para sql, o teu comando ajudou imenso, no entanto existem palavras com apostrofe que gera conflito com o codigo do indert (ex:d'água).Como resolvo isto?

Outra coisa, quando estou a preencher os formularios do vb para depois inserir no sql como faço quando tenho palavras deste tipo para não dar erro?

Muito obrigado!

Abraço

[Donati]

Fala ai,

Esse é um problema bem grande, pois o apostrofo simples (') e o delimitador de uma string para o SQL, então esse tipo de dados é impossivel para se colocar no banco.

O que voce poderia fazer e dar um Replace no apostrofo por um simbolo qualquer, então, quando voce buscar dados no banco de dados substitua novamente este simbolo pelo apostrofo e coloque a informação no campo da tela desejado

acho que deu para entender, né!!!!!!!

T+

FUI!!!!!!!!!!!

DONATI

[Noopy]

Oi Donati!

Como e que eu faço o que disseste, o Replace? Eu não estou a ver...

Obrigado!

Abraço

[Donati]

BOm Dia

Exatamente use o comando Replace

FUI!!!!!!!!!

DONATI