kierk 0 Denunciar post Postado Outubro 14, 2005 Estou tentando montar um cadastro de comerciantes de uma feira livre, mas como semi-iniciante em Delphi 6, usando dbExpress, ainda não consegui fazer com que os registros de meu aplicativo sejam salvos na única tabela (que nomeei CAD_FEIRA) do meu banco de dados intitulado feira.fdb, feito em Firebird 1.5. As etapas que segui foram as seguintes:01) iniciei novo aplicativo no Delphi, fechei a Unit que aparece automaticamente e abri um novo datamodule. Pedi para salvar tudo e salvei a Unit1 como U_datamodule e o projeto como P_Feiracad;02) No datamodule, cuja propriedade Name mudei para DM_conexao, adicionei um SQLConnection e o configurei com o driver Interbase, nomeei a conexão como conn_feiracad, indiquei o caminho do Database (c:\projetos\sict\dados\feirra.fdb), pus o Password do User_Name sysdba e optei pelo SQLDialect 3. Testei a conexão e deu tudo certo. No ObjectInspector, nomeei o SQLConnection como SQLC e alterei a propriedade VendorLib para FBCLIENT.DLL (havia colocado uma cópia desta DLL na pasta Windows\System32);03) acrescentei ao datamodule DM_conexao um componente SQLDataSet, nomeei-o como SQLDS, orientei-o para a conexão SQLC, acrescentei o comando SELECT * FROM CAD_FEIRA e ativei-o;04) acrescentei ao datamodule DM_conexao um componente DataSetProvider, nomeei-o como DSP e orientei-o para o DataSet SQLDS;05) acrescentei ao datamodule DM_conexao um componente ClientDataSet, nomeei-o como CDS, orientei-o para o DataSetProvider DSP e ativei-o;06) acrescentei um novo form (para entrada de dados pelo usuário), salvei-o como U_cadastro e nomeei-o como F_cadastro. Nele, coloquei um DataSource, cujo nome alterei para DS e cujo DataSet apontei para DM_conexao.CDS (ou seja, para o ClientDataSet que havia colocado no datamodule DM_conexao);07) adicionei à cláusula uses o U_datamodule;08) No form F_cadastro, inseri um Button, ao qual chamei Bttn_conectar, dei um duplo clique sobre ele e inseri o código DM_conexao.cds.Open;09) com duplo clique no ClientDataSet CDS (no DataModule DM_conexao), acessei o editor de campos, adicionei todos os campos e, em seguida, arrastei-os para o form F_cadastro;10) ainda no form F_cadastro, selecionei todos os campos e apontei o DataSource para DS;11) adicionei ao form F_cadastro um DBNavigator, ao qual nomeei DBN_cadastro e apontei-o para o DataSource DS.Quando aperto F9 para executar e experimento cadastramentos fictícios, tudo parece dar certo e nenhuma mensagem de erro aparece, mas ao olhar a tabela CAD_FEIRA (via IB_Expert), vejo que nenhum registro foi adicionado, ou seja, nada foi salvo ali. Reduzi a tabela a condições mais simples, ou seja, só possuem um campo Integer (o "código", que é chave primária) e vários campos Varchar, Char e Date; além disso, desabilitei o Not Null de todos os campos. Alguém mais experiente em Delphi, dbexpress ou Firebird poderia me dar uma mãozinha? Compartilhar este post Link para o post Compartilhar em outros sites
@beto 0 Denunciar post Postado Outubro 18, 2005 Olha cara.. nunca usei o Firebird como banco, mas to achando que você não esta dando o insert e nem o post. :( Compartilhar este post Link para o post Compartilhar em outros sites