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:

Leete la Guia de Estilo (http://www.clubdelphi.com/foros/guiaestilo.php)
Coloca títulos descriptivos a tus hilos
Abre un hilo por cada duda, no las mezclemos.Saludos.

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

Utiliza las etiquetas ...codigo... para darle formato al código, mas información aquí (http://www.clubdelphi.com/foros/showthread.php?t=10005).
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:

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


Con_Art_Bar.ExecSQL;

[eduarcol]

Hola, bienvenido a Delphi, seria bueno que leyeras la guia de estilo (http://www.clubdelphi.com/foros/guiaestilo.php)

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

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 (http://www.clubdelphi.com/foros/guiaestilo.php) 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/] 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 (http://www.marteens.com/caraoculta.htm) 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: [DELPHI]Query1.Active := True o Query1.Open:

Espero te sirva.

Saludos

[Bicho]

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

[Caral]

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

[Bicho]

Eso no es publicidad gratuita!?

Está permitido eso :D

[Caral]

Hola
Si sigues asi te saco una amarilla.:D
Saludos

[D-MO]

Eso no es publicidad gratuita!?
Al parecer si...
Está permitido eso :D
Ya Emilio dijo que no, vamos a tener que ponerle una infracción:cool:;):p:D

Saludos.

[Bicho]

Hola
Si sigues asi te saco una amarilla.:D
Saludos

Otro...

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

[D-MO]

que estais de aribtros todos, o que????
Algo así;)


Tambien da derecho a amonestar a los miembros premium??
Esa es otra de las virtudes :cool::D:rolleyes:

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

Saludos.

[eduarcol]

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


:D:D:D:D es que aqui somos mas amigos que simple foristas

[D-MO]

:D:D:D:D es que aqui somos mas amigos que simple foristas
Pues mira que si somos muy amigos que hasta ofreciendo infracciones andamos :p

Ups... ya volvi a entrar:o

Saludos.

[BlueSteel]

ya..dejense de andar ofreciendo tarjetas ...

si siguen así me llevo la pelota...:D

[Casimiro Notevi]

[..]Como veo que eres novato, te recomiendo encarecidamente que le eches un vistazo (en profundidad) a la cara oculta de Delphi 4 (http://www.marteens.com/caraoculta.htm) 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]

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

Saludos

[FGarcia]

Funciona el link a www.marteens.com (http://www.marteens.com) pero el sitio de descargas no. De eso ya hace algun tiempo .

[Casimiro Notevi]

Funciona el link a www.marteens.com (http://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.

[Ubed]

Bueno pues despues de intentar hacer lo que me decis sige sin funcionarme

el codigo es este

Código Delphi [-] (http://www.clubdelphi.com/foros/#)
procedure TAltas.PO(Sender: TObject);
begin
Con_Art_Bar.Open;
Con_Art_Bar.SQL.Clear;
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;
end;





y el error es este que adjunto

[Bicho]

Hola Ubed,

puedes hacer los siguiente:
Ir al menu Tools => Debugger Options => Pestaña Language Exceptions => Desmarcar la casilla que está abajo: Stop On Delphi Exceptions

Pruébalo, ya no debería salirte el error.
Luego ya nos comentas que más te ocurre.

Mira que al ver el error fue lo primero que se me ocurrió además de lo de activar la Query.

Saludos

[Ubed]

Bueno pues el error parece menor (por lo menos ocupa menos).

dice esto:

Access violation at address 0047BAC5 in module 'Bolcase.exe'. Read the address 000000D2.

[Bicho]

A ver que nos estamos liando.

1.- Donde se produce exactamente el error (en que linea de las que has puesto)
2.- procedure TAltas.PO(Sender: TObject);
begin
Con_Art_Bar.Open; //Esto no. Debes desactivarlo al inicio de la funcion y activarlo cuando quieras ejecutar la sentencia
Con_Art_Bar.SQL.Clear;
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;
end;

Saludos

[Ubed]

parece k ya va pero aora kmo recogo el valor de una lista??

yo tengo una lista y kiero k kuando seleccione un valor me cambie el having de la consulta y donde pone foli aparezca ese valor seleccionado.

Perdonad por todas las molestias, pero soy muy nuevo

[Bicho]

parece k ya va pero aora kmo recogo el valor de una lista??

yo tengo una lista y kiero k kuando seleccione un valor me cambie el having de la consulta y donde pone foli aparezca ese valor seleccionado.

Perdonad por todas las molestias, pero soy muy nuevo

Tranqui, aquí estamos para eso, ayudar y pasarlo bien. Sin malos rollos.

Ahora llegamos al siguiente punto:
- Los parámetros de una query.
Para substituir el valor de un campo en la query por un parámetro, para así tener un valor variable, debes substituir ese valor puesto a manor por parámetro con el nombre que tu quieras y precedido por dos puntos.
Por ejemplo:

Con_Art_Bar.SQL.Add('HAVING Articulo= :Artic');
:Artic es el parámetro al cual le asignaremos el valor que queramos.
Ahora vamos a asignarle un valor

Para ello y siempre después de asignar todo el texto de la query y antes de ejecutarla hacemos lo siguiente:

Con_Art_Bar.SQL.Clear;
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=:Artic');

Con_Art_Bar.ParamByName('Artic').AsString := edit.text;

Con_Art_Bar.Active := True;

Entre los paréntesis ponemos el nombre del parámetro (sin los dos puntos).
Luego hemos puesto AsString para indicarle que el parámetro que le vamos a pasar es de tipo String. Sino es así puedes desplegar las posibles opciones con el codeinsight (Tras el punto espera un poco o presiona Ctrl + Barra espaciadora) y ver los demás tipos que le puedes asignar al parámetro.
Luego asignamos al parámetro un valor, en este caso el contenido de un edit.
Ojo, el valor asignado debe ser del mismo tipo d edatos que el parámetro, en este caso el text de un edit es de tipo string.

Para tú caso particular, debemos saber antes que tipo de objeto estas usando (combobox, listbox, etc).

Haz pruebas con esto y ves jugando un poco.

Edito: ahora que veo en esta misma sentencia hay un error:
Con_Art_Bar.SQL.Add('HAVING Articulo=Foli;');
No es necesario poner los dos puntos al final de la sentencia, ya que el objeto la cierra automáticamente.

[Ubed]

Gracias por todo lo k me estas ayudando.

Esta instruccion no me la reconoce.

Con_Art_Bar.ParamByName('Artic').AsString := edit.text;

Ademas yo lo kiero para una lista. ¿Seria asi?

Con_Art_Bar.ParamByName('Artic').AsString := lista_Art.SelectedItem;

[Bicho]

Gracias por todo lo k me estas ayudando.

Esta instruccion no me la reconoce.

Con_Art_Bar.ParamByName('Artic').AsString := edit.text;

Ademas yo lo kiero para una lista. ¿Seria asi?

Con_Art_Bar.ParamByName('Artic').AsString := lista_Art.SelectedItem;

Que está pasando aquí!? :eek::confused: :p

Si escribes esto Con_Art_Bar. y empiezas a escribir Param... te aparece en el CodeInsight.
si te aparece, ¿entonces que mensaje de error te aparece?

Otra cosa, ¿que tipo de objeto es la lista? = TListBox, TComboBox, TOutline, etc, es que dependiendo del objeto puedes acceder al item seleccionado de distintas maneras.

Saludos

[Ubed]

cuando empiezo a escribir me aparece parameter pero no ParamByName

la lista que uso es un DBlookUpListBox

[Bicho]

Ok, por lo que veo efectivamente debes usar esto


Con_Art_Bar.ParamByName('Artic').AsString := lista_Art.SelectedItem;


- Escribe por favor el error que te devuelve al compilar.
- ¿De que tipo es el objeto Con_Art_Bar? ¿Es un TQuery o descendiente suyo?
- Otra cosa, tambien puedes probar con la propiedad Params, que funciona igual que Parambyname, pero en lugar de indicarle el nombre del parámetro que quieres asignarle valor, usas el índice del parámetro. En tu caso sería el 0, ya que es el primer parámetro, si tienes más tendrías que indicarle el orden que ocupa.

[Ubed]

Ya lo solucione al final ice esto:

Con_Art_Bar.SQL.Add('HAVING Articulo='''+ lista_art.SelectedItem +'''');

Con_Art_Bar es un ADOQuery

[Bicho]

Tambien es una solución.

Una ayuda al respecto, para evitar posibles lios en el futuro con tanta comilla, es usar lo siguiente

Con_Art_Bar.SQL.Add('HAVING Articulo=' + QuotedStr(lista_art.SelectedItem) );

Así sólo pones la comilla para finalizar el string y te olvidas de todos los demás.

Saludos