Mari
12 de Noviembre del 2003

A continuación muestro el código que tengo y lo que necesito

Soy muy inexperta en el manejo de datacombo y no sé qué propiedades tiene

Necesito mostrar dos columnas en un datacombo, trabajar con la columna principal y que el usuario pueda ir digitando a medida que se va autocompletando. Conozco las propiedades boundcolumn, Rowsource y listfield pero no es suficiente.

A continuación presento el código que tengo y mis inquietudes adicionales respecto a él.

BaseDatos es la conexión a la base de datos que esta en mySQL

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic

Consulta = BaseDatos.OpenRecordset("Select * from tblDescripcionesGlosas " & _
"where consecutivo = " & txtRadicadoGlosa & " and cargo = '" & DataComboDetCargoNo & "' ")

rs.Open Consulta, BaseDatos

If rs.EOF = False Then ‘Luego de preguntar por el eof no me deja leer los valores del rs
txtEntrada = rs.Fields("Entrada")
DataComboCentroCostos = rs.Fields("CentroCostos")
txtVlrCargo = rs.Fields("ValorCargo")

Set rsSub = New ADODB.Recordset
rsSub.CursorLocation = adUseClient
rsSub.CursorType = adOpenDynamic
rsSub.LockType = adLockOptimistic

ConsultaSub = BaseDatos.OpenRecordset("Select sum(tblDescripcionesGlosas.valorglosa) as Glosa from tblDescripcionesGlosas where consecutivo = " & txtRadicadoGlosa & " and cargo = '" & DataComboDetCargoNo & "' ")

rsSub.Open ConsultaSub, BaseDatos
txtVlrTotGlosaCargo = rsSub.Fields("Glosa") ‘Cómo puedo mostrar lo que llamé Glosa en la consulta para presentarlo en un txt

Else
MsgBox "Este número de subfactura no existe”
End If

Ren?
12 de Noviembre del 2003

te reitero que el datacombo solo trabaja con una columna, si necesitas mas debes con un grid o algo asi.
respecto a cargar el valor en una textbox

text1.text=rsSub.Fields("Glosa") .value o
text1.text=rsSub!glosa

saludos