Cómo guardar todos los artículos de cuadro de lista a una base de datos en VB

Guardar todos los elementos "ListBox" a una base de datos de Microsoft Access utilizando Visual Basic.NET (VB.NET) puede hacer su aplicación más dinámica mediante el almacenamiento de los datos en una base de datos. En VB, puede utilizar la interfaz OLE DB, que es un conjunto de interfaces basados ​​en COM que le permite conectarse a una base de datos. Una vez que realice la conexión, puede crear o actualizar las tablas de su uso de VB.

Instrucciones

1 Lanzamiento de Microsoft Visual Studio y haga clic en "Nuevo proyecto" en el panel izquierdo de la pantalla del ordenador. Ampliar el "Visual Basic", situado debajo de "Plantillas instaladas." Haga clic en "Windows", haga doble clic en "Aplicación de Windows Forms" en el centro de la ventana de diálogo para crear un nuevo proyecto.

2 Haga doble clic en "ListBox" para agregar un nuevo control de cuadro de lista al formulario. Haga doble clic en "botón" para añadir un nuevo botón a su formulario.

3 Haga doble clic en el formulario para crear un evento de carga del formulario y agregue el código siguiente para agregar cinco elementos a la "ListBox:"

Me.ListBox1.Items.Add ( "Punto DB 1")

Me.ListBox1.Items.Add("DB Item 2")

Me.ListBox1.Items.Add ( "Punto DB 3")

Me.ListBox1.Items.Add ( "Punto DB 4")

Me.ListBox1.Items.Add ( "Punto DB 5")

4 Cambie de nuevo a la vista formulario Diseño y haga doble clic en "Button1" para crear un evento de clic de este botón. Agregue la siguiente línea de código para definir la ruta de la base de datos:

Dim dbConString As String = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = C: \ Neptuno 2007.accdb;"

5 Reemplazar "C: \ Neptuno 2007.accdb" en el paso anterior con el nombre y la ruta de la base de datos Access.

6 Crear la variable "dbCon", que se utiliza para establecer la conexión de base de datos, y la variable de cadena "insertItems", que se utiliza para construir la instrucción SQL para insertar los elementos:

Dim dbCon As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(dbConString)

insertItems Dim como secuencia

7 Crear y ejecutar un comando para crear una nueva tabla en la base de datos donde se va a insertar los elementos "ListBox":

Dim qryStr As String = "CREATE TABLE tmpItemsTable (Items TEXT);"

Dim dbcmd Como System.Data.IDbCommand = Nueva System.Data.OleDb.OleDbCommand

dbCmd.CommandText = qryStr

dbCmd.Connection = dbCon

dbCon.Open ()

dbCmd.ExecuteNonQuery ()

8 Pulse la tecla "F5" para ejecutar el programa y haga clic en "Button1".