FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Insertar Datos De Un Dbgrid A Una Tabla
HOLA QUE TAL , BUENO SOY NUEVO EN DELPHI , TENGO UN PROBLEMA , TENGO UN DBGRID DONDE MUESTRO LA INFORMACION DE UNA TABLA, Y DESPUES DE REALIZAR UNA BUSQUEDA ME GUSTARIA QUE LA FILA QUE FUE SELECCIONADA COMO RECULTADO DE LA BUSQUEDA `PODER INSERTARLA EN UNA TABLA EN MYSQL, EL PROBLEMA QUE TENGO , ES QUE NO SE COMO RECUPERAR LA INFORMACION DE LA FILA SELECCIONADA DESPUES DE MI BUSQUEDA PARA PODER INSERTARLA EN UNA TABLA , HE DADO UN VISTAZO POR LA INTERNET, Y NO HE PODIDO ENCONTRAR ALGO AL RESPECTO, ESPERO ALGUIEN ME PUEDA AYUDAR .. MUCHISIMAS GRACIAS, MUESTRO MI CODIGO PARA LA BUSQUEDA,
Código Delphi [-] procedure TFMain.Edit1Change(Sender: TObject); var i:integer; palabras: TStringList; consulta: String; begin if Edit1.Text = '' then begin consulta:='Select * from productos'; ZQuery.close; ZQuery.sql.clear; ZQuery.sql.add(consulta); ZQuery.open; end else begin palabras := TStringList.Create; palabras.CommaText := Edit1.Text; ZQuery.close; ZQuery.sql.clear; for i:=0 to palabras.Count-1 do begin consulta:=consulta+'and Producto like "%'+palabras.Strings[i]+'%"'; end; Delete(consulta,1,3); consulta:='Select * from productos where'+consulta; ZQuery.SQL.Add(consulta); ZQuery.Open; end;//else end; |
#2
|
||||
|
||||
Hola schaka,
No te enojes, pero te voy a pedir que respetes la guia de estilo: 1. No escribas en mayusculas, pareciera que estás gritando. 2. Usa las etiquetas delphi: [ DELPHI ] [ /DELPHI ] (sin los espacios entre los corchetes) para que el código se vea bien. Saludos, |
#3
|
|||
|
|||
hola que tal , bueno soy nuevo en delphi , tengo un problema , tengo un DBgrid donde muestro la informacion de una tabla y despues de realizar una busqueda me gustaria que la fila que fue seleccionada como resultado de la busqueda poder insertarla en una tabla en mysql,pero no se como recuperar la informacion de la fila seleccionada para poder insertarla en una nueva tabla, he dado un vistazo por la internet y no he encontrado nada aun, espero me puedas ayudar gracias, a continuacion muestro mi codigo de busqueda
|
#4
|
|||
|
|||
Hola, no se bien que es lo que queres hacer pero el codigo podrias mejorarlo un poco el stringlist trata de liberarlo despues que no lo uses, podrias poner su creacion entre un try..except para salvar cualquier inconveniente.
Despues si queres insertar datos de un dbgrid en un tabla X, deberias poder recuperar los valores de la filas o columnas de grilla si te fijas cuando refencias a la grilla en el codigo y poniendo punto te aparecen todas sus propiedades y metodos disponibles. Si no tambien lo podiras buscar en la ayuda de delphi que por cierto es muy buena. Otra recomendacion es que te bajes el libro "La Cara Oculta de Delphi 4" que es un documento bueno para aprender delphi, creo que se encuentra disponible en este foro para bajarlo. Saludos y espero te sirvan mis opiniones! LA PATRIA SERA LIBRE! |
#5
|
|||
|
|||
Bueno mostrare ahora un metodo que he creado para recuperar los datos de un dbgrid llamado DProductos para despues insertarlos en una tabla, pero no me inserta valores nulos y me manda este mensaje "can not open a resultset" , pongo a continuacion mi metodo,
|
#6
|
|||
|
|||
Hola, yo pondría algo así:
Código:
var Consulta : String; begin Consulta:'INSERT INTO remision (clave, producto, preciov, preciou) VALUES (:clave, :producto, :preciov, :preciou)'; Remision.SQL.Clear; Remision.SQL.Add(Consulta); Remision.Parameters.Parambyname('Clave').Value := DProductos.Fields[0].AsString; Remision.Parameters.Parambyname('Producto').Value := DProductos.Fields[1].AsString; Remision.Parameters.Parambyname('PrecioV').Value := DProductos.Fields[4].AsString; Remision.Parameters.Parambyname('PrecioU').Value := DProductos.Fields[5].AsString; Remision.ExecSql; // Remision.Open; es para hacer una consulta, tienes que poner EXECSQL para hacer un Insert/update/delete end; Y otra cosa, suponiendo que DProductos sea una query, yo me referiría a los datos de esta forma: Código:
Remision.Parameters.Parambyname('PrecioU').Value := DProductos.FieldByName('PrecioU').AsString; Espero haberte ayudado algo, un saludo
__________________
Rafita. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
insertar datos en una tabla | Alkazar | C++ Builder | 3 | 13-11-2007 14:12:00 |
Como insertar datos a una tabla con un SP | Tauro78 | Firebird e Interbase | 1 | 31-01-2007 22:46:13 |
Dbgrid para insertar en una tabla pero cogiendo datos de otra tabla | taru | MySQL | 1 | 27-07-2006 15:36:12 |
insertar en tabla las lineas que seleccione el usuario desde un dbgrid | arpegius25 | Conexión con bases de datos | 3 | 09-05-2006 10:08:59 |
Como insertar datos de una tabla en otra tabla? | Salomon | Firebird e Interbase | 1 | 28-08-2003 11:29:40 |
|