Salvando todos os itens " ListBox " para um banco de dados Microsoft Access usando Visual Basic.NET ( VB.NET ) pode fazer a sua aplicação mais dinâmica , armazenando seus dados em um banco de dados . Em VB, você pode usar a interface OLE DB , que é um conjunto de interfaces baseadas em COM que permitem que você se conectar a um banco de dados Access. Depois de fazer a conexão, você pode criar ou atualizar as tabelas de sua aplicação VB . Coisas que você precisa
Microsoft Visual Studio
Show Mais instruções
1

Abra o Microsoft Visual Studio e clique em " New Project" no painel esquerdo da tela do computador . Expandir " Visual Basic ", localizado abaixo de " Modelos instalados . " Clique em " Windows", clique duas vezes em " Windows Forms Application " a partir do centro da janela de diálogo para criar um novo projeto.
2

duplo clique em " ListBox " para adicionar um novo controle de caixa de listagem ao seu formulário. Clique duas vezes em "Button" para adicionar um novo botão ao seu formulário.
3

Clique duas vezes no formulário para criar um evento de carregamento de formulário e adicione o seguinte código para adicionar cinco itens para a " ListBox : "

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

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

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

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

Me.ListBox1.Items.Add ( "DB item 5 " )
4

Retornar para exibição design do formulário e clique duas vezes em " Button1 "para criar um evento click para este botão. Adicione a seguinte linha de código para definir o caminho do banco de dados :

Dim dbConString As String = "Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C: \\ Adamastor 2007.accdb ; " < br >
5

Substitua "C: \\ Adamastor 2007.accdb " . na etapa anterior com o nome eo caminho do seu banco de dados Access
6

Criar a variável " dbCon " , que é usado para estabelecer a conexão com o banco , eo " insertItems " variável string, que é usado para construir a instrução SQL para inserir os itens :

Dim dbCon Como System.Data.IDbConnection = Novo System.Data.OLEDB . OleDbConnection ( dbConString )

Dim insertItems as String
7

Criar e executar um comando para construir uma nova tabela no banco de dados onde você irá inserir os itens " ListBox ": < br >

Dim qryStr As String = " CREATE TABLE tmpItemsTable ( itens de texto ); "

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

dbcmd . CommandText = qryStr

dbCmd.Connection = dbCon

dbCon.Open ()

dbCmd.ExecuteNonQuery ()
8

Pressione " F5" para executar o programa e clique em " Button1 ".