Un par de ayuditas

[Ubed]

Bueno ahi voy, la primera:

¿Alguien sabe porque no me funciona esto?

procedure TAltas.PO(Sender: TObject);
begin
Con_Art_Bar.SQL.Clear;
Con_Art_Bar.active := False;
Con_Art_Bar.SQL.Add('SELECT Min(Precio) AS minimo, Articulo, Nombre, ');
Con_Art_Bar.SQL.Add('Precio, Fecha, Ultimo_precio, Fecha_ultima, Cod_Art');
Con_Art_Bar.SQL.Add('FROM proveedores, articulos');
Con_Art_Bar.SQL.Add('where proveedores.Cod_Proveedor = Articulos.Cod_Proveedor');
Con_Art_Bar.SQL.Add('GROUP BY Articulo, Nombre, Precio, ');
Con_Art_Bar.SQL.Add('Fecha, Ultimo_precio, Fecha_ultima, Cod_Art');
Con_Art_Bar.SQL.Add('HAVING Articulo=Foli;');
DBText1.Visible := True;
DBText2.Visible := True;
DBText3.Visible := True;
DBText4.Visible := True;
DBText5.Visible := True;
DBText7.Visible := True;
end;

La segunda:

¿Como hago par realizar Inserts en mi BD de Access que esta conectada por ADO?


Perdon por las molestias pero soy nuevo e intento aprender Delphi por mi cuenta.

Muchas gracias de antemano.

[D-MO]

Saludos, bienvenido al foro, tengo 3 recomendaciones que hacerte:

1. Leete la Guia de Estilo
2. Coloca títulos descriptivos a tus hilos
3. Abre un hilo por cada duda, no las mezclemos.

Saludos.

Edito:
Leyendo tu post mas detenidamente, te hago otras recomendaciones:

1. Utiliza las etiquetas [delphi]...codigo...[/delphi] para darle formato al código, mas información aquí.
2. Explica que errores obtienes o que es lo que no funciona

[[Caral]]

Hola
Bienvenido/a al club, es umportante que leas la guia de estilo.
Con relacion a tu pregunta:

Código Delphi [-]
procedure TAltas.PO(Sender: TObject);
begin
Con_Art_Bar.SQL.Clear;
Con_Art_Bar.active := False;
Con_Art_Bar.SQL.Add('SELECT Min(Precio) AS minimo, Articulo, Nombre, ');
Con_Art_Bar.SQL.Add('Precio, Fecha, Ultimo_precio, Fecha_ultima, Cod_Art');
Con_Art_Bar.SQL.Add('FROM proveedores, articulos');
Con_Art_Bar.SQL.Add('where proveedores.Cod_Proveedor = Articulos.Cod_Proveedor');
Con_Art_Bar.SQL.Add('GROUP BY Articulo, Nombre, Precio, ');
Con_Art_Bar.SQL.Add('Fecha, Ultimo_precio, Fecha_ultima, Cod_Art');
Con_Art_Bar.SQL.Add('HAVING Articulo=Foli;');
Con_Art_Bar.active := True;
DBText1.Visible := True;
DBText2.Visible := True;
DBText3.Visible := True;
DBText4.Visible := True;
DBText5.Visible := True;
DBText7.Visible := True;
end;

Me parece que falta esto.
Saludos

[ContraVeneno]

Cuando utilizas comandos "Select" , necesitas activar la consulta. Supongo que te hace falta:

Código Delphi [-]
Con_Art_Bar.Open;

Para insertar registros, puedes usar la cláusula "Insert" en lugar de un "Select"
y en este caso, todas las consultas que realizan una acción (insert, delete, create, etc) deben ser activadas con el comando ExecSQL:

Código Delphi [-]
Con_Art_Bar.ExecSQL;

[[eduarcol]]

Hola, bienvenido a Delphi, seria bueno que leyeras la guia de estilo

Para que te responda de manera mas facil encierra el codigo entre etiquetas es mas facil para quien te vaya a ayudar

Respecto a tu problema si no dices el error solo puedo tratar de adivinar, asi que adivinando te podria decir que tienes que abrir la tabla

Código Delphi [-]
procedure TAltas.PO(Sender: TObject);
begin
   Con_Art_Bar.SQL.Clear;
   Con_Art_Bar.active := False;
   Con_Art_Bar.SQL.Add('SELECT Min(Precio) AS minimo, Articulo, Nombre, ');
   Con_Art_Bar.SQL.Add('Precio, Fecha, Ultimo_precio, Fecha_ultima,    Cod_Art');
   Con_Art_Bar.SQL.Add('FROM proveedores, articulos');
   Con_Art_Bar.SQL.Add('where proveedores.Cod_Proveedor = Articulos.Cod_Proveedor');
   Con_Art_Bar.SQL.Add('GROUP BY Articulo, Nombre, Precio, ');
   Con_Art_Bar.SQL.Add('Fecha, Ultimo_precio, Fecha_ultima, Cod_Art');
   Con_Art_Bar.SQL.Add('HAVING Articulo=Foli;');
   Con_Art_Bar.active := True;
   DBText1.Visible := True;
   DBText2.Visible := True;
   DBText3.Visible := True;
   DBText4.Visible := True;
   DBText5.Visible := True;
   DBText7.Visible := True;
