combobox and bd

Salu2!
Dim rs as AdoDb.Recordset
Dim Sql as String


sql = "SELECT TipoId,Tipo FROM Tipos"
Set rs = new Recordset
With Rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = ReadOnly
.Open sql
end with
While Not rs.Eof
cbo.AddItem rs!Tipo
cbo.ItemData(cbo.NewIndex) = rs!TipoID
rs.moveNex
Wend

Suerte!!!

Att.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
José Trinidad García M. <El Tiko>
(Guía de buen uso del foro)
http://perso.wanadoo.es/rubenvigon/foro
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Alguien sabe el codigo para mostrar en un combox el
contenido de un campo de una tabla.

Dim Recset as ADODB.Recordset, Conexion as ADODB.Connection

Conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Base de datos\BaseDeDatos.mdb;Persist Security Info=False"

Conexion.Open

Instruccion = "Select campo From Tabla"
Recset.open Instruccion, Conexion

Combo.Clear

Do Until Recset.EOF

Combo.AddItem Recset("Campo")
Recset.MoveNext

Loop

Conexion.Close


Saludos=P
Laura N. Rojas C.
Informática
Caracas - Venezuela

1.- Te conectas a la base de datos, supongamos que usas access 2000 y ADO.
para esto tienes definir primero dos objetos: conexion y recordset:
EN UN MODULO...
Global cnVentas As Connection 'base dedatos
Global rsArticulos As Recordset 'tabla

y luego abrirlos:
EN EL FORMULARIO...
Set cnVentas = New Connection
Set rsArticulos = New Recordset
With cnVentas
.Provider = "Microsoft.Jet.OLEDB.4.0" 'access 2000
.Open "C:\datos\ventas.mdb"
End With
'parametriza y abre articulos
rsArticulos.CursorType = adOpenStatic
rsArticulos.LockType = adLockOptimistic
rsArticulos.CursorLocation = adUseClient
rsArticulos.Open "SELECT * FROM Articulos ORDER BY CLAVE", cnVentas,
adCmdText

y una vez abierto el recordset, se puebla el combobox:

If Not (rsArticulos.EOF) Then
Do Until rsArticulos.EOF
cboNomArticulo.AddItem rsArticulos!Nombre
rsArticulos.MoveNext
Loop
End If
y eso es todo. Cualquier duda.

Saludos!!!

gustavo gutierrez