AJUDA NO INSERT COM DATASNAP 2009 PARAMETERNOTSET
11/12/2009
0
BOM PESSOAL ESSE É O CÓDIGO, O COMPONENTE É UM CLIENTDATASET ACESSANDO REMOTAMENTE UM SERVIDOR DATASNAP 2009 QUE USA O DBEXPRESS, ELE GERA O ERRO DBX ERROR : PARAMETERNOTSET , O MEU COLEGA ELTON ENVIOU ESSA SUGESTÃO DE DETERMINAR TAMBÉM NO PARÂMETRO DATATYPE MAS CONTINUA DANDO O MESMO ERRO... SE ALGUÉM ME PUDER AJUDAR, FICO GRATO ABRAÇO
Principal.QryGenerico.CommandText:='Insert INTO '+Principal.lbBanco.Caption+'LogSistema (usuario,Nomeusuario,Datahora,Modulo, '+
' Operacao,Ocorrencias,ModuloLogado,EmpresaLogado,Franquia,Versao,Firmware) '+
' Values (:Usuario,:Nomeusuario,:Datahora,:Modulo,:Operacao,:Ocorrencias,:ModuloLogado,:EmpresaLogado,:Franquia,:Versao,:Firmware)';
Principal.QryGenerico.Params.ParamByName('Usuario').DataType:=ftString;
Principal.QryGenerico.Params.ParamByName('Usuario').Value := Principal.QryUsuariosLogado.FieldByName('Sigla').AsString;
Principal.QryGenerico.Params.ParamByName('Nomeusuario').DataType:=ftstring;
Principal.QryGenerico.Params.ParamByName('Nomeusuario').Value:= Copy(Principal.QryUsuarioslogado.FieldByName('Nome').AsString,1,30);
Principal.QryGenerico.Params.ParamByName('Datahora').DataType:=ftDateTime;
Principal.QryGenerico.Params.ParamByName('Datahora').Value := now();
Principal.QryGenerico.Params.ParamByName('Modulo').DataType :=ftString;
Principal.QryGenerico.Params.ParamByName('Modulo').Value := 'Login Sistema';
Principal.QryGenerico.Params.ParamByName('Operacao').DataType:=ftstring;
Principal.QryGenerico.Params.ParamByName('Operacao').Value := 'Login';
Principal.QryGenerico.Params.ParamByName('ocorrencias').datatype:=ftstring;
Principal.QryGenerico.Params.ParamByName('Ocorrencias').Value := MensagemLog;
Principal.QryGenerico.Params.ParamByName('ModuloLogado').datatype:=ftstring;
Principal.QryGenerico.Params.ParamByName('ModuloLogado').Value := Principal.ModuloAcesso;
Principal.QryGenerico.Params.ParamByName('EmpresaLogado').datatype:=ftstring;
Principal.QryGenerico.Params.ParamByName('EmpresaLogado').Value := Principal.EmpresaLogado;
Principal.QryGenerico.Params.ParamByName('franquia').datatype:=ftstring;
Principal.QryGenerico.Params.ParamByName('Franquia').Value := Principal.Franquia;
Principal.QryGenerico.Params.ParamByName('Versao').datatype:=ftstring;
Principal.QryGenerico.Params.ParamByName('Versao').Value := Principal.Label5.Caption+' '+Principal.Label4.Caption;
Principal.QryGenerico.Params.ParamByName('firmware').datatype:=ftstring;
Principal.QryGenerico.Params.ParamByName('Firmware').Value := Principal.StatusBar1.Panels[4].Text ;
Principal.QryGenerico.Execute;
' Operacao,Ocorrencias,ModuloLogado,EmpresaLogado,Franquia,Versao,Firmware) '+
' Values (:Usuario,:Nomeusuario,:Datahora,:Modulo,:Operacao,:Ocorrencias,:ModuloLogado,:EmpresaLogado,:Franquia,:Versao,:Firmware)';
Principal.QryGenerico.Params.ParamByName('Usuario').DataType:=ftString;
Principal.QryGenerico.Params.ParamByName('Usuario').Value := Principal.QryUsuariosLogado.FieldByName('Sigla').AsString;
Principal.QryGenerico.Params.ParamByName('Nomeusuario').DataType:=ftstring;
Principal.QryGenerico.Params.ParamByName('Nomeusuario').Value:= Copy(Principal.QryUsuarioslogado.FieldByName('Nome').AsString,1,30);
Principal.QryGenerico.Params.ParamByName('Datahora').DataType:=ftDateTime;
Principal.QryGenerico.Params.ParamByName('Datahora').Value := now();
Principal.QryGenerico.Params.ParamByName('Modulo').DataType :=ftString;
Principal.QryGenerico.Params.ParamByName('Modulo').Value := 'Login Sistema';
Principal.QryGenerico.Params.ParamByName('Operacao').DataType:=ftstring;
Principal.QryGenerico.Params.ParamByName('Operacao').Value := 'Login';
Principal.QryGenerico.Params.ParamByName('ocorrencias').datatype:=ftstring;
Principal.QryGenerico.Params.ParamByName('Ocorrencias').Value := MensagemLog;
Principal.QryGenerico.Params.ParamByName('ModuloLogado').datatype:=ftstring;
Principal.QryGenerico.Params.ParamByName('ModuloLogado').Value := Principal.ModuloAcesso;
Principal.QryGenerico.Params.ParamByName('EmpresaLogado').datatype:=ftstring;
Principal.QryGenerico.Params.ParamByName('EmpresaLogado').Value := Principal.EmpresaLogado;
Principal.QryGenerico.Params.ParamByName('franquia').datatype:=ftstring;
Principal.QryGenerico.Params.ParamByName('Franquia').Value := Principal.Franquia;
Principal.QryGenerico.Params.ParamByName('Versao').datatype:=ftstring;
Principal.QryGenerico.Params.ParamByName('Versao').Value := Principal.Label5.Caption+' '+Principal.Label4.Caption;
Principal.QryGenerico.Params.ParamByName('firmware').datatype:=ftstring;
Principal.QryGenerico.Params.ParamByName('Firmware').Value := Principal.StatusBar1.Panels[4].Text ;
Principal.QryGenerico.Execute;
Geovane Campos
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)