Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Compact & Repair Access baze kroz ASP?

[es] :: Visual Basic 6 :: Compact & Repair Access baze kroz ASP?

[ Pregleda: 4732 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

impact
Vladimir Golušin
Kikinda

Član broj: 2517
Poruke: 112
212.200.76.*



Profil

icon Compact & Repair Access baze kroz ASP?25.04.2002. u 15:54 - pre 218 meseci
Da li neko zna kako je moguce uraditi Compact & Repair Access baze kroz ASP?
 
Odgovor na temu

zeljo

Član broj: 2965
Poruke: 143
195.252.78.*



Profil

icon Re: Compact & Repair Access baze kroz ASP?21.06.2002. u 01:48 - pre 216 meseci
Nisam te bas najbolje razumio ako je ostecena Accessova baza moze se popraviti tako sto ce sda uradis ScanDisk i Defregment Disk .... Windows ce da tokom rada da pokusa da otkloni sve nepravilnosti na PC
 
Odgovor na temu

impact
Vladimir Golušin
Kikinda

Član broj: 2517
Poruke: 112
212.200.76.*



Profil

icon Re: Compact & Repair Access baze kroz ASP?21.06.2002. u 03:49 - pre 216 meseci
Ne! Moje pitanje je prosto. Da li neko zna kako je moguce uraditi
Compact & Repair baze pomoću čistog ASP koda? Jer posle puno
pisanja i brisanja baza mora da se sredi - a to se radi pomocu
Compact & Repair naredbe u Accessu. E sad, ovo je moguce uraditi
pomocu cistog ASP-a, ali ja sam pronasao jedan primer (sa Microsoft-ovog
sajta) koji ama bas nista ne uradi nad bazom! Znaci nacin postoji, samo
me interesuje koji!
 
Odgovor na temu

Marko Bijelic

Član broj: 3296
Poruke: 1077
*.dialup.blic.net

Sajt: markobijelic.com


+1 Profil

icon Re: Compact & Repair Access baze kroz ASP?21.06.2002. u 08:32 - pre 216 meseci
Ipak je ASP moja oblast

http://www.aspin.com/func/sear...base&cat=&x=21&y=3

izaberi sam !
 
Odgovor na temu

impact
Vladimir Golušin
Kikinda

Član broj: 2517
Poruke: 112
212.200.76.*



Profil

icon Re: Compact & Repair Access baze kroz ASP?21.06.2002. u 14:01 - pre 216 meseci
Pa treci odgovor je onaj klasican sa Microsoft-ovog sajta,
ali ova dva cu morati da testiram. Ukoliko to bude uspesno, objavicu
to ovde odgovorom na ovaj post...

Pozdrav
 
Odgovor na temu

brckodc
Aleksandar Milošević
Web dizajner
ARTIS DIZAJN
Brčko

Član broj: 32275
Poruke: 5
*.teol.net.

Sajt: www.cyber.co.ba


Profil

icon Re: Compact & Repair Access baze kroz ASP?24.05.2005. u 08:57 - pre 180 meseci
<%
Dim str_db_path_name
str_db_path_name = server.mapPath(".") & "\" & "baza.mdb"

'Dimension variables
Dim objJetEngine
Dim objFSO
Dim strCompactDB
DIm strCon
DIm adoCon
%>

<%
Set adoCon = Server.CreateObject("ADODB.Connection")

adoCon.connectionstring = strCon
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & str_db_path_name
%>

<%
'Pokretanje compact i repair funkcije
If Request.Form("postBack") Then %>
<ol><%

'kreiranje FSO objekta
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'backup baze
objFSO.CopyFile str_db_path_name, Replace(str_db_path_name, ".mdb", "-backup.mdb", 1, -1, 1)

Response.Write(" <li class=""bold"">Napravljen je backup baze podataka na:-<br/><span class=""smText"">" & Replace(str_db_path_name, ".mdb", "-backup.mdb", 1, -1, 1) & "</span><br /><br /></li>")

'kreiranje JET engine objekta
Set objJetEngine = Server.CreateObject("JRO.JetEngine")

'odrediste i naziv kompaktovane baze
strCompactDB = Replace(str_db_path_name, ".mdb", "-tmp.mdb", 1, -1, 1)

'kompaktovanje
objJetEngine.CompactDatabase strCon, "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strCompactDB

'ispis teksta kreiranja nove kompaktovanja baze
Response.Write(" <li class=""bold"">Nova optimizovana baza:-<br/><span class=""smText"">" & strCompactDB & "</span><br /><br /></li>")

'resetovanje Jet objekta
Set objJetEngine = Nothing

'brisanje stare baze
objFSO.DeleteFile str_db_path_name

'ispis teksta brisanja stare baze
Response.Write(" <li class=""bold"">Nova ne optimizovana baza je obrisana:-<br/><span class=""smText"">" & str_db_path_name & "</span><br /><br /></li>")

'preimenovanje privremene baze u stari naziv
objFSO.MoveFile strCompactDB, str_db_path_name

'ispis teksta brisanja stare baze
Response.Write(" <li class=""bold"">Izmjenjen je naziv optimizovane baze sa:-<br/><span class=""smText"">" & strCompactDB & "</span><br />na:-<br /><span class=""smText"">" & str_db_path_name & "</span><br /><br /></li>")

'resetovanje FSO objekta
Set objFSO = Nothing

Response.Write("Baza podataka je optimizovana i napravljen je backup!")

%></ol>

<% Else %>
Napomena: Ako optimizacija ne uspije, biće urađen backup baze podataka čiji naziv ima nastavak '-backup.mdb'.
<form action="backup_db.asp" method="post" name="frmCompact" id="frmCompact">
<input name="postBack" type="hidden" id="postBack" value="true">
<input type="submit" name="Submit" value="OPTIMIZUJ I NAPRAVI BACKUP">
</form>
<% End If %>
Aleksandar M.
 
Odgovor na temu

[es] :: Visual Basic 6 :: Compact & Repair Access baze kroz ASP?

[ Pregleda: 4732 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.