FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Query con ADO.
hi.. hola a todos. mi asunto es el siguiente. trato de hacer una consulta a una tabla que tengo en sql server ya tengo conexion con ADO y no se como realizar una consulta
trato de hacer esto select idusuario, nombre, pass from usuarios where idusuario=usuario and pass=contrasenia y que si encuentra una que coincida con la consulta poder colocar el nombre a una variable string var nombreusuario:string; nombreusuario:=nombre ----- que este es el que se selecciono por el id coincidente con el idusuario. pero no veo como hacerlo si el query seria adoquery.sql._____(sentencia sql); en ese espacio no se que va y como despues asignar el nombre al nombre de usuario. les agradeceria mucho su ayuda.. |
#2
|
||||
|
||||
text
Hola no he trabajado con componentes ado la verdad, uso zeos pero creo que podria ser algo asi. creo que son parecidas estas sentencias en los dos componentes.
espero te sirva de algo
__________________
tu mente es tu mas presiado tesoro, cultiva tu conocimiento |
#3
|
|||
|
|||
Cita:
por que esto es lo que coloque en adoquery.sql.text:='select nombre from Usuarios where idnombre='+ quoteStr(idnombre); |
#4
|
||||
|
||||
No se entiende bien lo que pedis... mas o menos esto hace la consulta para retornar el nombre de tu usuario si coinciden su id y su contraseña.
Luego se guarda el valor resultante en la variable nombreusuario.
|
#5
|
|||
|
|||
si se que lo puse algo confuso sorry. pero tengo este codigo....
Código:
procedure TfIdentificacion.Button1Click(Sender: TObject); var idnombre,contrasenia: String; begin ADOcomparacion.SQL.Clear; idnombre:=LowerCase(fIdentificacion.txtUsuario.Text); contrasenia:=fIdentificacion.txtContrasenia.Text; ADOcomparacion.SQL.Add('select idnombre, contrasenia from Tusuarios where idnombre='+ quotedStr(idnombre) +' and contrasenia='+quotedStr(contrasenia) ); ADOcomparacion.Active:=true; if (ADOcomparacion.RecordCount=1) then begin fPrincipal.ShowModal; fIdentificacion.Close; txtUsuario.Text:= ''; txtContrasenia.Text:= ''; end Else begin MsgTitle := 'Acceso Denegado'; MsgX := 550; MsgY := 286; Application.MessageBox('Datos Incorrectos', PChar(MsgTitle), MB_ICONSTOP); txtUsuario.Text:= ''; txtContrasenia.Text:= ''; txtUsuario.SetFocus; end end; espero que si me haya explicado esta vez.. Agradeceria mucho su ayuda |
#6
|
||||
|
||||
Algo así?
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Query dentro de otro query (Access) | FGarcia | SQL | 2 | 28-12-2007 05:46:05 |
Hacer un Query de otro Query | francisco260184 | SQL | 9 | 10-04-2007 03:46:18 |
Como hacer referencia a un query dentro de otro query? | JuanBCT | SQL | 2 | 05-09-2006 18:35:25 |
query dentro de query | jonmendi | SQL | 3 | 29-07-2005 15:13:33 |
Query | JCarlos | Conexión con bases de datos | 2 | 11-11-2004 17:13:01 |
|