Arşive Gönderme

[modalı]

Sayın mehmetdemiral,

Sorunları teker teker ele alıp çözümlemek gerekiyor. Yapmak istediklerinizin tümü mümkün. Teker teker ele alıp çözmeye başlayalım.

İyi çalışmalar

 

[mehmetdemiral]

Sayın mehmetdemiral,

Sorunları teker teker ele alıp çözümlemek gerekiyor. Yapmak istediklerinizin tümü mümkün. Teker teker ele alıp çözmeye başlayalım.

İyi çalışmalar

))
Sevgili Modalı.. Bu forumda yazdığım en karışık mesaj olduğunu kabul ediyorum. Madde madde ele alacağım. Bana çok yardımlarınız olacağı kesin.. İlgilendiğiniz için teşekkürler...

 

[mehmetdemiral]

1) .txt uzantılı bir veri yapısından Modalı ve karaayhan'ın önerileriyle oluşturduğum bir form aracılığı ile veri alarak access'e aktardım. Oluşan tablo ile çalışıyorum, tablodaki verilerin bir kısmını düzenledim. O sırada başka verilerle çalışmak istiyorum. Mevcut çalıştığım verileri arşivleyip verdiğim bir isimle istediğim bir klasöre .mdb olarak aktaracağım. Çünkü benim tablomda asıl txt tablosunda olmayan ve olması gerekmeyen, ama çalışma anında bana lazım olan veriler var.

(Bu bölüm mdb dosyasının arşivlenmesi konusu)

2) Arşive aktardığım bu mdb verilerini daha sonra çağırıp devam etmeliyim. Ama bu arada başka verilerle çalışacağım. Onlar da yapı olarak aynı türden veriler. Programa çağırdığımda yerlerine cuk oturuyorlar. Tabii onları tıpkı txt'den alırken olduğu gibi bir "gözat" yöntemi aracılığı ile çağırmalıyım.

(Bu bölüm Access'te bağlı tabloların "gözat yöntemiyle" çağırılması konusuyla ilgili. Bunu ilk maddede txt uzantısı için yapıyoruz. Örnekte de var)


3) Verilerle tüm işim bittiğinde ilk hallerine yani .txt hallerine, seçtiğim bir sorgu üzerinden bazı bölümlerini eleyerek dönüştüreceğim. Bu arada oluşacak dosyanın adı, benim mdb dosyamda aktarılan tablomda bir hücre olarak bulunuyor. Aktarırken onu da verilerimle birlikte kaydettim çünkü birden çok .txt dosyasını birleştirdim. Ama her bir kayıt öz olarak geldiği txt dosyasının adını da saklıyor. (Örneği incelerseniz kaynak txt dosyalarının ilk satırında dosya adı var. Bunu biz kayıtlara kodla yazdırdık)

(bu bölüm dosyaların tekrar txt uzantısıyla ve yapısı bozulmadan kaydedilmesiyle ilgili)


4) Böylece ms-dos tabanlı ana programın yapısına uygun olarak her biri 13.000 kayıtla sınırlı olan bir çok txt dosyası, verileri taşeron firma tarafından düzenlenerek tekrar geri gönderilebilecek. Bu düzenleme işlemini yaparken bizim oluşturduğumuz yapı, mesela A ilçesinin verilerini 8 ayrı txt dosyasından yararlanarak tek mdb dosyası haline getirecek. Ama geri gönderirken de yine 13.000 kayıtlı txt uzantılı, veriler arasında $ sekmeli yapı bozulmayacak. Bütün işlemler tamamlandı kalan tek şey birleştirilmiş verilerin bu şekilde mdb olarak arşivlenmesi ve işi biten dosyanın tekrar txt uzantılı dosyalar olarak parçalanması. Dediğim gibi bu parçalamada verilerin hepsi kullanılmadığından filtre etmek ve dosya adlarını da aktarım sırasında yine kendi içine yazdığımız dosyaadlari isimli hücreden almak gerekiyor. Filtre etmek için herhalde en güzel yöntem sorgu üzerinden yapmak ve bu arada dosyaadi hücresine göre de gruplamak olabilir.


