Francisco Portela

Juliomar, bom dia...consegui resolver aquele problema da inserção no banco de dados. fui no componente TSQLTransaction, na propriedade Action e coloquei como caCommint. Funcionou perfeito. Obrigado! Amigo, estou com outro problema...estou exportando dados para o Excel usando o seguinte passo: vSheet.Cells[NLinha, 01].Value := DmDs.Tb_Comites_Ds_.FieldByName('Numero_Contrato').Value; na planilha me aparece caracteres em "japonês" menos os campos que contêm data...poderia me ajudar como resolver? abraço Francisco.

Então Juliomar...a única coisa que eu queria era incluir registros nessa tabela access...em Delphi era bastante simples pois usando o Ado isso era bastante simplificado. Com o Lazarus isso não é possível, infelizmente o trabalho que estou fazendo agora só me permite utilizar o Lazaros e o banco Access, estou tentando desde domingo simplesmente "povoar" essa tabela da forma mais simplificada possível, mas até agora não consegui.. Se vc puder me ajudar agradeço...abraço... francisco

Ok...removi, já fiz os testes, a propriedade SQL esta realmente recebendo o texto (strPes) e os parâmetros também estão na propriedade Params corretos, não ocorre mais nenhum erro...em compensação não atualiza o banco de dados...não seria alguma configuração em ODBC? Eu consigo visualizar os dados pelo mesmo componente TSQSQuery sem nenhum problema usando também o TBufDatSet. Me parece coisa de modificação na base....

Ok...refiz o código...o mesmo problema... me ajudem... //****************************************************************************** Procedure InsertSQL__BD_COMITES(Sender:string); var strPes:string; begin strPes := 'INSERT INTO Tab_Cadas_Comite (Agente_Credito, Nome_Tomador) VALUES (:vAgente, :vNome)'; //---------------------------------------------------------------------------- DmDb.Tb_PeSql01_Db_.Active := True; // ativar o componente DmDb.Tb_PeSql01_Db_.SQL.Clear; // limpar a área DmDb.Tb_PeSql01_Db_.SQL.Add(strPes); // adicionar o sql DmDb.Tb_PeSql01_Db_.ParamByName('vAgente').AsString := 'AFCP'; // preencher parametro DmDb.Tb_PeSql01_Db_.ParamByName('vNome').AsString := 'LUCAS'; // preencher parametro DmDb.Tb_PeSql01_Db_.ExecSQL; // executar o sql //---------------------------------------------------------------------------- end;

Mais uma vez obrigado!! Bom estou com outra dificuldade: Estou tentando incluir dados em uma tabela "access" pelo Lazarus usando o componente TSQSQuery. Fiz as rotinas direitinho só que não insere de forma alguma! Acho até que pode ser algum problema na ODBC...segue a rotina...se puderem me ajudar...Aparece a seguinte mensagem de ERRO: "Cannot open a non-selec statement" //****************************************************************************** Procedure InsertSQL__BD_COMITES(Sender:string); var strPes:string; begin strPes := 'INSERT INTO Tab_Cadas_Comite (Agente_Credito, Nome_Tomador) VALUES (:vAgente, :vNome)'; //---------------------------------------------------------------------------- DmDb.Tb_PeSql01_Db_.Active := False; DmDb.Tb_PeSql01_Db_.SQL.Clear; DmDb.Tb_PeSql01_Db_.SQL.Add(strPes); DmDb.Tb_PeSql01_Db_.ParamByName('vAgente').AsString := 'AFCP'; DmDb.Tb_PeSql01_Db_.ParamByName('vNome').AsString := 'LUCAS' DmDb.Tb_PeSql01_Db_.Active := True; DmDb.Tb_PeSql01_Db_.ExecSQL; DmDb.Tb_PeSql01_Db_.First; //---------------------------------------------------------------------------- end; //******************************************************************************

Bom dia! Não tem o clientdataset mas tem um dbfdataset senão me engano! o zeos é muito simples de instalar no lazarus, basta seguir a ordem do access sim somente via odbc Ok amigo obrigado! Vc saberia algo do TMemDataset? como eu faria para instala-lo no Lazarus? obrigado! Francisco

Senhores sou novo aqui e tenho algumas dúvidas a respeito do Lázaros. Estou tendo dificuldades de instalar componentes externos tipo Zeos e Rx, a Ide trava...alguém já passou por esse processo? Existe na Ide o TClientDataSet do Delphi? se não teria alguma sugestão de similar? O Access só funciona no Lázaros com ODBC? Francisco Portela