Cómo llenar un cuadro combinado de VB con los datos de la tabla de base de datos

En Visual Basic, los cuadros combinados se utilizan a menudo en los programas de entrada de datos y el momento de presentar la información a través de formularios en línea. Por ejemplo , puede que tenga que seleccionar de una lista de los estados o códigos postales y haciendo clic en la lista desplegable que presenta con varias selecciones. Un cuadro combinado se rellena con objetos definidos por el usuario que se añaden normalmente por el programador en tiempo de diseño , pero también se puede llenar un cuadro combinado con elementos de una tabla de base de datos utilizando sólo unas pocas líneas de código. Cosas que necesitará
Visual Basic instalado Base de datos del archivo
Ver Más instrucciones
1

lanzamiento de Visual Basic , haga clic en el botón "Inicio " y seleccione "Programas , " " Microsoft Visual Studio " y luego" Microsoft Visual Basic [ número de versión ] . "
2

Seleccione " EXE estándar "bajo el cuadro de diálogo " Nuevo proyecto " . Haga clic en " Abrir" para abrir un nuevo formulario .

3 Haga clic en el control " ComboBox " de la caja de herramientas de la izquierda y arrastrarlo a la forma central. Establezca sus propiedades en la ventana Propiedades de la derecha .
4

Agregar un control " ADO " en el formulario. Establezca su propiedad "Visible " a " falso ".
5

clic en el botón " Ver código " en la parte superior de la ventana Explorador de proyectos para empezar a añadir código. En el siguiente ejemplo, se añadirán los 50 estados de EE.UU. en el cuadro combinado de una tabla de base de datos. Cuando el formulario se carga en tiempo de ejecución , el cuadro combinado se rellena automáticamente. Ir al evento " Form_Load " e introducir el código similar al siguiente :

conec Dim As New ADODB.ConnectionDim rs As New ADODB.RecordsetSet conn = DBEngine.OpenDatabase ( App.Path & " \\ dbDatabase . mdb ") Set rs = conn.OpenRecordset ( " tblStates " )

Si rs.RecordCount > 0 ThenDo Aunque no rs.EOFWith Combo1.AddItem rs.Fields ( " USStateName ") End With.MoveNextLoopEnd Si
6

Pulse la tecla " F5 " en su teclado para ejecutar el programa .
7

Guardar el proyecto de Visual Basic , haga clic en "Archivo" y luego " Guardar proyectos como "en el menú.