Arşive Gönderme

[Zeki Gürsoy]

Referans eklenmemiş görünüyor bende. Referansı "Browse" ile .ocx dosyasını seçerek ekleyin.

 

[mehmetdemiral]

Sayın Zeki Gürsoy. Projeme ocx dosyasını ekledim ve referanslardan bakınca artık "microsoft comman dialog control 6.0" yerini aldı. Burayı atlamışım. Ben ocx dosyasını windows'a tanıtmıştım. Buradan ayrıca tanıtmam gerektiğini bilmiyordum. Neyse onu hallettim fakat bu kez de Runtime error "429" Activex component can't create object hata uyarısı alıyorum. Debug tuşuna bastığımda da with dlg' nin sarı renkte seçili olduğunu görüyorum. Acaba benim ocx dosyası çok eski bir sürüm olabilir mi? Sizin ocx dosyasını bana gönderir misiniz? Bendeni internetten indirdiğim bir dosya. Belki sürüm veya dil farkı olabilir.

 

[beab05]

Umarım olur.. "Strfilter" leri tanımlamayı unutmayınız

 

[mehmetdemiral]

Nasıl yani. Dim olarak tanımlamak yetmiyor mu? Ayrıca başka birşey yapmam gerekiyorsa bilmiyorum.
Dim strfilter As String
satırını
Dim dlg As New CommonDialog

satırının altına yapıştırdım. Ama istersen public değişkeni olarak tanımlayayım.

 

[beab05]

Public te olur private de olur. Değişken ismini fazlaca ve aynı türde kullanıyorsanız public yapabilirsiniz..

 

[mehmetdemiral]

Sadece command21 click yordamında tanımlanması yeterliyse sorun yok. Ama ben zaten neyin yeterli neyin yetersiz olduğunu anlamadım ki.. ) Sevgili beab05. Senden gelen dosyayı system32 altına attım. -Tabii diğerini silerek - Önce kullanıldığını söyledi silmedi. Benim çalışmamı kapatınca sildi. Demek ki projem bu ocx dosyasını kullanabiliyor. Fakat senden geleni de atmama rağmen -tabii yeniden referans olarak tanıttım- yine de bu

With dlg

satırında kalıyor. Çıldırmak üzereyim. Sizde sorunsuz çalışıyor mu? Son halini göndereyim de bir bakın ne olur.

 

[Zeki Gürsoy]

System32 altında olmayan (diğer aynı ocx'i) unregister yapın.

Uzun API yapısı yerine bu kadar pratik yolunu yalnız sizin kullanamamanız üzücü bir durum sayın Demiral.

 

[modalı]

Bu iş neden bu kadar karıştı anlayamadım:

Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Veritabanı Seç"
        .Filters.Add "Bütün dosya türleri", "*.*"
        .Filters.Add "JPEGs", "*.jpg"
        .Filters.Add "Access Dosyaları", "*.mdb"
        .Filters.Add "Excel Dosyaları", "*.xls"
        .FilterIndex = 4
        .AllowMultiSelect = False
        .InitialFileName = "C:\"
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
        End If
    End With

işinizi görür sanırım.

İyi çalışmalar

 

[Zeki Gürsoy]

Doğru. Kaydet diyaloğunu da bu şekilde çağıralım.

Sub Files_Save_Dialog()
Dim f As FileDialog

Set f = Application.FileDialog(msoFileDialogSaveAs)

If Not f.Show = -1 Then Exit Sub

    MsgBox f.SelectedItems(1) & ".mdb"
   
End Sub

 

[mehmetdemiral]

Sayın mOdalı'nın yöntemiyle gayet güzel verilere ulaştım. Browser üzerinden mdb dosyamı gösterdim. Hatta problem olmasın diye dosyanın içindeki tablonun adını da tblAlınanVeriler yaptım. Fakat veriler benim programdaki tblAlınanVeriler isimli tablonun içine gelmedi. Baktığımda tablomun içi boş..

 

[mehmetdemiral]

Sayın Zeki Gürsoy

Sub Files_Save_Dialog()
Dim f As FileDialog

Set f = Application.FileDialog(msoFileDialogSaveAs)

If Not f.Show = -1 Then Exit Sub

MsgBox f.SelectedItems(1) & ".mdb"

End Sub

kodlarını mdb olarak arşive gönderme tuşuma uyarladım. Fakat mesela c: anadizine mehmet adıyla bir dosya kaydetmek istediğimde bana bir msgbox çıkarak içinde sadece c:\mehmet.mdb yazıyor. Ve dosyayı kaydetmiyor.

 

[mehmetdemiral]

Sayın Modalı.. Sizin dosya çağırma kodlarınızda dosyanın benim projem içerisindeki tblalınanveriler tablosuna yerleşmesi nasıl sağlanacak. Yoksa tblalınanveriler tablosu bu işlem öncesi silinecek, sonra da arşivden gelen tablo mu yerine geçecek. Kodları incelediğimde proje içerisindeki tabloya verilerin yerleşmesini sağlayacak herhangi bir komut göremedim.

 

[modalı]

Sayın mehmetdemiral,

Elbette gelmez çünkü kodlar eksik. Şimdi size bir örnek gönderiyorum. Onu inceleyerek istediğinizi yapabileceksiniz.

Ancak DAO kullanmışım. ADO ya çevirmek isterseniz yeni kodları ekleyebilirim.

İyi çalışmalar

 

[mehmetdemiral]

Dosyamın son şeklini yolluyorum. İncelerseniz sevinirim.

 

[mehmetdemiral]

Teşekkür ederim sayın Modalı ama dolu olan için gönderdiğiniz örnekte hiç kod yok. Yani düğmeler için kod yazılmamış. Boş olanı da ben hiç anlamadım nasıl kullanacağımı... )) Siz şunu benim örnek üzerinde uygulasanız. Mümkün mü?.. Daha txt olarak dosya adları verilerine göre dışarıya verme işimiz de var ki, o beni hep korkutuyor. Bu işlemin daha basit olduğunu düşünmüştüm, bütün günüm evden hiç çıkmadan bu işe gitti yine de hiç ilerleyemedim. En iyisi siz benim dosyama bir el atsanız..

 

