![]() |
Un par de ayuditas
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. |
Saludos, bienvenido al foro, tengo 3 recomendaciones que hacerte:
Edito: Leyendo tu post mas detenidamente, te hago otras recomendaciones:
|
Hola
Bienvenido/a al club, es umportante que leas la guia de estilo. Con relacion a tu pregunta: Me parece que falta esto. Saludos |
Cuando utilizas comandos "Select" , necesitas activar la consulta. Supongo que te hace falta:
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:
|
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
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 |
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:
Espero te sirva. Saludos |
Leches!!! si que me he enrollado, que ya han contestado 4. :p
|
|
Eso no es publicidad gratuita!?
Está permitido eso :D |
Hola
Si sigues asi te saco una amarilla.:D Saludos |
Cita:
Cita:
Saludos. |
Cita:
que estais de aribtros todos, o que???? Tambien da derecho a amonestar a los miembros premium?? |
Cita:
Cita:
PD// Como cosa rara, ya le cambiamos el rumbo a este hilo también:o Saludos. |
Cita:
:D:D:D:D es que aqui somos mas amigos que simple foristas |
Cita:
Ups... ya volvi a entrar:o Saludos. |
ya..dejense de andar ofreciendo tarjetas ...
si siguen así me llevo la pelota...:D |
Cita:
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. |
Cita:
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 |
Funciona el link a www.marteens.com pero el sitio de descargas no. De eso ya hace algun tiempo .
|
Cita:
|
Bueno pues despues de intentar hacer lo que me decis sige sin funcionarme
el codigo es este Código Delphi [-] 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 |
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 |
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. |
A ver que nos estamos liando.
1.- Donde se produce exactamente el error (en que linea de las que has puesto) 2.-
Saludos |
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 |
Cita:
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: :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:
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: No es necesario poner los dos puntos al final de la sentencia, ya que el objeto la cierra automáticamente. |
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; |
Cita:
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 |
cuando empiezo a escribir me aparece parameter pero no ParamByName
la lista que uso es un DBlookUpListBox |
Ok, por lo que veo efectivamente debes usar esto
- 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. |
Ya lo solucione al final ice esto:
Con_Art_Bar.SQL.Add('HAVING Articulo='''+ lista_art.SelectedItem +''''); Con_Art_Bar es un ADOQuery |
Tambien es una solución.
Una ayuda al respecto, para evitar posibles lios en el futuro con tanta comilla, es usar lo siguiente
Así sólo pones la comilla para finalizar el string y te olvidas de todos los demás. Saludos |
La franja horaria es GMT +2. Ahora son las 06:31: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