[Resolvido] Criar .MDB no filesystemobject

[Pedro PH 0]

Pessoal já pesquisei no google e não achei... quero criar um arquivo de banco de dados, no access pelo FSO :wacko:

 

Plz alguem sabe? poderia me passar um código de exemplo???

 

 

vlw http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

[hargon 64]

Via FSO desconheço... mas se quiser criar um dinâmico, segue abaixo o código.

<%
Dim bancoDeDados
Set bancoDeDados = Server.CreateObject("ADOX.Catalog")

bancoDeDados.Create "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & ("C:\Inetpub\wwwroot\pasta\banco.mdb")
Set bancoDeDados = Nothing 
%>

[xanburzum 169]

Eu já vi fazer backup do mdb através de FSO, pelo método FileCopy, mas criar acredito que não possa ser feito, você consegue através de um arquivo de banco de dados criar sua tabela com CREATE TABLE, pode ser uma saída.

[Pedro PH 0]

Via FSO desconheço... mas se quiser criar um dinâmico, segue abaixo o código.

<%
Dim bancoDeDados
Set bancoDeDados = Server.CreateObject("ADOX.Catalog")

bancoDeDados.Create "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & ("C:\Inetpub\wwwroot\pasta\banco.mdb")
Set bancoDeDados = Nothing 
%>

 

 

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

VLW hargon você é o cara!

:D

 

certinho ^^ criei um banco de dados em access pelo asp e ainda uma tabela dentro só executando o código asp em uma página.. rox d+

vlws http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

fuiz

[hargon 64]

Muito bom. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[xanburzum 169]

uma saida com FSO seria você criar uma cópia de um banco usando CopyFile

 

<% 
	targetDB = "c:\inetpub\wwwroot\databases\novo.mdb" 
	sourceDB = "c:\inetpub\wwwroot\databases\modelo.mdb" 
	set fso = CreateObject("Scripting.FileSystemObject") 
	fso.CopyFile sourceDB, targetDB, true 
	set fso = nothing 
	set conn = CreateObject("ADODB.Connection") 
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & targetDB 
	' ... 
%>

[hargon 64]

Dessa forma ele teria que manter uma cópia do banco em branco no servidor.

 

Com o código que citei o arquivo é criado vazio, a partir daí ele adiciona as tabelas via SQL.

[Pedro PH 0]

Essa forma de copiar eu usei para criar arquivo .RAR ou .ZIP ... para o cliente baixar o banco compactado :D

 

só neste tópico já fala como criar e compactar um banco dinamicamente numa boa ^^

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Salgado 4]

Pedro, e como adiciona arquivos nesses .ZIP e .RAR?