access mdb dbleriniz çok büyükse onarın..

murdock

0
İyinet Üyesi
Katılım
28 Mart 2005
Mesajlar
1,273
Reaction score
3
Arkadaşlar aşağıdaki program sayesinde access programına ihtiyaç duymadan access .mdb uzantılı dblerinizi onararak büyük sandığınız database inizi minimum boyuta ve performansında iyileştirme yapabilirsiniz..

http://e-cozum.net/download/onar.zip

Not: bu programın hiçbir şekilde zararı yoktur.Aynı işlemi microsoft access ile dbnizi açtıktan sonra Üstten Tools > Database Utilities > Compact and Repair Database e tıkladığınızda aynı işlemi yaparsınız.

Unutmayınızki access mdb bakımı gerekli birşeydir.60 mb sandığınız dbniz uzun süre ziyaretçi kullanımında artmış olabilir.Böyle bi durumda bu işlemi yaptığınızda eğer muhtemel durum varsa 9-10 mb a kadar düşebilir.

Ayrıca bilgisi olmayan atlayanlar olabilir.Access mdb dosyanızla Microsoft access de kopyala yapıştır tarzı oynarken hatalı kayıtlar oluşmuş olabilir ve bunu görmemiş farketmemiş olabilirsiniz.dbnizi açtıktan sonra çıkan tablolarda Pastel Errors tablosu varsa bunu silip yukardaki onarma işlemini yaparsanız dbniz rahatlayacaktır.Hata kayıtları olduğu için herhangi bi sorun yaratmayacaktır kayıtlarınızda.

kolay gelsin.
 

Permission

0
İyinet Üyesi
Katılım
11 Aralık 2004
Mesajlar
6,458
Reaction score
3
Konum
izmir
db küçültmeyi Microsoft access programında zaten dosya onar diye secenegi var ve exra bir program kullanman mantıksız egerki ms access cok büyükse sql geçmesini tavsiye ederim db küçültmekle ugraşmak yerine..
 

pigeon

0
İyinet Üyesi
Katılım
22 Şubat 2005
Mesajlar
2,873
Reaction score
12
Konum
Ankara
aynısını ben de yazdım da sonra sildim..

aşağıdaki program sayesinde access programına ihtiyaç duymadan..
 

murdock

0
İyinet Üyesi
Katılım
28 Mart 2005
Mesajlar
1,273
Reaction score
3
Not: bu programın hiçbir şekilde zararı yoktur.Aynı işlemi microsoft access ile dbnizi açtıktan sonra Üstten Tools > Database Utilities > Compact and Repair Database e tıkladığınızda aynı işlemi yaparsınız.

Permission , bunuda belirttim zaten zannediyorumki bunuda birçok kiş ibilmiyordur.Ama verdiğim program pratiklik ve kullanım açısından rahat olduğundan sundum 176kb zaten.Microsoft Access programı olmayan varsa bunlada halledebilir diye yani.Zaten yukardaki gibide ek olarak aynı işlemi access programındanda yapabileceğini belirttim bilgi olarak.Tam okumadan yazdın sanırım.genede teşekkürler.
 

Permission

0
İyinet Üyesi
Katılım
11 Aralık 2004
Mesajlar
6,458
Reaction score
3
Konum
izmir
asp ile uğraşan bişi ise Microsoft access pc sinde olmaması imkansız :) çünkü o olmadan db oluşturmak zor.
 

pigeon

0
İyinet Üyesi
Katılım
22 Şubat 2005
Mesajlar
2,873
Reaction score
12
Konum
Ankara
formattan sonra cdyi bulamadık. öyle gidiyor şimdilik :)
 

n0tepad

0
İyinet Üyesi
Katılım
8 Mart 2006
Mesajlar
613
Reaction score
0
pigeon: access olmadan db olusturmak aklima getirdin off off uykusuz geceler..

arkadaşlar küçük bir asp koduyla da bu işi halledebilirsiniz programa gerek kalmadan ama fso ile de yedek aldırın nolur nolmaz bazen hatalı dönüşümler gerçekleşebiliyor.
 

murdock

