dirleimoreira

hum... vou dar um pesquisada sobre o registro então... qualquer coisa posto aqui denovo

Bom dia, Fiz um programa que mexe em um banco de dados, porem necessito que ele inicia toda vez que o windows for ligado... não tenho ideia de como fazer isso... alguém poderia me ajudar por favor???

já conseguir corrigir obrigado

já achei o erro XD... obrigado

Boa tarde, Fiz um programa que entra em um banco de dados é modifica alguns dados, porem presciso que essa programa funcione em qualquer maquina, estou usando o ODBC para fazer a conexao com o bd, teria como fazer esse ODBC rodar em qualquer pc sem precisar instalar ele???

vlw obrigado

obrigado vou testar.... não deu certo... mas tb não sei se fiz corretamente...segue abaixo: procedure TForm1.Button1Click(Sender: TObject); var L:TStringList; begin L := TStringList.Create; ADOConnection1.GetTableNames(L); //pega a posição do tbteste(começa no 0) if L.IndexOf('0MENU') >= 0 then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text := ( 'DROP TABLE "0MENU";'); ADOQuery1.ExecSQL; end; if L.IndexOf('1MENU') >= 0 then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text := ( 'DROP TABLE "1MENU"'); ADOQuery1.ExecSQL; end; if L.IndexOf('MENU') >= 0 then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text := ( 'DROP TABLE MENU'); ADOQuery1.ExecSQL; L.free; Showmessage ('tabela menu excluida'); end; end; application.Terminate; end. não sei onde errei...

Bom dia, estou com um duvida cruel... todos o programas q eu estou fazendo não esta finalizando... mesmo depois que eles executam as tarefas é eu fecho eles no form eles contuniam executando e so consigo finalizalos pelo pelo gerenciador de tarefas... tem algum comando para finalizar o programa??

Bom dia, Estava testando um funcao simples para copiar, porem o programa funciona normal sem apresentar erros mas não copiar o arquivo para a pasta de destino, segue abaixo: CopyFile('C:\DigiSat\AdmG4\BASE_AA.gbd','C:\Documents and Settings\Usuario\Desktop\backup teste\BASE_AA.gbd',True) agradeceria qualquer ajuda...

bom dia, tentei fazer o codigo para copiar a tabela do jeito q você me disse segue abaixo: procedure TForm1.Button1Click(Sender: TObject); var L:TStringList; begin L := TStringList.Create; ADOConnection1.GetTableNames(L); if L.IndexOf('MENU') >= 0 then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.text :=('Insert into MENU02 (DESCRICAO, CHAVE, ICONE, LIBERADO, ORDEM) Select DESCRICAO, CHAVE, ICONE, LIBERADO, ORDEM FROM MENU'); ADOQuery1.ExecSQL; L.Free; ShowMessage('Tabela Criada com sucesso!'); end; end; end. Porem não esta funcionando... não sei onde esta o erro...

vou tentar fazer aqui então... qualquer coisa posto aqui

então eu tenho q so criar uma tabela chama MENU02, que o comando importa os campos do outra???

mas me tira um duvida... eu presciso criar um outra tabela com so mesmo campos para copiar o menu???

então fiz um codigo so para copiar a tabela e esta gerendo erro segue a imagem abaixo: não sei onde esta dando erro

então aqui se eu tirar o ; não compila o programa... e com o ; ele roda mas, não esta criando a tabela 01MENU02...

olha tentei seguir o que você passou para copiar a tabela depois exclui, so que não deu certo, segue abaixo: if L.IndexOf('1MENU') >= 0 then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text := ('SELECT * INTO 1MENU02 FROM 1MENU WHERE 1=1 '); ADOQuery1.SQL.Text := ( 'DROP TABLE "1MENU";'); ADOQuery1.ExecSQL; end; o que eu fiz errado???

conseguir achar o erro, tinha q colocar assim pra excluir foi sem dar erro agora... Agora oque estou tentando fazer é copiar essas tabelas e por outro nome nelas para depois excluir... ah muito obrigado pela ajuda... vo tentar fazer aqui é depois posto...

então o program esta copilando normal, so esta dando aquele erro quando você roda a aplicação... e as tabelas 0MENU e 1MENU acho q não tem ligação, pois consigo deletar elas pelo IBexpert...

vou tentar... qualquer coisa aviso olha eu tentei seguir sua idea, segue abaixo: procedure TForm1.Button1Click(Sender: TObject); var L:TStringList; L2:TStringList; begin L := TStringList.Create; ADOConnection1.GetTableNames(L); //pega a posição do tbteste(começa no 0) if L.IndexOf('MENU') >= 0 then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text := ( 'drop table MENU'); ADOQuery1.ExecSQL; L.Free; Showmessage('tabela menu excluida'); end; L2 := TStringList.Create; ADOConnection1.GetTableNames(L2); if L2.IndexOf('0MENU') >= 0 then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text := ( 'drop table 0MENU'); ADOQuery1.ExecSQL; L2.Free; Showmessage('tabela 0MENU excluida'); end; end; end. Porem continua dando o mesmo erro, so que eu fiz um teste, se eu tentar dropa outra tabela sem ser OMENU e 1MENU funciona normal....

tirei um ss do erro: segue abaixo quando eu so exclui a tabela MENU não da erro, mais se eu excluo a tabela 0MENU ou a 1MENU gera o erro acima

Assim, no db eu tenho 3 tabelas menus: 0MENU,1MENU e MENU, eu so estou conseguindo excluir a tabela MENU com esse codigo, quando eu tento para as outras 2 não da certo....

esse "ADOConnection1:" seria o nome do driver de conexao que eu instalei??? mais uma coisa... estava tentando fazer um pequeno codigo pra excluida a tabela depois, segue abaixo vo que não esta funcionando... esta faltando alguma coisa nele??

Ola consegui fazer um codigo para o db não qual ele entra é criar um tabela segue abaixo: Agora gostaria da sua ajuda para fazer esse codigo copiar uma tabela chamada menu ou tentar renomea- la... que assim o programa que estou tentando fazer tem q excluir essa tabela menu ou alterar o nome , para que um outro programa não funcione...

Bom dia, Consegui conectar no db pelo ado... mas adora não sei como colocar esse comando do firebird em delphi: " CREATE TABLE CIDADE ( ID_CIDADE INTEGER NOT NULL, CID_NOME VARCHAR(50) CHARACTER SET WIN1252 NOT NULL COLLATE PXW_INTL850, CID_UF CHAR(2) CHARACTER SET WIN1252 COLLATE PXW_INTL850, CONSTRAINT PK_CIDADE PRIMARY KEY (ID_CIDADE) ); " Teria como executar os comandos do firebird pelo delphi em um button???

obrigado... tentarei achar o driver... se der certo eu posto aqui denovo.