(Bu bölüm de txt olarak aktarma işlemi sırasında bazı bölümlerinb alınmaması ve aynı anda birden çok dosya oluşturulması ile ilgili. Ayrıca oluşan dosya adının tablodaki kayıtlardan gruplanarak alınması gerekiyor.)


Bunlarla ilgili orijinal dosyalardan 2 adeti kısaltarak ekledim. Normalde içlerinde 13.000 kişi kayıtlı. Yani toplam 26.000 kayıt var. Ben 45-50 kişi aldım örnek olarak. Dosya formatını görmeniz için orijinal dosyayı aldım, içeri aktarılan veriler mdb olarak dışa verilmeli ve aynı menüden txt olarak kaydedilme işlemi de yapılabilmeli. Nasıl? Örnek herşeyi anlatıyor.

 

[Zeki Gürsoy]

Merhaba,

mdb çıktısı için aşağıdaki yapı işinizi görecektir sanırım. txt çıktısı için aklıma gelen iki metot var: dosyalama ve ADO. ADO için küçük bir registry ayarı gerekebilir. ($ delimiter için)

Sub Arsivleme()
[COLOR=DarkGreen] '// mdb çıktısı..[/COLOR]
    Call insert_into("c:\testVT.mdb", "test_tablo")
End Sub

Private Sub insert_into(destdir As String, tblname As String)
Dim cn As ADODB.Connection, db As DAO.Database

[COLOR=DarkGreen] '// Yeni veritabanı... [/COLOR]
Set db = CreateDatabase(destdir, dbLangTurkish)
db.Close

Set cn = CurrentProject.Connection

[COLOR=DarkGreen]'// sorgula ve yeni veritabanına yaz..[/COLOR]
cn.Execute _
"select * into [" & tblname & "] in '" & destdir & "' from [tblAlınanVeriler]"

Set db = Nothing
Set cn = Nothing
End Sub

 

[mehmetdemiral]

Sayın Zeki Gürsoy.. Çok teşekkür ederim. Deniyorum hemen..

 

[mehmetdemiral]

Kodlarda bazı değişiklikler yapmam gerekti ama çalıştı. Verilerin bir yedeğini c:\testVt.mdb adıyla aldık. Fakat daha sonra bu dosyayı silsem de

Set db = CreateDatabase(destdir, dbLangTurkish)


satırında hata veriyor ve program kırılıyor. Buradaki hata nedir?

Ayrıca bu dosyayı kaydedeceği yeri ve adını bize sorması sağlanamaz mı?. Biz daha sonra bu dosyayı tekrar geri yüklemeliyiz. Onu nasıl yaparız?

 

[Zeki Gürsoy]

Ben de hata oluşmadı. Şunu da değişken tanımının hemen altına ilave edebilirsiniz.

On Error Resume Next
If Dir(destdir) <> "" Then Kill destdir

If Err Then _
    MsgBox Err.Number & Chr(13) & Err.Description & _
    Chr(13) & "dosya kullan&#305;mda olabilir!", vbCritical: Exit Sub

Hedefi common dialog ile sormasını sağlayabiliriz. Şurada bir açma örneği var. Benzer şekilde kaydetme olarak tasarlanır.

http://www.accessforumlari.com/showthread.php?tid=204

Geri yüklemeyi de basit SQL sorgusu ile yaparız.

Ama yarın bakalım artık.

 

[mehmetdemiral]

Bu kodları ekleyince dosyanın olması veya olmaması farketmeksizin kayıt yapıyor. Şimdi güzel oldu. Fakat diğer link ile ilgili olarak dediğim gibi orada verdiğiniz kodlar hata döndürdü. Ben hatanın nedenini anlayamadım. Kodlar aynen şöyle

Private Sub Komut21_Click()

Set dlg = CreateObject("MSComDlg.CommonDialog")

'// Filter syntax: İsim |filtre|
strFilter = "Access dosyası (*.mdb)|*.mdb|"
strFilter = strFilter & "Excel dosyaları (*.xls)|*.xls|"
strFilter = strFilter & _
"Resim dosyaları (*.bmp,*.jpg,*.gif)|*.bmp;*.jpg;*.gif|"
strFilter = strFilter & "Tüm dosyalar (*.*)|*.*|"

