Aprender a criar um banco de dados usando Visual Basic.NET ( VB.NET ), enquanto usando uma barra de progresso como um indicador de processo pode tornar sua aplicação mais user-friendly. Usando um banco de dados como um lugar para armazenar os padrões do usuário ou outras informações que o aplicativo precisa é definitivamente melhor do que usar muitos arquivos de texto. Você pode criar tabelas em seu banco de dados para armazenar dados e depois recuperá-lo usando instruções SQL. Use o objeto " ADOX " para criar o banco de dados e usar a classe " OleDbConnection " para fazer uma conexão e modificar o seu banco de dados. Coisas que você precisa
Microsoft Visual Studio
Show Mais instruções
1

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

Clique duas vezes em " ProgressBar " para adicionar um novo controle de barra de progresso para seu formulário, clique duas vezes em "Button" para adicionar um novo botão ao seu formulário.
3

clique duas vezes em "Button1 " para criar um novo evento , clique lançar o módulo VB . Clique no menu " Project", clique em "Add Reference", e clique na aba "COM" . Dê um duplo clique em " Microsoft ADO Ext. . 6.0 for DDL and Security "para adicioná-lo como uma referência ao seu projeto
4

Copie e cole as seguintes linhas de código como as primeiras linhas de código em seu módulo : .

as importações ADOXImports System.Data.OLEDB
5

Copiar e colar o seguinte código dentro do botão , clique em evento para declarar variáveis ​​, definir os limites barra de progresso e definir o primeiro valor :

Dim ADOXCat As New ADOX.CatalogDim strSQL Como StringDim objCmd As New OleDbCommandMe.ProgressBar1.Minimum = 0Me.ProgressBar1.Maximum = 50Me.ProgressBar1.Value = 10Application.DoEvents ()
6

Copie e cole o seguinte código para criar um banco de dados Access :

ADOXCat.Create ( "Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = c: \\ Temp \\ newdata.mdb " ) ADOXCat = NothingMe.ProgressBar1 . valor = 20Application.DoEvents ()
7

Faça uma conexão com o banco de dados criado na etapa anterior :

Dim Con = New OleDbConnection ( "Provider = Microsoft.ACE.OLEDB .12.0 ; Data Source = c: \\ Temp \\ newdata.mdb " ) Me.ProgressBar1.Value = 30Application.DoEvents () Con.Open ()
8

Adicione o seguinte código para criar um novo tabela no banco de dados:

strSQL = " CREATE TABLE NovaTabela (ID INTEGER, TEXTO PRODUCT) " objCmd = New OleDbCommand ( strSQL , Con) objCmd.ExecuteNonQuery () = Me.ProgressBar1.Value 40Application.DoEvents ()
9

Adicione o seguinte código para inserir um novo registro para a tabela criada no passo anterior :

strSQL = " INSERT INTO NovaTabela (ID , PRODUCT) VALUES ( 0, ' tablet ') " objCmd = New OleDbCommand ( strSQL , Con) objCmd.ExecuteNonQuery () = Me.ProgressBar1.Value 50Application.DoEvents () con.close ()