Criação de um banco de dados em Visual Basic pode ser útil se você precisa de um banco de dados com uma quantidade precisa de registros e campos para teste. O primeiro método para fazer isso utiliza o Visual Basic 4.0 e cria um banco de dados Microsoft Office Access com um exemplo de código que você pode adaptar para alterar o conteúdo dos registros. A segunda técnica usa tanto ADOX e Visual Basic para criar um banco de dados usando um código de exemplo . Instruções
Criar um banco de dados com Visual Basic 4.0
1

Abra seu " Visual Basic 4.0" aplicação.
2

Clique no menu "File", e depois " New Project ".
3

Insira um" controle DBGrid ", " Data Control "e um" botão de comando " no Formulário 1.
4

Altere o . controle DBGrid "Propriedade Fonte de Dados " para o controle de dados
5

Copie este código de exemplo para a janela de código de Form1 :

Option Explicit

Dim rs1 Como Recordset

Dim rs2 Como Recordset

Dim db As Database

Dim td Como TableDef

Dim fl Como campo

Private Sub Command1_Click ( )

Dim iFields as Integer , iRecords as Integer

'Criar o banco de dados

Set db = CreateDatabase ( "C: \\ test.mdb " . , dbLangGeneral ) < br > Definir

td = db.CreateTableDef ( " Tabela 1 " )

' Agora que o banco de dados é criado, adicionar campos para o banco de dados

Para iFields = 1 To 5' o último número pode ser alterado.

Set fl = td.CreateField ("Campo " & CStr ( iFields ) , dbInteger )

td.Fields.Append fl

Próxima iFields < br >

db.TableDefs.Append td

' Agora que o banco de dados tem campos, adicionar registros através de um

' registros.

Set rs1 = DB.OpenRecordSet ( " Tabela1" , dbOpenTable )

Para iRecords = 1 To 10 ' Para cada linha

rs1.AddNew ' adicionar um novo registro .

Para iFields = 1 To 5 ' para cada campo no registro
rs1

( "campo" & CStr ( iFields )) = iFields ' adicionar um número.

Próxima iFields

rs1.Update

Próxima iRecords

' Fechar tanto o conjunto de registros e banco de dados .

rs1.Close

db.Close

' preencher o controle DBGrid com o conteúdo do conjunto de registros

Set db = OpenDatabase . ( "C: \\ test.mdb " )

Set rs1 = DB.OpenRecordSet ("Select * from tabela 1 " )

Definir Data1.Recordset = rs1

Command1.Visible = False End Sub

Private Sub Form_Load ()

Se Dir ( "C: \\ test.mdb ") = " "Then

Command1.Caption =" Criar banco de dados "

Command1.Visible = True

End If End Sub

6

Pressione " F5" no seu teclado para executar o programa. Selecione o botão "Command" e preencher o controle DBGrid . O test.mdb arquivo é criado.
Criar um banco de dados usando ADOX e Visual Basic. NET
7

Início " Visual Basic. NET . "

8

Clique em " Solution Explorer ", clique com o botão direito "Referências" e , em seguida, escolha a opção " Add Reference ".
9

Clique na aba "COM" , depois em " Microsoft ADO Ext. . 2.7 for DDL and Security ", seguido por " Select ". Clique em " OK".
10

Excluir o código da janela de código Module1.vb . Em seguida, copie o código a seguir na mesma janela :

Importações ADOX

Module Module1

Sub Main ()

gato Dim Catalog = New Catalog ( )

cat.Create ( "Provider = Microsoft.Jet.OLEDB.4.0; " & _

"Data Source = D: \\ AccessDB \\ NewMDB.mdb ; " & _

"Jet OLEDB: Engine Type = 5" )

Console.WriteLine (" banco de dados criado com sucesso")

cat = Nada

End Sub
< Módulo p > Fim
11

Altere o caminho para o novo arquivo mdb . , certificando-se de usar um caminho existente .
12

Pressione o botão "F5" em seu teclado para executar o projeto. O arquivo mdb . Está no formato (Jet 4.0) Access 2000.