Ayuda con combobox y ADO

Adrian
25 de Julio del 2004
Hola a todos, por favor alguien me puede ayudar con lo siguiente: tengo un sistema que trabaja con una BDD en access2000, para realizar la conexión a la BDD tengo un módulo, quisiera saber como hago para que me muestre en un combobox los elementos de una tabla pero a traves del codigo. Agradezco su tiempo y colaboración

krizall
25 de Julio del 2004
hola adrian, si te refieres a obtener todos los nombres de los campos que componen una tabla pues serai asi

supongamos esto


private sub Campos()
dim cn as adodb.connection
dim rs as adodb.recordset
set cd=new adodb.connection
set rs=new adodb.recordset
Conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"data source=" & Ruta & ";persist security info=false;jet oledb:database password=" & Pwd
'si la base de datos no tiene clave quitar lo que sigue de "Info=false"
Conn.Open
rs.open "Nombretabla",cn,adopenstatic,adlockoptimistic
for i=0 to rs.fiels.count-1
combo1.additem rs.fiels(i).name
next i
rs.close
cn.close
set rs=nothing
set cn=nothin
end sub


esperot e sirva este ejemplo

Edy P?z
25 de Julio del 2004
Hola... sabes tu problema sería mucho mejor resuelto agregando un componente DataCombo y DataList que soporta columnas enteras de una tabla en especial, te enviaré dentro de unas horas a tu correo, una aplicación sobre su uso con su respectiva explicación.

Saludos Edy