Jump to content
Fórum Script Brasil

dirleimoreira

Membros
  • Content Count

    29
  • Joined

  • Last visited

Community Reputation

0 Neutro

About dirleimoreira

  1. hum... vou dar um pesquisada sobre o registro então... qualquer coisa posto aqui denovo
  2. 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???
  3. já conseguir corrigir obrigado
  4. 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???
  5. 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 :=
  6. 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??
  7. 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...
  8. 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
  9. vou tentar fazer aqui então... qualquer coisa posto aqui
  10. então eu tenho q so criar uma tabela chama MENU02, que o comando importa os campos do outra???
  11. mas me tira um duvida... eu presciso criar um outra tabela com so mesmo campos para copiar o menu???
  12. 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
  13. 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...
×
×
  • Create New...