[modalı]

Sayın mehmetdemiral,

Boş olan veritabanını açıyorsunuz, gözat a tıklayıp açılan dialog penceresinden dolu mdb yi seçiyorsunuz. adı metin kutusuna geliyor. Veri ala tıklıyorsunuz, doludagi veriler boş veritabanının tablosuna kaydediliyorlar.

Ben size dünde söyledim bu iş adım adım olacak. Her adımı soracaksınız cevabını alıp kendi uygulamanıza uyarlayacaksınız.

Şimdi, tam olarak bu adımda ne yapılacak? Başka bir veritabanından verileri bizim tabloya çağıracaksak elimizde basit iki uygulama olmalı. (Sanırım tablo adları ve alan adları aynı.) Bu adım başarılıdıktan sonra, ana uygulamaya uyarlanacak. Sonraki adım için yine basit bir uygulama eklenecek bu uygulama çalıştıktan sonra ana uygulamaya uyarlanacak vs. Yani küçük küçük adım atılacak ki aklımız karışmasın. Siz tabi uygulamanızı bildiğiniz için çalışma düzenini bildiğiniz için daha kolay takip edebiliyorsunuz.

İyi çalışmalar

 

[mehmetdemiral]

Sayın Modalı.. Anladım şimdi nasıl çalıştığını. Ben örnek dosya değil de, boş tablo oluşturma ve dolu tablodan veri alma gibi düşündüm. Tıpkı söylediğiniz gibi, ben ağrı yapan noktalarımı iyi bildiğim için sizin de aynı ağrıyı görmenizi bekliyorum. Özür dilerim.. Gerçekten de kendi oluşturduğum bir yapıyı sizin "şak" diye anlamanızı beklemek biraz haksızlık oluyor gerçekten de... Yardımlarınıza çok teşekkürler...

Bu arada birşey sormak istiyorum. Sizin örnek uygulamanızdan aldığım txt dosyalarını alma için kullandığım verial formunda bir de "kaynak" adında bir dosya oluşturan komut düğmesi vardı. Ben o düğmeyi kullanamadım. O yüzden kaldırdım. Acaba o düğme dosyaları tekrar "kaynak" isimli dosyaya txt uzantısıyla ve formata uygun olarak kaydetmek için mi düşünülmüştü? Ben hep içi boş veriler oluşturduğu ve sonraki çağırmada "kaynak" isimli dosyayı bulduğu ve bir daha dosya yerini sormadığı için kullanmadım. Şimdi düşünüyorum da böyle bir yol mu vardı form üzerinde?

 

[modalı]

Sayın mehmetdemiral,

O uygulamada tekrar txt dosyasına kaydedilmiyordu, hatırladığım kadarıyla. Ama kayıt işlemini fazla düşünmeyin, o da çok kolay. Nasıl olacağını söyleyeyim:

Sanırım kayıtların bir limiti var 13000 gibi. Şimdi geçici bir tablo oluşturuyoruz ondan sonra asıl tablomuzdaki verileri alıp istediğimiz gibi birleştiriyor ve tek alanlık geçici tabloya kaydediyoruz. Ondan sonra bu kayıtları teker teker alıp, txt dosyasına satır satır kaydediyoruz.

txt dosyasına, word dosyasına kayıt eklediğim için gayet rahatım bu konuda.

İyi çalışmalar

 

[modalı]

Sayın mehmetdemiral,

Var olan txt dosyasına kayıt eklemek:

Function WriteLineToFile
   Const okuma = 1, yazma = 2, ekleme = 8
   Dim fso, f
   Dim rst As New Recordset
 
   path = CurrentProject.path
   name = path & "\kaynak.txt"   
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile(kaynak, ForWriting, True)
 
 
   rst.Open "geçicitabloadı", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
 
   Do While Not rst.EOF
   f.WriteLine rst 
   rst.MoveNext
   Loop
 
  rst.Close
  f.Close
  Set rst = Nothing
  Set f = Nothing
End Function

Kodla yeni bir txt belgesi oluşturma:

Sub CreateAfile
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
End Sub

İyi çalışmalar

 

[mehmetdemiral]

Ok.. Sevindim. Az önceki dış veri alma ile ilgili örneğinizi çalıştırıp benim projeme eklemek istedim. Benim veri alma formuma Gözat ve alma butonu ile metin kutusu ekledim. Koddaki metin kutusunun adını da düzelttim. Herşey normal olarak işledi. Fakat metin kutusuna gelen dosya adının verilerini almak istediğimde veri al komutunu çalıştıran düğmem hata verdi.
Düğme zaten tek bir komut çalıştırıyor. O da

Call DataValid

komutu. Resim ekledim. Orda daha iyi anlaşılır.