pasar parametro
tengo el siguiente query con el query ado
Dm1.QUsuario.Active := False; Dm1.QUsuario.SQL.Text := 'SELECT * FROM USUARIO WHERE USUARIO =:Us AND PASWORD =:Pas'; Dm1.QUsuario.FieldValues[0].AsString := EditUsuario.Text; Dm1.QUsuario.FieldByName('Pas').AsString := EditPasword.Text; Dm1.QUsuario.Active := True; if Dm1.QUsuario.RecordCount = 0 then begin ShowMessage('Este Usuario y Password no Existen'); end else begin frPrincipal := TfrPrincipal.Create(Application); frPrincipal.ShowModal; end; con los edit quiero pasar los parametros al quey para que realice la busqueda Dm1.QUsuario.FieldValues[0].AsString := EditUsuario.Text; Dm1.QUsuario.FieldByName('Pas').AsString := EditPasword.Text; el problema es que no esta la funcion paramsbyname y no se como pasarlos alguien que me ayude |
Hola:
Intenta con parameters, según la ayuda de delphi éste sirve para pasar parametros a las sentencias SQL, con respecto FieldByName es para trabajar con registros especificos de la base de datos. Saludos. Aarón. |
ParamByName
Prueba de la siguiente manera:
Dm1.QUsuario.Active := False; Dm1.QUsuario.SQL.Text := 'SELECT * FROM USUARIO WHERE USUARIO =:Us AND PASWORD =:Pas'; Dm1.QUsuario.ParamByName('Us').AsString := EditUsuario.Text; Dm1.QUsuario.ParamByName('Pas').AsString := EditPasword.Text; Dm1.QUsuario.Active := True; |
Cita:
Dm1.QUsuario.Parameters.Value := EditUsuario.Text; Dm1.QUsuario.Parameters.Value := EditPasword.Text; |
La franja horaria es GMT +2. Ahora son las 10:08:45. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi