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 |
|
|
|