Fórum Datasnap com parametros #563645
05/10/2016
0
Pessoal, anteriormente com datasetprovider fazia consulta desta maneira com sql apenas no server e só passando parametros do client:
procedure TsmADM.dsp_proc_userBeforeGetRecords(Sender: TObject;
var OwnerData: OleVariant);
begin
if VarIsArray(OWnerdata) then
begin
fdq_proc_user.SQL.Clear;
fdq_proc_user.SQL.Text := 'select * from usuarios ';
case OwnerData[0] of
0: fdq_proc_user.sql.Text := fdq_proc_user.sql.Text + ' where id_user = ' + OwnerData[1];
1: fdq_proc_user.sql.Text := fdq_proc_user.sql.Text + ' where email_user like ' + QuotedStr(OwnerData[1]) + ' || ' + QuotedStr('%');
2: fdq_proc_user.sql.Text := fdq_proc_user.sql.Text + ' where nome_user like ' + QuotedStr(OwnerData[1]) + ' || ' + QuotedStr('%');
end;
end;
end;
Agora, com fdquery, não temos o OwnerData. Como proceder com este componente?
[]´s
procedure TsmADM.dsp_proc_userBeforeGetRecords(Sender: TObject;
var OwnerData: OleVariant);
begin
if VarIsArray(OWnerdata) then
begin
fdq_proc_user.SQL.Clear;
fdq_proc_user.SQL.Text := 'select * from usuarios ';
case OwnerData[0] of
0: fdq_proc_user.sql.Text := fdq_proc_user.sql.Text + ' where id_user = ' + OwnerData[1];
1: fdq_proc_user.sql.Text := fdq_proc_user.sql.Text + ' where email_user like ' + QuotedStr(OwnerData[1]) + ' || ' + QuotedStr('%');
2: fdq_proc_user.sql.Text := fdq_proc_user.sql.Text + ' where nome_user like ' + QuotedStr(OwnerData[1]) + ' || ' + QuotedStr('%');
end;
end;
end;
Agora, com fdquery, não temos o OwnerData. Como proceder com este componente?
[]´s
Carlos Clara
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)