jacsonsoares

valeu galera já peguei a manha ..... é assim : sSQL := 'SELECT * FROM TABELA WHERE CAMPODATA BETWEEN :PDT1 AND :PDT1 ' O Probema era passar o valor diretamente na consulta concatenando a string.... Estou acostumado a passar data diretamente na string pois trabalho com Oracle... A solução é passar o valor formatado("dd.mm.yyyy hh.mm") para o parâmetro da query("PDT1" e "PDT2"); Simples demais..... Att, Jacson Soares;

Olá pessoal estou tentando consultar um período em um campo TIMESTAMP(dd/mm/yyyy hh:mm), preciso concatenar as datas de um Componente quanquer(Edit, MaskEdit, Date Time Picker, etc......) estou usando a seguinte string sSQL : sSQL := 'SELECT * FROM TABELA WHERA CAMPODATA BETWEEN '+ data1+' AND ' +data2 como é a sintaxe correta? Obrigado a todos! Att, Jacson Soares;

você pode temtar criar uma tabela temporária Campos Grupo, Ordem, campoA, campoB Caso use paradox : inserir os registros através de qry Caso use IB/FireBird: inserir os registros através de sp Depois chamar esta tabela em uma query apenas Obs.: indexando a tabela temporária. Talvez te ajude. Att, Jacson Soares;

quase tudo .... Pessoal existe sim um help este : Vb.chm que contem todos os comandos para VBScript (ASP ou VB) qeubrou meu galho para desenvolver uma aplicação ASP+VB(DLL) Att, Jacson Soares.

crie uma nova aplicacao insira um maskedit com a seguinte mascara"!90:00:00;0;_" depois um botaõ e no onclick do mesmo : procedure TForm1.Button1Click(Sender: TObject); begin Try StrToTime(MaskEdit1.Text); showmessage('Hora :'+ MaskEdit1.Text+' Válida.'); except on e:Exception do begin MessageDlg('Hora :'+ MaskEdit1.Text+' Inválida.',mtInformation,[mbOK],0); Exit; end; end; end; Att, Jacson Soares; Segue o codigo abaixo: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Mask; type TForm1 = class(TForm) Button1: TButton; MaskEdit1: TMaskEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin Try StrToTime(MaskEdit1.Text); showmessage('Hora :'+ MaskEdit1.Text+' Válida.'); except on e:Exception do begin MessageDlg('Hora :'+ MaskEdit1.Text+' Inválida.',mtInformation,[mbOK],0); Exit; end; end; end; end.

turbo acho que você se confundiu, ele exibe até mais de dois parametros, porem o keyfield parametro de valor do componente que passa apenas um valor. Att, Jacson Soares;

Olá pessoal, Preciso desenvolver uma aplicação em VB e gostaria de saber onde acho o download do Help. Obrigado a todos. Att, Jacson Soares;

o componente "DBLookupComboBox" na propriedade ListField você coloca o nome dos campos ex.: campoA;campoB e ele lista os dois. Att, Jacson Soares;

