EXPORTAR DADOS DE UM DBGRID PARA TXT
Boas
Eu precisava de exportar todos os dados(todos os campos) de um dbgrid para um ficheiro de texto(.txt), isto é possivel?
qual o codigo de fonte para eu conseguir isso.
Eu precisava de exportar todos os dados(todos os campos) de um dbgrid para um ficheiro de texto(.txt), isto é possivel?
qual o codigo de fonte para eu conseguir isso.
é possÃvel, veja como no link:
Exportando o conteúdo de Grid para um arquivo texto
Se a dúvida foi sanada finalize o tópico fazendo o favor.
Fico grato.
Exportando o conteúdo de Grid para um arquivo texto
Se a dúvida foi sanada finalize o tópico fazendo o favor.
Fico grato.
Caro Gabriel
Como me indicaste fui ao link e copiei o codigo de exportar para ver se conseguia adaptalo á minha aplicaçao.So que me surgiu um problema.Tive que fazer uma alteracao no codigo para o por a funcionar e alterei as seguintes linhas
Public Sub GridExport(GridAExportar As Object, Arquivo As String, Optional _
Delimitador As Variant, Optional , EncerraStrings As Variant)
como dava erro alterei para
Public Sub GridExport(GridAExportar As Object, Arquivo As String, Optional _
Delimitador As Variant, EncerraStrings As Variant)
e alterei tambem no resto do codigo o que estava como deliminator para optional_deliminator e omiti tambem a linha de codigo
on error goto trata_erro
Apos tudo isto la consegui fazer a exportacao para o txt, so que cria-me o ficheiro txt so com aspas " "," "
" "," "
O que fazer caro colega?
Como me indicaste fui ao link e copiei o codigo de exportar para ver se conseguia adaptalo á minha aplicaçao.So que me surgiu um problema.Tive que fazer uma alteracao no codigo para o por a funcionar e alterei as seguintes linhas
Public Sub GridExport(GridAExportar As Object, Arquivo As String, Optional _
Delimitador As Variant, Optional , EncerraStrings As Variant)
como dava erro alterei para
Public Sub GridExport(GridAExportar As Object, Arquivo As String, Optional _
Delimitador As Variant, EncerraStrings As Variant)
e alterei tambem no resto do codigo o que estava como deliminator para optional_deliminator e omiti tambem a linha de codigo
on error goto trata_erro
Apos tudo isto la consegui fazer a exportacao para o txt, so que cria-me o ficheiro txt so com aspas " "," "
" "," "
O que fazer caro colega?
Use o replace:
Dim word as string
word = label1.caption
Text1.text = Replace(Text1.text, word, "")
Coloque o Label1 como invisÃvel.
Dim word as string
word = label1.caption
Text1.text = Replace(Text1.text, word, "")
Coloque o Label1 como invisÃvel.
Tópico encerrado , respostas não são mais permitidas