Página 1 de 1

DBCombox con SQL

Publicado: Jue Oct 09, 2008 1:35 pm
por jrcsistemas
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

DBCombox con SQL

Publicado: Vie Oct 10, 2008 2:10 pm
por jrcsistemas
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: )

DBCombox con SQL

Publicado: Vie Oct 10, 2008 10:48 pm
por jrcsistemas
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.