dirleimoreira
Membros-
Total de itens
29 -
Registro em
-
Última visita
Sobre dirleimoreira
dirleimoreira's Achievements
0
Reputação
-
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...