VB6 - Criar BD Access via código

 

'Precisa das referências do AdoDb e do AdoX então caso não

'funcione verifique:

'Menu Project -> References

'Marque a opção Microsoft ActiveX Data Objects 2.x ( ADODB)

'Marque a opção Microsoft ActiveX Data Objects Extensions for DDL and Security 2.x ( ADOX)

'Agora vamos lá

'Definir as variáveis necessárias

Dim Con As ADODB.Connection

Dim Cat As ADOX.Catalog

Dim Tbl As ADOX.Table

'Atenção:

'Isso não faz parte da criação do arquivo.mdb

'Mas é preiciso saber se o arquivo já existe no diretório antes de criá-lo

'Primeiro devemos marcar a referência "Microsoft Scripting Runtime"

'Definir a variável que vai verificar se o arquivo existe

Dim FSO As FileSystemObject

Private Sub Command1_Click()

'Criar uma nova instância das Classes adodob e adodx

Set Con = New ADODB.Connection

Set Cat = New ADOX.Catalog

Set Tbl = New ADOX.Table

'Criar uma instância do FSO

Set FSO = New FileSystemObject

'Definir o caminho e o nome do MDB

Dim Caminho As String

Caminho = App.Path & "\ArquivoMdb.Mdb"

If FSO.FileExists(Caminho) Then

MsgBox "O Arquivo já existe"

'Se o arquivo existir, vc pode renomeá-lo com o Fso, se quiser

'FSO.CopyFile Caminho, App.Path & "\ArquivoMdb2.mdb"

FSO.DeleteFile (Caminho)

'Neste Caso, removemos a mensagem e o exit sub

'Exit Sub

End If

'Criar o Bd

Cat.Create "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" & Caminho 'C:\Teste.mdb"

'Abrir o Bd

Con.Open "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" & Caminho

'Definir a Conexão ativa

Cat.ActiveConnection = Con

'Criar a Tabela

Tbl.Name = "Login"

'Criar os Campos

With Tbl.Columns

.Append "Cod"

.Item.Properties.Item("Cod").Attributes

.Item("Cod").Properties("Autoincrement") = True

.Append "Usuario", adVarWChar, 15 'Campo Tipo Text, Tamanho 15

.Append "Senha", adVarWChar, 6 'Tipo Text Tamanho 6

.Append "TipoUsuario", adVarWChar, 10 ' Tipo Text tamanho 10

'Observe que existe tipos de campo que não funciona com tabelas .mdb

End With

'Para Finalizar

Cat.Tables.Append Tbl

'Também é importante "destruir" as variáveis dos objetos

Set Con = Nothing

Set Cat = Nothing

Set Tbl = Nothing

'Aqui vamos informar que a operação foi concluída

MsgBox "Arquivo .mdb criado no diretório " & Chr(13) & Caminho

End Sub

'PRONTO. O BANCO DE DADOS LOGIN FOI CRIADO, AGORA VC PRECISA COLOCAR SEGURANÇA NELE,

'AFINAL SÃO AS SENHAS QUE SERÃO ARMAZENADAS. ENTÃO DEVEMOS EVITAR QUE ALGUÉM ABRA O MDB E SE ABRIR

'NÃO DESCUBRA A SENHA. O QUE FAZER

'BOM, AÍ VC DEVE PROCURAR UMA DESSAS ROTINAS DE ENCRIPTAR ARQUIVOS OU ENCRIPTAR TEXTOS

'PARA EVITAR QUE ISSO ACONTEÇA.