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

murdock · 22 Mart 2007

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 · 22 Mart 2007

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 · 22 Mart 2007

aynısını ben de yazdım da sonra sildim..

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

murdock · 22 Mart 2007

yehhucom' Alıntı:
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 · 22 Mart 2007

asp ile uğraşan bişi ise Microsoft access pc sinde olmaması imkansız

çünkü o olmadan db oluşturmak zor.

pigeon · 22 Mart 2007

valla bende yok. msn de bile olan bulamadım..

murdock · 22 Mart 2007

pigeon' Alıntı:
valla bende yok. msn de bile olan bulamadım..

örnek asp kullanıcısı

teşekkürler

pigeon · 22 Mart 2007

formattan sonra cdyi bulamadık. öyle gidiyor şimdilik

Permission · 22 Mart 2007

pigeon' Alıntı:
valla bende yok. msn de bile olan bulamadım..

http://office.microsoft.com/tr-tr/access/results.aspx?qu=Microsoft+access+download&av=ZAC110

murdock · 22 Mart 2007

p2p daha ucuzmuş

pigeon · 22 Mart 2007

eyvallah bakayım.

n0tepad · 22 Mart 2007

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 · 22 Mart 2007

n0tepad' Alıntı:
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>