Importar TXT com open dialog?

Question

Tenho um banco de dados em Interbase. Quero importar um arquivo em txt e colocar os dados no banco de dados.Estou com um problema na hora de executar a inser��o no banco de dados.Ser� que alguem pode ...

Abueno_silva · Answer

Qual � exatamente o problema que ocorre?Porque voc� est� inserindo o #39 (aspas simples), se a fun��o quotedstr j� faz isso?...

Alerocha · Answer

Est� dando uma fun��o de excesso de parametros. Mas al�m disso eu acho que a fun��o execsql est� errada ou n�o?

Qual � exatamente o problema que ocorre? Porque voc� est� inserindo o #39 (aspas simples), se a fun��o quotedstr j� faz isso?

Abueno_silva · Answer

Desculpe, passei batido pela execsql... Na verdade, ela � uma procedure que n�o recebe nenhum par�metro. Voc� tem que montar o insert com a procedure SQL.Add antes:

ibdataset1.sql.clear;
ibdataset1.sql.add(�insert into teste(nome,idade)�);
ibdataset1.sql.add(�values (�);
ibdataset1.sql.add(QuotedStr(copy(LINHA,1,postab-1)) + �,�);
ibdataset1.sql.add(copy(LINHA,postab+1,tam-postab) + � )�);
ibdataset1.ExecSQL;

Tente assim, e verifique se os valores retornados pela fun��o copy est�o corretos.
[]�s

Abueno_silva · Answer

Perd�o... � a [b:879d5a7408]fun��o[/b:879d5a7408] add, e n�o procedure......

Alerocha · Answer

Bueno,Infelizmente n�o deu certo. Primeiro mudei o parametroibdataset1.sql para ibdataset1.selectsql pois s� assim funciona.Mas depois de gerado d� um erro que n�o acha a coluna idade, mas a mesma existe no interbase....

Abueno_silva · Answer

Bom, eu n�o tenho muita experi�ncia com ibdataset (sempre uso ibquery e ibsql). Como voc� s� necessita incluir os registros de importa��o, sem ter um result set dispon�vel, te aconselho a trocar o ibdataset por um ibsql, j� que este, al�m de ser mais simples de utilizar, � muito mais r�pido (justamente por n�o produzir um result set).
A sintaxe � exatamente a que lhe passei anteriormente, voc� s� precisa trocar o ExecSql por ExeqQuery;
Tente isto que deve dar certo.
[]�s

Alerocha · Answer

Eu fiz a mudan�a que vc me sugeriu.IBsql1.sql.clear;IBsql1.sql.add(�insert into teste(nome,idade)�);IBsql1.sql.add(�values (�);IBsql1.sql.add(QuotedStr(copy(LINHA,1,postab-1)) + �,�);IBsql1.sql.add(copy(LINHA,postab+1,tam-postab) + � )�);IBsql1.execquery;Mas quando importa da um erro que n�o existe a coluna idade?Vc tem algum exemplo de importar arquivo que vc j� utilizou. Assim eu posso verificar onde est� meu erro.Obrigado...

Abueno_silva · Answer

Eu poderia passar alguns exemplos de insert para voc� (n�o necessariamente de um arquivo texto), mas acho que agora o problema est� no banco. Voc� tem certeza que a coluna est� com o nome idade? Voc� por um acaso n�o poderia me passar a estrutura da tabela teste para que pudesse verificar?

Alerocha · Answer

A estrutura da tabela teste �CREATE TABLE �TESTE� (  �ID�INTEGER NOT NULL,  �NOME�VARCHAR(50),  �IDADE�VARCHAR(2),CONSTRAINT �FK_TESTE� PRIMARY KEY (�ID�));Como o projeto � um teste para um outro projeto. Eu posso passar o projeto junto com o banco que � muito pequeno.  Se der me passe estes aruivos de insert que eu tento ver alguma coisasegue meu email alebraga@globo.com...

Abueno_silva · Answer

Vou lhe providenciar os arquivos de insert assim que puder. Enquanto isso, j� que o campo idade � varchar, tente a seguinte modifica��o na query:

na linha:

IBsql1.sql.add(copy(LINHA,postab+1,tam-postab) + � )�);

troque por:

IBsql1.sql.add(quotedstr(copy(LINHA,postab+1,tam-postab)) + � )�);

Alerocha · Answer

Agora foi, mais surgiu um novo problema.Validation error for column ID, value ***null***.Tenho que inserir um n�mero nesta columa, mas como....

Abueno_silva · Answer

Blz... j� lhe enviei um mail com um exemplo simples de insert e update, e nele tem exatamente o seu problema (campo PK null). Ele pode ir desse jeito mesmo, ou como est� no e-mail(n�o identifiquei as colunas por inserir todos os dados), mas no IB/FB voc� tem que criar um generator e um trigger para gerar o ID automaticamente:

Para criar o generator:

CREATE GENERATOR GEN_TESTE_ID;
SET GENERATOR GEN_TESTE_ID TO 0;

Para criar o trigger:

SET TERM ^ ;
/* Trigger: TESTE_BI0 */
CREATE TRIGGER TESTE_BI0 FOR TESTE
ACTIVE BEFORE INSERT POSITION 0
AS
begin
if (new.ID is null) then
new.ID = gen_id(GEN_TESTE_ID,1);
end
^

Isso vai funcionar como um campo auto-increment...

[]�s

Alerocha · Answer

Eu inserir o campo null criei a Tigger, mas agora da um erro deviola��o da chave primaria ou chave unica constraint �fk_teste�.No banco de dados j� existem alguns registros...

Abueno_silva · Answer

Voc� tem duas op��es: ou apaga os registros que j� existem (para n�o acontecer duplicidade de chave prim�ria como agora), ou exclui o generator (drop generator gen_teste_id) e o cria novamente, com o id de in�cio maior do que os registros que voc� j� tem:
CREATE GENERATOR GEN_TESTE_ID;
SET GENERATOR GEN_TESTE_ID TO <id inicial>;

[]�s

Alerocha · Answer

Bueno,consegui achar o erro. Muito obrigado pela ajuda.AtAlexandre...

F�rum Importar TXT com open dialog? #175696