şifreli paradox veritabanından veri aktarımı

[cebelitarık]

Sevgili arkadaşlar

şifreli paradox veritabanım var şifreyi biliyorum
şifreli paradox veritabanı dosyasına gidip şifreyle açıp içindeki verileri excele indirebilecek bir kod yazmak mümkünmüdür.
yardım edecek arkadaşlara şimdiden teşekkür ederim.

 

[Zeki Gürsoy]

Versiyon nedir? 3,4 ve 5 için odbc windows içinde mevcut ancak 7.X için ücretlidir.
Şifreli dediğinize göre 7.X olabilir.

 

[cebelitarık]

Sayın Gürsoy ilgin için teşekkürler
Denetim Masası BDE den baktığıma göre versiyon 4 görünüyor.
dosya uzantıs DB
dosyayı excelle açmaya çalıştığımda "Dosyanın şifresi çözülemedi" uyarısı geliyor
aynı uzantılı olup şifrelenmemiş dosyalarda var excel bu dosyalardan veri alabiliyor.

Teşekkürler

 

[Zeki Gürsoy]

Paradox da .DB uzantılı dosyalr "table" gibidir. Ekteki dosya ile deneyin.

 

[cebelitarık]

Sayın Gürsoy tekrar teşekkürler
program şifresiz db ler ile güzel çalışıyor.
Ancak şifreli db ler de aşağıdaki hata kodunu veriyor.
gönderdiğiniz kodlarla şifreli db yi açtığım zaman
"Run-time error '-2147467259 (80004005)':
Dosyanın şifresi çözülemedi."
uyarısı geliyor.
Şifreli Db yi Database Tour 3.0 programı ile şifreyi girerek açabiliyorum.
İsteğim şifreyi de vba kodları içerisine yerleştirerek dosyanın tek tıklama ile açılmasını sağlamak.
örnek dosyanın şifresi 54Dgs125 bu olsun bu şifre de kodlar içine yerleştirilip dosyanın direkt olarak açılması. db ye hergirişte şifre yazmak zor oluyor.
Bunun için yapacak bir şey varmı?
Yardımlarınız için teşekkürler.

 

[Zeki Gürsoy]

Çalışacağından pek emin değilim, ilgili yeri aşağıdaki ile değiştirin.

cn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & TextBox1 & ";Extended Properties=Paradox 4.x;Password=54Dgs125;"

 

[cebelitarık]

Sayın Gürsoy kodu yerine kopyaladım.
Aşağıdaki hata mesajı verildi.
Run-time error ‘-2147217843 (80040e4d)2:
Uygulamanız başlatılamıyor. Çalışma grubu bilgisi eksik veya
Başka bir kullanıcı tarafından özel kullanımda açık durumda.
Başka yapacak bir şey varmı acaba?

Kod:
Private cn As Object, rs As Object

Private Sub CommandButton1_Click()
Dim d As String, DB As Object
'' Veritabanına gözat..
Set DB = CreateObject("Shell.Application").BrowseForFolder( 0, "Klasör seç", 0)
If DB Is Nothing Then Exit Sub

TextBox1 = DB.Self.Path
Set DB = Nothing

'' Tablolar...
d = Dir(TextBox1 & "\*.db")
While Not d = ""
ListBox2.AddItem d
d = Dir
Wend

If ListBox2.ListCount = -1 Then Exit Sub

'' Bağlantı..
Set cn = CreateObject("Adodb.Connection")
cn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & TextBox1 & ";Extended Properties=Paradox 4.x;Password=54Dgs125;"
'cn.Open _
'"Provider=Microsoft.Jet.OLEDB.4.0;" & _
'"Data Source=" & TextBox1 & ";Extended Properties=Paradox 4.x;" '' Paradox 5.x;
End Sub

Private Sub ListBox2_Click()
If ListBox2.ListCount = 0 Then Exit Sub

