Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   ayuda con consulta con ado y SQL (https://www.clubdelphi.com/foros/showthread.php?t=67575)

frholguin 23-04-2010 16:24:15

ayuda con consulta con ado y SQL
 
tengo esta consulta en un Edit , pero el DBGrid no se mueve para ningun lado necesito ayuda.

if key = #13 then
begin

if rbnopacientes.Checked = true then
qrverificacion.Close;
qrverificacion.Sql.Clear;
Qrverificacion.Sql.text:='SELECT * FROM pacientes WHERE ID_PACIENTES = '+(edit1.Text);
Qrverificacion.Open

Caral 23-04-2010 20:42:38

Hola
No veo nada extraño, salvo los parentesis pero pregunto:
Dices que tienes la consulta en un Edit, no sera en el mismo edit1?.
Si no es asi, trata esto:
Código Delphi [-]
if key = #13 then
begin

if rbnopacientes.Checked = true then
qrverificacion.Close;
qrverificacion.Sql.Clear;
Qrverificacion.Sql.text:='SELECT * FROM pacientes WHERE ID_PACIENTES = '+edit1.Text;
Qrverificacion.Open
Y verifica que el dato del edit1 sea string, como tambien que el check este bien.
Saludos

frholguin 23-04-2010 21:25:32

abria otra forma de hacerlo porque realmente no me esta funcionando, estoy tratando de hacer la consulta que pase al registro y cuando le doy no hace nada

Caral 23-04-2010 21:38:59

Hola
Pregunto:
1- Que base de datos usas
2- como conectas el dbgrid con la tabla.
Saludos

frholguin 23-04-2010 21:52:22

estoy usando SQL Server Express

olbeup 23-04-2010 21:53:30

Tienes Vinculados todos los componentes:
ADOConnection -> ConnectionString
ADOQuery -> ADOConnection
DataSource -> ADOQuery
DBGrid -> DataSource

Para que se vea mas claro una sentencia SQL, aunque tienes que poner mas líneas es más legible de ver.
Ejemplo.
Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = VK_RETURN) then
  begin
    if AdoConnection1.Connected then
      AdoConnection1.Close;

    with ADOQuery do
    begin
      SQL.Clear;

      SQL.Add('SELECT');
      SQL.Add('    *');
      SQL.Add('  FROM Pacientes');
      SQL.Add('  WHERE ID_PACIENTES = ' + Edit1.Text);

      Open;
    end;
  end;
end;
Un saludo.

Caral 23-04-2010 21:54:07

Hola
Te voy a hacer un ejemplo con access de lo que creo que es lo que pretendes hacer, dame un minuto.
Saludos

frholguin 23-04-2010 22:06:29

Algo tengo mal porque puse la que me pasaste y se me borra el DBgrid

Caral 23-04-2010 22:18:02

Hola
Este ejemplo esta en access pero te servirá, si es lo que buscas.
Saludos

frholguin 23-04-2010 22:50:56

si me funciono aunque el Grid esta vacio antes de la busqueda

gracais.

frholguin 23-04-2010 22:51:36

pero una pregunta y si el registro no exite

Caral 23-04-2010 23:13:43

Hola
Pues según la consulta si el registro no esta, no lo muestra, no hace nada.
El dbgrid esta vacío en el ejemplo, pero puede activarse antes sin problema.
Saludos


La franja horaria es GMT +2. Ahora son las 18:47:25.

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