FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 |
#2
|
||||
|
||||
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. |
#3
|
|||
|
|||
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; |
#4
|
|||
|
|||
Cita:
Dm1.QUsuario.Parameters.Value := EditUsuario.Text; Dm1.QUsuario.Parameters.Value := EditPasword.Text; |
|
|
|