eu consigo imprimir na mão ... segue exemplo v se ajuda att, Jacson Soares; function TFrmDuplicatas.ImprimeDP: Boolean; const //**COMANDOS DE IMPRESSÃO PARA LX300 ***/ cEject = #12; //Tamanho da fonte c10cpi = #18; c12cpi = #27#77; cIExpandido = #14; cFExpandido = #20; //Formatação da fonte cJustif = #27#97#51; cCondensa = #15; cINegrito = #27#71; cFNegrito = #27#72; cIItalico = #27#52; cFItalico = #27#53; cLimpaImp = #27#64; var F : TextFile; i : integer; dia, mes, ano : String; begin Result := False; dia := FormatDateTime('DD', dtEmissao.Date); mes := FormatDateTime('MMMM',dtEmissao.Date); ano := FormatDateTime('yy', dtEmissao.Date); try AssignFile(F,'LPT1:'); Rewrite(F); Write(F,cLimpaImp); //******** Header ************ Writeln(F,cCondensa); Writeln(F); Writeln(F); Writeln(F); Writeln(F); Writeln(F); Writeln(F); Writeln(F,c10cpi+' '+ cINegrito+' '+cCondensa); Writeln(F,StringOfChar(' ',93)+dia+' '+FormataStr(mes,' ',25,false)+ano ); Writeln(F); Writeln(F); Writeln(F); Writeln(F,StringOfChar(' ',45)+FormataStr(edtNR_NF.Text,' ',20,false)+ FormataStr(FormatFloat('#,###,##0.00',edtVlrDuplicata.Value),' ',20,false)+ FormataStr(edtNR_NF.Text,' ',20,false)+ FormataStr(dtVencimento.Text,' ',10,false)); Writeln(F); Writeln(F); Writeln(F); Writeln(F); Writeln(F,StringOfChar(' ',60)+EdtNome.Text); Writeln(F,StringOfChar(' ',60)+edtEnd.Text+', '+edtNumero.Text); Writeln(F,StringOfChar(' ',60)+FormataStr(edtCidade.Text,' ',45,false)+ FormataStr(dblkpEsta.Text,' ',15,false)+ FormataStr(edtCep.Text,' ',8,false)); Writeln(F,StringOfChar(' ',60)+FormataStr(edtCidade.Text,' ',55,false)); Writeln(F); Writeln(F,StringOfChar(' ',60)+FormataStr(edtCNPJ.Text,' ',55,false)+ FormataStr(edtInscMun.Text,' ',15,false)); Writeln(F); Writeln(F); //******* valor por extenso ****** for i:=0 to mmValorExtenso.Lines.Count-1 do begin Writeln(F,StringOfChar(' ',60)+mmValorExtenso.Lines.Strings[i]); end; Writeln(F); Writeln(F,cEject); System.Close(F); except on e:Exception do begin MessageDlg('Erro ao Inprimir Nota Fiscal!'+#13+e.Message, mtError,[mbOK],0); Exit; end; end; Result := True; end;

Crie uma nova aplicação "new aplication", insira um componente DateTimePicker, passe a propriedade "kind" para "dtkTime". depois insira um timer e um Button1 apos isso copie o codigo fonte abaixo e coloque no lugar do original sua "unit" e teste. obs defina o tempo o dateteme e depois clique no botão para startar o timer que irá retroceder até zerar o tempo. Att, Jacson Soares; unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) DateTimePicker1: TDateTimePicker; Timer1: TTimer; Button1: TButton; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := True; end; procedure TForm1.Timer1Timer(Sender: TObject); var sTempo : String; begin sTempo := FormatDateTime('hh:mm:ss',DateTimePicker1.Time); if sTempo = '00:00:00' then begin Timer1.Enabled := False; showmessage('zerou o tempo!!'); Exit; end else DateTimePicker1.Time := (StrTotime(sTempo) - StrToTime('00:00:01')); end; end.

Eu postei um exemplo de compactação com ARJ via dos no www.planetadelphi.com.br que possui a mesma restrição. quando você chama o executavel "abc ab" o prompt entende que a segunda parte do nome "ab" seriam parametros enviados ao aplicativo "abc" ou seja mude o nome da sua segunda aplicação para "abc_ab" que ele vai entender. Na compactação com o ARJ foi a mesma coisa ele não reconhece pastas com separação de espaço. Espero ter ajudao. Att, Jacson Soares;

Olá pessoal, Estamos fazendo integração com um sistema externo e esse sistema tem que controlar a minha aplicação feita em delphi, o cara me pediu apenas o nome do form, nome dos componetes(edit) e o nome dos eventos. Não é que o cara consegue com um aplicativo comtrolar o meu no windows.... O pior é que ele não foi camarada e não quis me dar a dica.. Alguém sabe como se faz isso?? Att, Jacson Soares;

Crie e uma base(nova) com a sua estrutura copie as tabelas dele para ela, as tabelas semelhantes você faz: insert into suatabela(campo1, campo2) select campo1, campo2 from tabeladele att, jacson soares

Olá, Daria pra fazer da seguinte forma(um pouco mais trabalhoso mas funciona perfeitamente): ao invés de você trabalhar inserindo os produtos em alguma tabela, trabalhe com um stringgrid e insira nele quantas registros quizer. Depois faz um "for" do string grid contando 0 a qtd de produtos inserindo os produtos a tabela de vendas, quando atingir o qtd de produtos desejada você cria um nro novo de nota e continua o "for" .... Att , Jacson Soares

Uso DBE. Eu gostari de fazer o seguinte: Select id from tabela where id = 10 for update whit nowait isso iria travar o registro e eu tentaria fazer o mesmo select de outra máquina e se realmente o registro estiver travado ele retorna uma exception que eu trataria no delphi e enviaria uma menssagem para o usuario disendo que o registro esta em uso. este é o teste que eu gostaria de fazer, você sabe como fazer?

Galera, Depois de muita pesquisa e uma ajuda em especial de "Adenilton Rodrigues" consegui trabalhar ASP com DLL elaborada em Delphi. Está tudo ai neste site: http://www.matlus.com/scripts/website.dll/...&ASPRecordset&2 Att, Jacson Soares ;

corrigindo site .... http://www.matlus.com/scripts/website.dll/...&ASPRecordset&2

Galera, Realmente o que eu queria era usar 3 camadas ASP+DLL(delphi)+DATABASE e graças a ajuda do colega "Adenilton Rodrigues" consegui, está neste site: http://www.matlus.com/scripts/website.dll/Tutorials?

Ok, Muito Obrigado!

Olá Pessoal! Estou iniciando desenvolvimento de páginas ASP com DLL's elaboradas em Delphi 5. Consiguo retornar dados para a pagina com o seguinte código procedure TMetodos.Consulta(var Tabela, Id, Id_vlr: WideString); var sSQL :String; begin sSQL := 'SELECT * FROM '+Tabela; if (Id <> '') and (Id_vlr <> '') then sSQL := sSQL+ ' WHERE '+Id+' = '+Id_vlr; FDM.qryCuston.Close; FDM.qryCuston.SQL.Clear; FDM.qryCuston.SQL.Text := sSQL; if not FDM.qryCuston.Prepared then FDM.qryCuston.Prepare; FDM.qryCuston.Open; if not FDM.qryCuston.IsEmpty then Response.Write(FDM.dtsListaSimples.Content); end; uso o componente TDataSetTableProcedure, porém isso retorna uma tabela com os dados em html, preciso retornar um "Recordset" para fazer loop com os registros no ASP. Alguém sabe como fazer? Agradeço desde já a qualquer ajuda. Att, Jacson Soares.

Olá Pessoal! Estou iniciando desenvolvimento de páginas ASP com DLL's elaboradas em Delphi 5. Consiguo retornar dados para a pagina com o seguinte código procedure TMetodos.Consulta(var Tabela, Id, Id_vlr: WideString); var sSQL :String; begin sSQL := 'SELECT * FROM '+Tabela; if (Id <> '') and (Id_vlr <> '') then sSQL := sSQL+ ' WHERE '+Id+' = '+Id_vlr; FDM.qryCuston.Close; FDM.qryCuston.SQL.Clear; FDM.qryCuston.SQL.Text := sSQL; if not FDM.qryCuston.Prepared then FDM.qryCuston.Prepare; FDM.qryCuston.Open; if not FDM.qryCuston.IsEmpty then Response.Write(FDM.dtsListaSimples.Content); end; uso o componente TDataSetTableProcedure, porém isso retorna uma tabela com os dados em html, preciso retornar um "Recordset" para fazer loop com os registros no ASP. Alguém sabe como fazer? Agradeço desde já a qualquer ajuda. Att, Jacson Soares.

Olá pessoal! Alguém sabe como retornar a data do servidor pelo interbase. Obrigado. Att, Jacson Soares;

Cara, você deve inserir os items no combo dinamicamente: no onchange do primeiro combo você adiciona os items ao segundo(combo.items.add('xxxxxxx')) att, Jacson soares

Nativo ao interbase o próprio Edlpelphi tem....., porém você tem que instalar o client na máquina e é por isso que estou tentando com ADO, pois o mesmo não requer cliente....... Entendeu??

Esquece.. respondi .. errado meu .. desculpa ai vou ver o que posso fazer no seu abraços Moderador , Tem alguma ideia??