Set rs = CreateObject("Adodb.Recordset")
rs.Open "select * from " & ListBox2, cn, 1, 3

ListBox3.Clear
Sheets(1).Cells.ClearContents

For z = 0 To rs.fields.Count - 1
ListBox3.AddItem rs(z).Name
Sheets(1).Cells(1, z + 1) = rs(z).Name
Sheets(1).Cells(1, z + 1).Font.Bold = 1
Next
Sheets(1).[a2].CopyFromRecordset rs

With ListBox1
.Clear
.ColumnCount = rs.fields.Count
rs.movefirst
.Column = rs.getrows
End With
rs.Close
End Sub

Private Sub UserForm_Terminate()
On Error Resume Next
cn.Close

Set rs = Nothing
Set cn = Nothing
End Sub

 

[Zeki Gürsoy]

Paradox için yeterli bilgiye sahip değilim. Database Tour prg. ne ile bağlantı açıyor bilemiyorum.
Ancak şu an için bundan başka yardımcı olamayacağım.

 

[cebelitarık]

Sayın Gürsoy yardımlarınız için teşekkürler

 

[cebelitarık]

Bu konu hakkında bilgisi olan değerli arkadaşlarımdan yardım bekliyorum.
Sayın Gürsoy arkadaşım başta olmak üzere İlgilenecek arkadaşlara teşekkür ederim.

 

[modalı]

Sayın cebelitarık,

[CODE]Set db = DBEngine(0).OpenDatabase("C:\MYDATA", 0, 0, "Paradox 4.x;PWD=ABC;")
Set rs = db.OpenRecordset("Table1#DB")

olarak deneyin.

Ya da sizin kodlarda password yerine PWD kullanın.

 

[cebelitarık]

Sayın Modalı ilginiz için teşekkür ederim
Verdiğiniz kodu bir türlü doğru yere yerleştiremedim.
Dosya şu durumda hali hazır şifrelenmemiş db leri açıyor ama şifreli dosyalara ulaşamıyor. Dosyamın şifresi "qwerty"
Aşağıya eklediğim dosyaya bir bakıp şifreli dosyaları şifresini kod içine girerek açabilecek şekilde revize edebilirseniz çok müteşekkir kalacağım
Teşekkürler.

 

[modalı]

Sayın cebelitarık,

Deneymiyorum ama sanırım şöyle olması gerekir:

Set cnn = CreateObject("Adodb.Connection")
cnn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\;Extended Properties=Paradox 4.x;PWD=qwerty;"

İyi çalışmalar

 

[cebelitarık]

Sayın Modalı
Bir türlü çalıştıramadım.
12. mesajdaki dosya normal şifresiz db ler için çalışıyor ancak şifre kodu eklendiğinde hata veriyor.
ben işin içinden çıkamadım yardım lütfen
Teşekkürler

 

[cebelitarık]

Arkadaşlar
Bu konuya bir el atacak kimse yokmu?

 

[modalı]

Sayın cebelitarık,

İnanın benim yazdığım şekilden başka açma yolu yok. Elimizde uygulamalar olmadığı için tam olarak hatanın nerede oluşturduğunu anlayamıyoruz.

Bir de aşağıdaki linki inceleyin:

http://support.microsoft.com/kb/217213

 

[modalı]

Biraz arama daha yaptım ve şu makaleye ulaştım:

http://support.microsoft.com/kb/153764

Burada hatayı Microsoft, Paradox un üreticisi Borland a atıyor.

Aynı makalede excel macrosuyla ulaşabilirsiniz diyor.

 

[cebelitarık]

Sayın Modalı
Verdiğiniz şifreli db açma kodunu 12. mesajdaki excel dosyası içine bir zahmet yerleştirmeniz mümkünmü?
Galiba bir yerlerde hata yapıyorum, herhalde. Kafayı yiyeceğim lütfen!
İlgin için çok teşekkür ederim.