Visual Basic - combo y tabla

tengo una tabla ke se llama forma solo hay un campo llamado nombre

kiero hacer ke en un combobox me aparezcan los nombres ke esten en esa tabla
como seria el codigo, baje un codigo fuente pero esta super raro, no le entiendo

gracias

lo puedes hacer de la siguiente manera

copia este sub en tu formulario de vb6

Sub muestra_nom()

conectar
registro.Open "select nombre from forma", , adOpenDynamic

Do Until registro.EOF
Combo1.AddItem Trim$(registro.Fields("tp").Value)
registro.MoveNext
Loop

End Sub

el "conectar" es el nombre de mi conexion a la base de datos, deberias cambiarlo por el nombre ke tu le diste, asi como tambien "registro" ke es el nombre ke le di a mi recordset, tambien deberias cambiarlo por el nombre ke tu le diste.

Bueno, ua vez ke hayas copiado este sub en tu formulario, copia el nombre del sub "muestra_nom" en el form load del formulario, kedaria como esto

Private Sub Form_Load()

muestra_nom

End Sub

Asegurate tambien de ke el nombre del combobox sea Combo1.

suerte y espero te sirva.

en esta linea

Combo1.AddItem Trim$(registro.Fields("tp").Value)

donde dice tp, cambialo por el nombre de la columna de tu tabla, o sea nombre.

sorry se me fue, estaba probandolo para segurarme ke funciona.

po si acaso keda asi:

Sub muestra_nom()

conectar
registro.Open "select nombre from forma", , adOpenDynamic

Do Until registro.EOF
Combo1.AddItem Trim$(registro.Fields("nombre").Value)
registro.MoveNext
Loop

End Sub

me falta eso ke dices de conectar el form a la base de datos, como hago con eso? asi tengo mi form

Sub muestra_nom()

conectar ------------------------------------------ aki me marca error
registro.Open "forma", , adOpenDynamic

Do Until registro.EOF
forma.AddItem Trim$(registro.Fields("nombre").Value)
registro.MoveNext
Loop

End Sub


Private Sub Form_Load()
muestra_nom
End Sub
gracias

como le hacen para saberse tanta cosa ustedes?

mmm......como te conectas a la base de datos? y ke motor de base de datos utilizas, acces, sql server, etc.

utilizo access y no entendi eso de conectar ke comando usar y eso de registro o recordset ke decias, me podrias ayudar con eso porfavor? gracias

mi nivel de progrmacion se oxido muxisino, 7 años no programe nada y se me olvido, recordando cosas asi ya me arranco solo, gracias

yo no he trabajado con access pero encontre esto, hechale una mirada

AHORA TRABAJAMOS EN VISUAL BASIC



Cuando creamos el proyecto lo primero q debemos hacer para trabajar con nuestra base de datos es la "referencia al motor de bases de datos de Microsoft". Para esto desde Visual Basic vamos al menu Proyecto -> Referencia y seleccionamos Microsoft DAO 3.51 Object Library (si tenes otra versión igual tiene q funcionar).



Ahora para ver lo q estamos haciendo cuando ejecutamos, vamos a agregar una ListBox (llamada List1) en nuestro formulario.



A partir de ahora es todo codigo.



Creamos las variables en la parte General del formulario:



Dim BDD as DataBase 'Objeto para manejar la base de datos

Dim TBL as RecordSet 'Objeto para manejar la Tabla



Es importante q tengan en cuenta lo q maneja cada objeto.



Dijimos q el objeto BDD maneja la base de datos. Entonces podemos cargarla alli de la siguiente manera:



Set BDD = OpenDatabase("c:\mis documentos\base1.mdb") 'Abre la base de datos



Bueno, ahora q tenemos abierta la base de datos, vamos a realizar unas consultas utilizando ordenes SQL. Por lo tanto podriamos declarar una variable para almacenar nuestra sentencia SQL.



Dim SQL As String



Ya estamos listos para aplicar SQL...

---------------------------------------------------------------------------------------------------------------

Entonces el sub deberia kedar mas o menos asi:

Sub muestra_nom()

SQL = "SELECT nombre FROM forma"
Set TBL = BDD.OpenRecordset(SQL) 'TBL almacena todos los valores de _
'la tabla

TBL.MoveFirst 'nos posicionamos en el primer registro de la tabla

Do Until TBL.EOF 'La propiedad EOF se pone TRUE cuando se a llegado al
'final de la tabla
Combo1.AddItem TBL("nombre")
TBL.MoveNext 'pasamos al siguiente registro
Loop

End Sub

prueba con eso, a ver como te va.

suerte

como le sigas dando explicaciones de ese tipo, cada vez se va a enterar menos.
yo creo que vales para profe ¡de algunos!

La canción se llama "Aburrido me voy" no le cambies el título, Ja Ja Ja

todo se ve bien, muy buena ayuda, primero ke nada kiero agradecerte por el seguimiento ke haces para ayudarme, de verdad, gracias

ahora haciendo recuento

tengo una base de datos llamada base.mdf
dentro de lla esta una tabla llamada FORMA
dentro de forma hay un campo llamado nombre

y este es mi codigo del form

Dim bd As Connection
Dim rec As Recordset
Dim SQL As String

Sub muestra_nom()

Set db = OpenDatabase("D:\Thunder\system\base.mdb")


SQL = "SELECT nombre FROM forma"
Set rec = db.OpenRecordset(SQL)
rec.MoveFirst
Do Until rec.EOF
Combo1.AddItem TBL("nombre")
TBL.MoveNext
Loop
End Sub

Private Sub Form_Load()
muestra_nom
End Sub

el detalle es cuando lo ejecuto me sale este rror run time error 3343 unrecognized database format 'd:\thunder\system\base.mdb

no se si tenga algo ke ver el ke tenga office 2007 , pero lo kite y puse el office 2000 e hice la tabla de nuevo y me sale lo mismo
ke podria hacer en ese caso? gracias

siento ke es cualkier detalle ke falta para terminar :D

el problema lo resolvi cuando en vez de dejarle el dao 3.51 lo puse en dao 3.6 ahi si me dejo abrirla y ya kedo perfecto el programa, te lo agradezco bastante amigo, yo al iwal ke tu, me gusta andar en foros y ayudar de lo ke se, te lo agradezco
saludos, pasa un buen dia

eeyyy, ke weno ke pudiste resolverlo, y ya te esta funcionando, weno cualkier cosa por aca lo vemos.

Todo aporte es bienvenido y todo posteo constructivo es sirve, no se ke paso con ivan el temible y adios, ke pusieron esos comentarios, mientras se trate de ayudar al ke lo necesita todo deberia andar bien.

Saludos

pienso iwal ke tu amigo, no le tome importancia a los comentarios de los ke postearon asi, , tal vez no sepa muxo de visual pero si se de otras cosas en ke podria ayudar con todo gusto, entre todos hacemos un ekipo

Gracias