Hola a todos.
Tengo una DB en MySQL, y en un formulario debo ingresar en un campo de la
tabla Clientes información que esta en otra tabla. Como lo hago?
Abro las dos tablas y ..?
Dudas:
1.Como lleno un DBCombobox de una tabla con informacion de otra tabla. O
tengo que tener una Combobox auxiliar rellenado con la segunda tabla y luego
pasar el dato a la primer tabla.
2.Como muestro despues lo que esta cargado, para poder modificarlo?
Tabla Clientes
Codigo
Nombre
CodigodeIva
Tabla CodIva
Codigo
Detalle
Quiero cargar el dato Clientes->CodigodeIva := CodIva->Codigo
Pero siempre mostrar en pantalla CodIva->Detalle
Gracias
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
DBCombox con SQL
-
- Mensajes: 180
- Registrado: Lun Sep 15, 2008 2:53 pm
-
- Mensajes: 180
- Registrado: Lun Sep 15, 2008 2:53 pm
DBCombox con SQL
Lo que me falta es pasar el array que me retorna la consulta SQL a Item y
ItemBound del DBComboBox.
No me acepta
Local aData, nI
IF ::oData:Execute( "select detalle from provincias",, @aData )
For nI := 1 to Len( aData )
::oDBComboBoxProvincia:AddItem( aData[nI] )
Next
ENDIF
Me responde
LTRIM(0)
Error BASE/1101 Argument error: LTRIM
Argumentos: ( [ 1] = Tipo: A Valor: )
ItemBound del DBComboBox.
No me acepta
Local aData, nI
IF ::oData:Execute( "select detalle from provincias",, @aData )
For nI := 1 to Len( aData )
::oDBComboBoxProvincia:AddItem( aData[nI] )
Next
ENDIF
Me responde
LTRIM(0)
Error BASE/1101 Argument error: LTRIM
Argumentos: ( [ 1] = Tipo: A Valor: )
-
- Mensajes: 180
- Registrado: Lun Sep 15, 2008 2:53 pm
DBCombox con SQL
Encontre la solucion, no se si es la mejor opcion pero funciona. Si alguien
sabe una mejor forma de hacerlo, por favor digamelo.
Local aData, nI
Local aTempDeta := {}
Local aTempCodi := {}
::oDataElpra:Execute( "select detalle from provincias",, @aData )
For nI:= 1 to Len( aData )
Aadd( aTempDeta, aData[nI][1] )
Next
::oDBComboBoxProvincia:aItems := aTempDeta
::oDataElpra:Execute( "select codigo from provincias",, @aData )
For nI:= 1 to Len( aData )
Aadd( aTempCodi, aData[nI][1] )
Next
::oDBComboBoxProvincia:aItemsBound := aTempCodi
Yo pensaba que aData era unidimensional, por eso no me funcionaba
::oDBComboBoxProvinvia:aItems := aData
o
::DBComboBoxProvincias:aItems := aData[1] // lo vi por ahi, pero me pasaba
una sola posicion del array.
Gracias de todas formas.
sabe una mejor forma de hacerlo, por favor digamelo.
Local aData, nI
Local aTempDeta := {}
Local aTempCodi := {}
::oDataElpra:Execute( "select detalle from provincias",, @aData )
For nI:= 1 to Len( aData )
Aadd( aTempDeta, aData[nI][1] )
Next
::oDBComboBoxProvincia:aItems := aTempDeta
::oDataElpra:Execute( "select codigo from provincias",, @aData )
For nI:= 1 to Len( aData )
Aadd( aTempCodi, aData[nI][1] )
Next
::oDBComboBoxProvincia:aItemsBound := aTempCodi
Yo pensaba que aData era unidimensional, por eso no me funcionaba
::oDBComboBoxProvinvia:aItems := aData
o
::DBComboBoxProvincias:aItems := aData[1] // lo vi por ahi, pero me pasaba
una sola posicion del array.
Gracias de todas formas.