![]() |
![]() |
![]() |
![]() |
![]() |
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 |
|
|
![]() |
|