Duvida Curso Aplicacao Comercial D2007DBX4FB2.0 Aula13
Aproveito em primeiro lugar para parabenizar o prof. Rodrigo C. Mourao.
Estou tentando transformar este curso em multicamadas.
Codigo Original para capturar o ID no evento on new record
function TDM.GenID(tablename: String): Integer;
var
Qry: TSQLQuery;
begin
Qry := TSQLQuery.Create(Self);
Qry.SQLConnection := DBAcesso;
Qry.SQL.Add('SELECT GEN_ID(GEN_'+tablename+'_ID,1) FROM RDB$DATABASE');
Qry.Open;
Result := Qry.Fields[0].AsInteger;
end;
Duvida: Não encontrei a propriedade na query instanciada para o TDCOMConecction no DM.
Já consegui ativar a query por param no ClientDataSet.
Primeira participação deste forum e desde já, agradeço.
Leon Gomide
Curtidas 0
Respostas
Daniel Oliveira
18/05/2011
Voce deve inserir no DM um SQLConnection com nome DBAcesso e com as configuracoes do seu banco
GOSTEI 0
Leon Gomide
18/05/2011
Bom dia Daniel.
O meu DM com o SQLConection esta no Servidor de Aplicação,
no DM Cliente so tenho o DCOMConection e o ClientDataSet
ligado a ele. Como criar uma query para o servidor de aplicação?
Obrigado pela atenção. Leon
GOSTEI 0
José
18/05/2011
Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
GOSTEI 0