end;

Fijate en la linea que esta resaltada prueba y dinos que tal te va

PD: Mira lo bien que se ve el codigo entre etiquetas

edito: 4 respuestas al mismo tiempo, ejejejeje despues dicen q aqui no ayudan

[[Bicho]]

Hola,

antetodo bienvenido al ClubDelphi. Te recomiendo una lectura de la Guía de Estilo y verás que no conviene que hagas preguntas distintas sobre el mismo hilo.
Debes describir lo máximo posible tus dudas o problemas a fin de que resulte lo más fácil posible para todo el mundo el poder ayudarte. Además cuando introduzcas código en cualquier mensaje, no olvides envolverlo entre las etiquetas o [delphi][DELPHI/] para que sea más fácil su lectura.

Como veo que eres novato, te recomiendo encarecidamente que le eches un vistazo (en profundidad) a la cara oculta de Delphi 4 que te ayudará en tus inicios con Delphi. Esto te ayudará en el segundo problema y en muchos otros que te puedan surgir en adelante.

En cuanto a tú primera duda:
- Desactivas la query
- Rellenas la propiedad SQL.Text
- Pero no la activas para que se ejecute:

Código Delphi [-]
Query1.Active := True o Query1.Open:

Espero te sirva.

Saludos

[[Bicho]]

Leches!!! si que me he enrollado, que ya han contestado 4.

[[Caral]]

Hola
Revisa esto:
http://www.clubdelphi.com/foros/showthread.php?t=44763
Saludos

[[Bicho]]

Eso no es publicidad gratuita!?

Está permitido eso

[[Caral]]

Hola
Si sigues asi te saco una amarilla.
Saludos

[D-MO]

Empezado por Bicho

Eso no es publicidad gratuita!?

Al parecer si...

Empezado por Bicho

Está permitido eso

Ya Emilio dijo que no, vamos a tener que ponerle una infracción

Saludos.

[[Bicho]]

Empezado por Caral

Hola
Si sigues asi te saco una amarilla.
Saludos

Otro...

que estais de aribtros todos, o que????
Tambien da derecho a amonestar a los miembros premium??

[D-MO]

Empezado por Bicho

que estais de aribtros todos, o que????

Algo así

Empezado por Bicho

Tambien da derecho a amonestar a los miembros premium??

Esa es otra de las virtudes

PD//
Como cosa rara, ya le cambiamos el rumbo a este hilo también

Saludos.

[[eduarcol]]

PD//
Como cosa rara, ya le cambiamos el rumbo a este hilo también

es que aqui somos mas amigos que simple foristas

[D-MO]

Empezado por eduarcol

es que aqui somos mas amigos que simple foristas

Pues mira que si somos muy amigos que hasta ofreciendo infracciones andamos

Ups... ya volvi a entrar

Saludos.

[[BlueSteel]]

ya..dejense de andar ofreciendo tarjetas ...

si siguen así me llevo la pelota...

[Casimiro Notevi]

Empezado por Bicho

[..]Como veo que eres novato, te recomiendo encarecidamente que le eches un vistazo (en profundidad) a la cara oculta de Delphi 4 que te ayudará en tus inicios con Delphi. Esto te ayudará en el segundo problema y en muchos otros que te puedan surgir en adelante. [..]

El dominio de Ian Marteens le ha caducado y no lo ha renovado, seguramente está de vacaciones y no se ha enterado.
El libro lo puse en el FTP de clubdelphi, pero hubo un problemilla y Emilio está solucionándolo.
En cuanto lo tenga listo, ya se podrá descargar el libro.

[[Bicho]]

Empezado por Casimiro Notevi

El dominio de Ian Marteens le ha caducado y no lo ha renovado, seguramente está de vacaciones y no se ha enterado.
El libro lo puse en el FTP de clubdelphi, pero hubo un problemilla y Emilio está solucionándolo.
En cuanto lo tenga listo, ya se podrá descargar el libro.

Pues parece que ya se ha dado cuenta porque ahora mismo ya funciona.
Al principio iba a poner el de terawiki (ftp clubdelphi) pero tampoco funcionaba

Saludos

[[FGarcia]]

Funciona el link a www.marteens.com pero el sitio de descargas no. De eso ya hace algun tiempo .

[Casimiro Notevi]

Empezado por FGarcia

Funciona el link a www.marteens.com pero el sitio de descargas no. De eso ya hace algun tiempo .

A eso me refería, el libro lo tiene alojado en otro dominio.