gera um mdb e sobrescrever....

[lisa 0]

seguinte pessoal.. tenho um código que gera um arquivo mdb...

 

ele funciona perfeitamente quando o arquivo não existe, mas peciso que ele sobrescreva caso ja exista,

 

alguem pode ajudar??

 

segue o código....

 

<% Dim bancodados Set bancodados = CreateObject("ADOX.Catalog") bancodados.Create "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & Server.MapPath("prova.mdb") Set bancodados = Nothing %>

[Danielle Anadinho 0]

Olá!!!você quer sobrescrever dados no banco ou colocar outro banco no lugar?

[lisa 0]

Ola...eu pretendo sobrescrever o arquivo mdb,ou seja colocar outro arquivo novo no lugar

[Danielle Anadinho 0]

' cria o arquivo texto no disco com opção de sobrescrever o arquivo existenteSet act = fso.CreateTextFile(server.mappath(arquivo), true)Não seria isso, Lisa?

[lisa 0]

Desculpa, não entendi...pq o que eu preciso é gerar um mdb dinamicamente, com o mesmo nome , isso eu ja tenho.. o problema é que se esse nome já existir, meu script que enviei na 1º mensagem dá erro, pois já foi criado anteriormente... preciso que ele sobrescreva o arquivo ja criado...

[Carlos_Seiji 0]

neste caso você vai ter ded verificar via fso se o arquivo existe, se existir mandar excluir o arquivo e dai sim mandar gerar novamente.

[lisa 0]

Carlos, obrigada pela dica... com ela consegui resolver.

 

Vejam como ficou....

 

<%Dim bancodados Set bancodados = CreateObject("ADOX.Catalog")Set fs = Server.CreateObject("Scripting.FileSystemObject") Set folder = fs.Getfolder(Server.MapPath("banco"))%><% For Each File in Folder.Files %><% if file.name = "banco.mdb" then %><%Set fs = CreateObject("Scripting.FileSystemObject") fs.deletefile(Server.MapPath("banco\banco.mdb")) Set Folder = Nothing Set fs = Nothing %><% bancodados.Create "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & Server.MapPath("banco\banco.mdb") Set bancodados = Nothing %><% response.Write ("apagou e foi criado um novo")%><%else%><% bancodados.Create "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & Server.MapPath("banco\banco.mdb") Set bancodados = Nothing %><% response.Write ("não foi encontrado nada e logo foi criado um novo") %><%end if%><% Next %>