With dlg
.DialogTitle = "Dosya seçiniz..." '// Başlık
.InitDir = "C:\" '// Varsayılan konum
.Flags = 4 '// Saltokunur seçeneği disable olur
.Filter = strFilter
.FilterIndex = 4 '// Yukarıdaki filtrelerin varsayılanı.(Tüm dosyalar)
.ShowOpen
If .Flags = 4 Then Exit Sub '// İptal tuşuyla sonlandır
End With

MsgBox dlg.fileName
End Sub

Dikkat ettiyseniz ilk baştaki Sub Test() bölümü yerine
Private Sub Komut21_Click()
komutu geldi. Burada bir hata mı yaptım ki? Çünkü
Set dlg = CreateObject("MSComDlg.CommonDialog")
bölümü hata veriyor. Program orada kırıldı.

 

[mehmetdemiral]

Bu arada yardımlarınız için teşekkür ederim. Çok sağolun..

 

[Zeki Gürsoy]

CreateObject, ben de yine hata döndürmedi. İyi analiz edebilmek için hata iletisinin ne olduğunu da bilmek gerek. Eğer "ActiveX can't create object" gibi ileti aldıysanız referanslardan ilgili .ocx dosyasını ekleyin ve aşağıda düzenlediğim yapıyı deneyin.

Private Sub Komut21_Click()
[COLOR=Blue] Dim dlg As New CommonDialog[/COLOR]

[COLOR=DarkGreen]'// Filter syntax: İsim |filtre|[/COLOR]
strFilter = "Access dosyası (*.mdb)|*.mdb|"
strFilter = strFilter & "Excel dosyaları (*.xls)|*.xls|"
strFilter = strFilter & _
"Resim dosyaları (*.bmp,*.jpg,*.gif)|*.bmp;*.jpg;*.gif|"
strFilter = strFilter & "Tüm dosyalar (*.*)|*.*|"

With dlg
    .DialogTitle = "Dosya seçiniz..." [COLOR=DarkGreen]'// Başlık[/COLOR]
    .InitDir = "C:\" [COLOR=DarkGreen]'// Varsayılan konum[/COLOR]
    .Flags = 4 [COLOR=DarkGreen]'// Saltokunur seçeneği disable olur[/COLOR]
    .Filter = strFilter
    .FilterIndex = 4 [COLOR=DarkGreen]'// Yukarıdaki filtrelerin varsayılanı.(Tüm dosyalar)[/COLOR]
    .ShowOpen
If .Flags = 4 Then Exit Sub [COLOR=DarkGreen]'// İptal tuşuyla sonlandır[/COLOR]
End With

MsgBox "Açılması istenen dosya adı : '" & dlg.FileName & "'"
End Sub

 

[Zeki Gürsoy]

Bu da kaydet diyalog örneğidir. Diyalog problemi çözüldüyse veri alma kısmına geçebiliriz.

Private Sub Komut[COLOR=Red][B]XX[/B][/COLOR]_Click()
[COLOR=Blue]Dim dlg As New CommonDialog[/COLOR]

[COLOR=DarkGreen] '// Kaydet diyaloğu..
'// Filter syntax: İsim |filtre|[/COLOR]
strFilter = "Access dosyası (*.mdb)|*.mdb|"
strFilter = strFilter & "Excel dosyaları (*.xls)|*.xls|"
strFilter = strFilter & _
"Resim dosyaları (*.bmp,*.jpg,*.gif)|*.bmp;*.jpg;*.gif|"

With dlg
    .DialogTitle = "Dosya seçiniz..." [COLOR=DarkGreen]'// Başlık[/COLOR]
    .InitDir = "C:\" [COLOR=DarkGreen]'// Varsayılan konum[/COLOR]
    .Filter = strFilter
    .FileName = Empty [COLOR=DarkGreen]'// Değişkenin içini boşalt..[/COLOR]
    .FilterIndex = 0 [COLOR=DarkGreen]'// Yukarıdaki filtrelerin varsayılanı.(mdb dosyaları)[/COLOR]
    .ShowSave
