Como criar um arquivo de dados do Access (.mdb), com VB, no Visual Studio 2010?

Question

O link "Criar arquivo .MDB com Visual Studio 2008 Visual Basic" responde em parte minha pergunta. Todavia, como utiliza VS 2008 a classe de nomes que utiliza não se adapta integralmente ao VS 2010. 

Answer 1

Olá Paulo,

Veja se este link lhe ajuda: http://ferhenriquef.com/2012/01/31/exportando-dados-de-um-datatable-para-o-microsoft-access-exporting-data-to-microsoft-access/

O código esta em C#, mas vc pode converte-lo através deste link: http://www.developerfusion.com/tools/convert/csharp-to-vb/

[]s!

---

Fernando Henrique Inocêncio Borba Ferreira
Microsoft MVP - Data Platform Development
while(alive){ this.WriteCode(); }
Blog: http://ferhenriquef.com/
Twitter: @ferhenrique
Entity Framework - Brasil: https://www.facebook.com/EntityFrameworkBrasil

Answer 2

Fernando, 

Muito obrigado pela ajuda. Realmente acredito que sua solução atenda o que preciso. Todavia, estou fazendo um trabalho em VB e ao tentar converte-la de C# para VB está aparecendo um erro na linha 16 coluna 9, mais especificamente no comando Return "Memo".

Se não for pedir demais do amigo, poderias verificar. Peço-lhe isso porque, realmente, não conheço absolutamente nada de C#, fato que me impede de verificar se há algo errado.

Uma vez mais, obrigado.

Paulo 

Answer 3

Olá Paulo,
Tudo bem? :)

Poderia postar como esta o código em VB.Net?

Acredito que este método faz mais do que o que vc precisa.

Talvez o bloco abaixo já seja suficiente:

Private Function CriarArquivo(caminhoBancoDados As String) As Boolean
	' Caso o arquivo Mdb passado por parâmetro não exista, então // ele será criado.
ADOX.CatalogClass cat = new ADOX.CatalogClass();
	Try
		Dim BancoDados As New System.IO.FileInfo(caminhoBancoDados)
		If Not BancoDados.Exists Then
			cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminhoBancoDados & ";Jet OLEDB:Engine Type=5")
		End If
	Catch ex As Exception
		Me._erro = ex.Message
		Return False
	Finally
		cat = Nothing
	End Try
	Return True
End Function
' Fim da criação do arquivo.

[]s!

---

Fernando Henrique Inocêncio Borba Ferreira
Microsoft MVP - Data Platform Development
while(alive){ this.WriteCode(); }
Blog: http://ferhenriquef.com/
Twitter: @ferhenrique
Entity Framework - Brasil: https://www.facebook.com/EntityFrameworkBrasil

Answer 4

Uma vez mais, muito obrigado Fernando!

Só para registrar, a solução como um todo me ajuda, em muito. No site que havias indicado para fazer a conversão estava dando erro. Todavia, usando a solução disponível no site http://www.carlosag.net/tools/codetranslator/ deu para verificar que algumas linhas haviam ficado agrupadas com as linhas de comentários anteriores. Logo, o ajuste foi simples.

Desculpe por tomar tanto seu tempo.

Valeu mesmo!

Paulo