0
İyinet Üyesi
Katılım
28 Mart 2005
Mesajlar
1,273
Reaction score
3
pigeon: access olmadan db olusturmak aklima getirdin off off uykusuz geceler..


arkadaşlar küçük bir asp koduyla da bu işi halledebilirsiniz programa gerek kalmadan ama fso ile de yedek aldırın nolur nolmaz bazen hatalı dönüşümler gerçekleşebiliyor.

'# Veritabanlarının bulundugu klasörü belirtiniz.
strFolder = "F:\tuyofesor\db\"

yukardaki kısmı kendi windows serverınıza göre belirtiniz.Sürücü ismi(ör: F: ) büyük harf olmak zorunda.

Kod:
<%@LANGUAGE="VBSCRIPT"%>
<%
Response.Buffer =  True
Server.ScriptTimeout = 36000
Session.LCID = 1055
Session.CodePage = 1254
Response.CacheControl = "private"
Response.AddHeader "cache-control","private"

Const  Jet_Conn_Partial = "Provider=Microsoft.Jet.OLEDB.4.0; Data source="
Dim  strDatabase, strFolder, strFileName

'################################################# 

'# Veritabanlarının bulundugu klasörü belirtiniz.
strFolder = "F:\tuyofesor\db\" 
'##################################################

Private  Sub dbCompact(strDBFileName)
Dim  SourceConn
Dim  DestConn
Dim  oJetEngine
Dim  oFSO

strDatabase = strDBFileName
SourceConn = Jet_Conn_Partial & strFolder & strDatabase
DestConn = Jet_Conn_Partial & strFolder & "Temp" & strDatabase

Set  oFSO = Server.CreateObject("Scripting.FileSystemObject")
Set  oJetEngine = Server.CreateObject("JRO.JetEngine")

With  oFSO

        If  Not .FileExists(strFolder & strDatabase)  Then
           Response.Write ("Veritabanı bulunamadı: " & strFolder & strDatabase)
           Stop
        Else
                  If  .FileExists(strFolder & "Temp" & strDatabase)  Then
                       Response.Write ("Eskiden kalan geçici veritabanı bulundu. " _
                       & "Eski geçici veritabanı silindi... İşlemi tekrarlayınız.")
                      .DeleteFile (strFolder & "Temp" & strDatabase)
                  End  If
       End  If
End  With

With  oJetEngine
.CompactDatabase SourceConn, DestConn
End  With

oFSO.DeleteFile strFolder & strDatabase
oFSO.MoveFile strFolder & "Temp" _
& strDatabase, strFolder& strDatabase

Set  oFSO =  Nothing
Set oJetEngine =  Nothing
End  Sub

Private  Sub dbList()
Dim  oFolders
Set  oFolders = Server.CreateObject("Scripting.FileSystemObject")
   Response.Write ("<Select Name=""DBFileName"">")
    For  Each Item  In  oFolders.GetFolder(strFolder).Files
   If  LCase(Right(Item, 4)) = ".mdb"  Then
       Response.Write ("<Option Value=""" &  Replace(Item, strFolder, "") _
       & """>" &  Replace(Item, strFolder, "") & "</Option>")
    End  If
Next
Response.Write ("</Select>")

Set  oFolders =  Nothing
End  Sub


%>
<%
' Veritabanı Bakım ve Onarımı başlıyor.
Select  Case Request.form("cmd")
Case  "Compact"
dbCompact Request.form("DBFileName")
Response.Write ("Veritabanı: <b>" & Request.form("DBFileName") & "</b><br> Bakım ve onarımı yapıldı.")
End  Select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta http-equiv="Content-Language" content="tr">
<meta name="author" content="designed by ilker YILDIZ">
<meta http-equiv="expires" content="-1">
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
<title>Veritabanı Bakım ve Onarımı</title>
</head>
<body topmargin="20" leftmargin="20" bgcolor="#FFFfff" style="font-family: Arial; font-size: 10pt">

<p><font size="4">Veritabanı Bakım ve Onarımı:</font></p>
<form method="POST" action="">
<p><%dbList%> <input type="submit" value="Compact" name="cmd"></p>
</form>
</body>
</html><br>B1: Gönder<br>
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Elektronik Sigara
Üst