CRIAR BD ACCESS EM EXECUCAO - AJUDA
Public ConexaoBD As New Data.OleDb.OleDbConnection
Public ComandoBD As New Data.OleDb.OleDbCommand
Hola
Pessoal sou novo nesta questao do VB.NET e estou me batendo um monte nao consigo fazer uma coisa relativamente simples:
Criar um BD Access em branco por codigo conforme codigo abaixo nao tem jeito nao da erro.
Public Function CriaConexaoBancoDados() As Boolean
ConexaoBD.ConnectionString = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=;Persist Security Info=False[Ô]
ComandoBD = ConexaoBD.CreateCommand()
ComandoBD.CommandText = [Ô]CREATE DATABASE [Ô] & [Ô]c: este.mdb[Ô]
Try
ComandoBD.ExecuteNonQuery()
CriaConexaoBancoDados = True
Catch ex As Exception
MsgBox([Ô]Erro na conexão com Banco de Dados[Ô], MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, [Ô]Atenção[Ô])
End Try
End Function
Obrigado a quem poder me ajudar.
HILDEVASCO
o ADO.NET não cria Banco de dados
voce precisa fazer referencia ao ADO que está na guia COM entao usa esse codigo
Public Sub CreateAccessDatabase()
Dim cat As New ADOX.Catalog()
Try
Dim StrCria As String
StrCria = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\BancoTeste.mdb[Ô]
cat.Create(StrCria)
cat = Nothing
Catch ex As Exception
MsgBox([Ô]Erro nº:- [Ô] & Err.Number & [Ô] - [Ô] & ex.Message)
cat = Nothing
End Try
End Sub
voce precisa fazer referencia ao ADO que está na guia COM entao usa esse codigo
Public Sub CreateAccessDatabase()
Dim cat As New ADOX.Catalog()
Try
Dim StrCria As String
StrCria = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\BancoTeste.mdb[Ô]
cat.Create(StrCria)
cat = Nothing
Catch ex As Exception
MsgBox([Ô]Erro nº:- [Ô] & Err.Number & [Ô] - [Ô] & ex.Message)
cat = Nothing
End Try
End Sub
Visite;
https://sites.google.com/site/programacaoonline/family-blog/vb-net/criando-um-banco-access-em-tempo-de-execucao
Inté.
https://sites.google.com/site/programacaoonline/family-blog/vb-net/criando-um-banco-access-em-tempo-de-execucao
Inté.
Ou você pode fazer da forma mais simples, incluir um arquivo de banco de dados em branco no programa para você poder copiar ele quando precisar criar um novo.
Faça seu login para responder