combobox

04/02/2008 - 01:53 por JForero | Informe spam
Buenas tardes grupo...

tengo varios comobox en una hoja de cálculo, puedo llenar las alternativas
del combo desde una base de datos de Access ??? como lo hago??.

Ejemplo:

combobox1 = CompaniaSeguros
combobox2 = ClaseTransaccion

La base de datos se encuentra en:
d:\Datos\sipas (sipas nombre de la base de datos)

EL combobox1 debe llenarse con el contenido de la tabla t002CompaniasSeguros

EL combobox2 debe llenarse con el contenido de la tabla t001ClaseTransaccion

gracias por la ayuda que me puedan prestar

saludos..
Jorgef

Preguntas similare

Leer las respuestas

#1 Abraham
04/02/2008 - 17:33 | Informe spam
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String

Set cnn = New ADODB.Connection

With cnn
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "data source=S:\Ned-Sistema\TablasNed.mdb"
.Open
End With

Set rst = New ADODB.Recordset
sql = "select Distritos.distrito from Distritos where
Distritos.provincia='Lima'"

With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open sql, cnn, , , adCmdText
End With

Hoja1.Combo2.Clear
Do
Hoja1.Combo2.AddItem rst.Fields!distrito.Value
rst.MoveNext
Loop Until rst.EOF

Set cnn = Nothing
Set rst = Nothing

Abraham
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida