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
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
Saludos Edy