ARIEL
28 de Octubre del 2003

PORFA NECESITO QUE ALGUIEN ME ENVIE EL CODIGO PARA PODER LLENAR UN COMBO DESDE LA BASE DE DATOS CON UNA CONSULTA EN SQL.

SmacK
28 de Octubre del 2003

Yo lo hago así...tengo una pequeña función llamada agraitem a la cual le paso como parametros el combo que quiero llenar, el recordset de la tabla que quieres utilizar y el campo con el que quiero llenar, te mando el siguiente codigo, en el cual se asume que la Base de datos ya esta abierta y que se llama "DB". Espero te sirva un saludo. SmacK

Dim rsAccion as new adodb.recordset

Set rsAccion = new adodb.recordset
rsAccion.CursorType = adOpenKeyset rsAccion.LockType = adLockOptimistic rsAccion.Open "Acciones", db, , , adCmdTable
Combo1 = AgregaItems(Combo1, rsAccion, rsAccion.Fields!idaccion)

Public Function AgregaItem(CmbTemp As ComboBox, rsTemp As ADODB.Recordset, Campo1 As Field)
rsTemp.MoveFirst
Do While Not rsTemp.EOF
CmbTemp.AddItem Campo1
rsTemp.MoveNext
Loop
End Function

SmacK
28 de Octubre del 2003

Se me olvido comentar, en caso de que estes trabajando con objetos data utiliza los DBcombo y solo modifica sus propiedades para realizar lo que necesitas. Saludos. SmacK