If .Flags = 0 Then Exit Sub [COLOR=DarkGreen]'// İptal tuşuyla sonlandır[/COLOR]
End With

MsgBox "Kaydedilecek hedef: '" & dlg.FileName & "'"
End Sub

 

[beab05]

Merhaba;

Alınan hatayla ilgili tahminimi belirteyim. Kod sayfasında;

Option Explicit

varsa, ya kaldırın ya da doğrusu olarak "strfilter" i tanımlayın..

Dim dlg As New CommonDialog
[B][COLOR="Red"]Dim strfilter As String[/COLOR][/B]
'// Filter syntax: İsim |filtre|
strfilter = "Access dosyası (*.mdb)|*.mdb|"

....................
.........................

 

[mehmetdemiral]

Valla verdiği hata şu.. Ekran görüntüsünü yolluyorum. Ben bunu command21'e basınca hemen alıyorum.

 

[beab05]

O hatanın hemen altına;

dim strfilter as string

denememişsiniz.. !??

 

[mehmetdemiral]

Denedim sevgili beab05. Printscreen aldıktan sonra denedim. Fakat yine MSComDlg'nin üzerinde seçili vaziyette debugger penceresi geliyor.

 

[mehmetdemiral]

Şu andaki hali şöyle:


Private Sub Komut21_Click()
Dim dlg As New CommonDialog
Dim strfilter As String
'// Filter syntax: İsim |filtre|
strfilter = "Access dosyası (*.mdb)|*.mdb|"
strfilter = strfilter & "Excel dosyaları (*.xls)|*.xls|"
strfilter = strfilter & _
"Resim dosyaları (*.bmp,*.jpg,*.gif)|*.bmp;*.jpg;*.gif|"
strfilter = strfilter & "Tüm dosyalar (*.*)|*.*|"

With dlg
.DialogTitle = "Dosya seçiniz..." '// Başlık
.InitDir = "C:\" '// Varsayılan konum
.Flags = 4 '// Saltokunur seçeneği disable olur
.Filter = strfilter
.FilterIndex = 4 '// Yukarıdaki filtrelerin varsayılanı.(Tüm dosyalar)
.ShowOpen
If .Flags = 4 Then Exit Sub '// İptal tuşuyla sonlandır
End With

MsgBox "Açılması istenen dosya adı : '" & dlg.fileName & "'"
End Sub

 

[mehmetdemiral]

Zaten
Dim dlg As New CommonDialog

satırını geçemiyor ki.. Ben de şu anda
http://www.pcreview.co.uk/forums/thread-1643298.php
linkinde aynı konuyla ilgili bir yazı var. Onu anlamaya çalışıyordum.

 

[beab05]

Bilemiyorum... comdlg32.ocx i eklemişsinizdir herhalde Aklıma gelenleri yazıyorum sadece..

 

[mehmetdemiral]

Şu anda evdeki notebook'da denedim. Onda da aynı hatayı veriyor. Yalnız notebook'de comdlg32.ocx dosyasının olmadığını farkettim. ddlfiles.com'dan indirdim. Her ikisini de -comdlg32.dll ve ocx- system klasörüne kopyaladım. ocx dosyasını regsvr32 ile açarak registere kaydettim. Sonra programı tekrar çalıştırdım. Yine aynı satırda hata verdi. Yaptığım işlemlerde bir yanlışlık mı var? system32'ye de kopyalayayım mı aynı dosyaları?

 

[mehmetdemiral]

Farkettim ki benim notebook'da comdlg32.dll dosyası system32 altında. Ben de tekrar ocx dosyasını system32 altına kopyhalayıp orada da register ettim. Ama sonuç değişmedi. Yine aynı yerde

dlg As New CommonDialog bölümü seçili olarak kod debug penceresi karşıma geliyor. Sizde nasıl?.. Benim örneğin son halini yükledim. Bir inceleyin derim.. Belki form üzerinde sizde de hata verecektir.