2 perguntas table e backup
acho q essa eh simples: mostrar quanto registros tenho ma minha tabela, e como gerar um código automático, e que seja crescente não repetido;
outra pergunta eh: queria clicar num botao e que todo o conteudo de todas as tabelas existentes no meu projeto seje gravado num diskette A:\, ou se no caso só o que foi acrescentado de novo nas tabelas, pra maun ficar muito pesado, seria uma rotina diária no fechamento do comércio, pois presciso atualizar as informações das tabelas para outro micro ....
Alguem poderia me dar essa força????
Fico muito grato desde já!
outra pergunta eh: queria clicar num botao e que todo o conteudo de todas as tabelas existentes no meu projeto seje gravado num diskette A:\, ou se no caso só o que foi acrescentado de novo nas tabelas, pra maun ficar muito pesado, seria uma rotina diária no fechamento do comércio, pois presciso atualizar as informações das tabelas para outro micro ....
Alguem poderia me dar essa força????
Fico muito grato desde já!
Thiago
Curtidas 0
Respostas
Anonymous
04/02/2003
Estou com um problemão: Vejam só
Estou usando o componente NMHTTP da palheta fastnet:
No evento onclick do botão coloco o seguinte:
NMHTTP1.InputFileMode := False;
NMHTTP1.OutputFileMode := False;
Memo1.Lines.Clear;
Memo2.Lines.Clear;
vls_endereco := ´http://teste/carregadados.asp´;
NMHTTP1.POST(vls_endereco, ´Teste´);
No retorno desta pagina, via browser, mostra uma mensagem ´Sucesso´ ou ´Insucesso´ . O código fonte desta página carregadados.asp é
<html>
<body>
<h1>Carga de Dados</h1><br><br>
<form action=CarregaDados.asp method=post>
Conteudo do Arquivo:<BR><textarea name=Arquivo cols=70 rows=10></textarea>
<input type=submit name=Envia Value=Envia>
</form>
</body>
</html>
NO evento Sucess do componente NMHTTP
Coloco o seguinte comando:
case Cmd of
CmdPOST:
begin
//capturar conteúdo da página
Memo1.Text := NMHTTP1.Header;
Memo2.Text := NMHTTP1.Body;
end;
end;
O problema é que o memo2.text deveria retornar ´Sucesso´ ou ´Insucesso´
porém me retorna o código fonte mencionado acima.
Por favor me ajudem!!!!!!
Estou usando o componente NMHTTP da palheta fastnet:
No evento onclick do botão coloco o seguinte:
NMHTTP1.InputFileMode := False;
NMHTTP1.OutputFileMode := False;
Memo1.Lines.Clear;
Memo2.Lines.Clear;
vls_endereco := ´http://teste/carregadados.asp´;
NMHTTP1.POST(vls_endereco, ´Teste´);
No retorno desta pagina, via browser, mostra uma mensagem ´Sucesso´ ou ´Insucesso´ . O código fonte desta página carregadados.asp é
<html>
<body>
<h1>Carga de Dados</h1><br><br>
<form action=CarregaDados.asp method=post>
Conteudo do Arquivo:<BR><textarea name=Arquivo cols=70 rows=10></textarea>
<input type=submit name=Envia Value=Envia>
</form>
</body>
</html>
NO evento Sucess do componente NMHTTP
Coloco o seguinte comando:
case Cmd of
CmdPOST:
begin
//capturar conteúdo da página
Memo1.Text := NMHTTP1.Header;
Memo2.Text := NMHTTP1.Body;
end;
end;
O problema é que o memo2.text deveria retornar ´Sucesso´ ou ´Insucesso´
porém me retorna o código fonte mencionado acima.
Por favor me ajudem!!!!!!
GOSTEI 0
Anonymous
04/02/2003
acho q essa eh simples: mostrar quanto registros tenho ma minha tabela, e como gerar um código automático, e que seja crescente não repetido;
outra pergunta eh: queria clicar num botao e que todo o conteudo de todas as tabelas existentes no meu projeto seje gravado num diskette A:\, ou se no caso só o que foi acrescentado de novo nas tabelas, pra maun ficar muito pesado, seria uma rotina diária no fechamento do comércio, pois presciso atualizar as informações das tabelas para outro micro ....
Alguem poderia me dar essa força????
Fico muito grato desde já!
Número de registros de uma tabela: table1.recordcount ;
GOSTEI 0
Dor_poa
04/02/2003
GOSTEI 0
Regisgl1
04/02/2003
Nao inclua nada no evento OnSucess, ele serve para indicar o status.
Digite o codigo desta maneira que da certo.
NMHTTP1.InputFileMode := False;
NMHTTP1.OutputFileMode := False;
Memo1.Lines.Clear;
Memo2.Lines.Clear;
vls_endereco := ´http://teste/carregadados.asp´;
NMHTTP1.POST(vls_endereco, ´Teste´);
Memo1.Text := NMHTTP1.Header;
Memo2.Text := NMHTTP1.Body;
Até.
Digite o codigo desta maneira que da certo.
NMHTTP1.InputFileMode := False;
NMHTTP1.OutputFileMode := False;
Memo1.Lines.Clear;
Memo2.Lines.Clear;
vls_endereco := ´http://teste/carregadados.asp´;
NMHTTP1.POST(vls_endereco, ´Teste´);
Memo1.Text := NMHTTP1.Header;
Memo2.Text := NMHTTP1.Body;
Até.
GOSTEI 0