Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
07/10/2009 21:11
Konu Sahibi
yakcaglayan
Yorumlar
7
Okunma
2907
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

yakcaglayan

Aktif Üye
Aktif Üye
YA....
 44
 37
 11
 08/11/2008
0
 İstanbul
 
 Ofis 2010
 06/02/2017,03:26
Çözüldü 
Arkadaşlar selam,
öncelikle bu problemi 2 gündür araştırıyorum. forumda da ayrıntılı araştırdım. bulamadım.

Aşağıda eklediğim bir yordamla Text bir dosyayı ( Tab la ayrılmış) okuyup bir tabolaya insert ediyorum. Tabloya yazdıktan sonra Türkçe karekterlerde problem oluyor. bu akşam evdeki makinada denedim problem olmadı. ama işyerindeki makinada bu problem var. nasıl bir yol izlemeliyim. İşyerindeki makinamda XP ve Office 2007 var, evdeki makinada da office 2007 var. ne dersiniz?
Teşekkürler...



Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 Private Sub Command0_Click()
  Dim dosyasatir
    Dim MyArray
    Dim FMGID, FMGAD, FMGKAD, FKTGID, FKTGAD, FMRID, FMRAD, FUCID, FUCAD, FAUGID, FAUGAD
    Dim FSTOK, FSAYIM
    
    
    Open "c:\ornek.txt" For Input As #1
    Line Input #1, dosyasatir
     DoCmd.SetWarnings False
     DoCmd.RunSQL "delete from TBL_GDATA;"
    Do While Not EOF(1)
        Line Input #1, dosyasatir
            MyArray = Split(dosyasatir, vbTab, -1, 1)
        
            FMGID = MyArray(0)
            FMGAD = MyArray(1)
            FMGKAD = MyArray(2)
            FKTGID = MyArray(3)
            FKTGAD = MyArray(4)
            FMRID = MyArray(5)
            FMRAD = Replace(MyArray(6), "'", "")
            FUCID = MyArray(7)
            FUCAD = MyArray(8)
            FAUGID = MyArray(9)
            FAUGAD = MyArray(10)
            FSTOK = MyArray(11)
            FSAYIM = MyArray(12)
                If Trim(FSTOK) = "" Then FSTOK = 0
                If Trim(FSAYIM) = "" Then FSAYIM = 0

            
            
         DoCmd.RunSQL "insert into TBL_GDATA (MGID,MGAD,MGKAD,KTGID,KTGAD,MRID,MRAD,UCID,UCAD,AUGID,AUGAD,STOK,SAYIM) values ('" _
        & Trim(FMGID) & "','" & Trim(FMGAD) & "','" & FMGKAD & "','" & FKTGID & "','" & Trim(FKTGAD) & "','" & Trim(FMRID) & "','" _
        & Trim(FMRAD) & "','" & Trim(FUCID) & "','" & Trim(FUCAD) & "','" & Trim(FAUGID) & "','" & Trim(FAUGAD) & "'," _
        & Int(FSTOK) & "," & Int(FSAYIM) & ");"


    Loop
    Close #1
    DoCmd.SetWarnings True
    MsgBox ("Import İşlemi Tamamlandı")

End Sub


Halay Access hastalığının Bakırköy'de tedavisi varmıdır? Halay

Kullanici Avatari

mehmetdemiral

.
Uzman
ME.... DE....
 53
 4.890
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 18/09/2018,22:27
Çözüldü 
Bu sitedeki birçok arkadaş kodlara bakarak hata bulmayı sevmez. Biz daha çok örnekler üzerinde problem çözmeye bayılırız. Elimizde örnek txt dosyanız olmadan kodlarınıza bakarak sonuç almamız zor. Uygulamayı ve örnek text dosyanızı eklerseniz hızlıca yardım alabilirsiniz. Aynı işlemi ben de programlarımda kullanıyorum, ama tr karakter problemi yaşamadım. Örnek gönderirseniz onunla karşılaştırırım.

Kolay Gelsin


İnadına, ille de Accesstr.net...

Kullanici Avatari

yakcaglayan

Aktif Üye
Aktif Üye
YA....
 44
 37
 11
 08/11/2008
0
 İstanbul
 
 Ofis 2010
 06/02/2017,03:26
Çözüldü 
Sayın mehmetdemiral,
kesinlikle haklısınız.
Aslında örnek koymayı düşündüm, küçük bir test örneğide yaptım ama bu makinada problemin olmadığını şirketteki makinada problemin olduğunu anlayınca örnek göndermede tereddüt ettim.
Aslında problemin işletim sisteminde mi yoksa Vba kodlarındamı onu anlamaya çalışıyorum.
yardımların için şimdiden teşekkür.


Ek Dosyalar
.rar   Documents.rar(Dosya Boyutu: 1,45 MB / İndirme Sayısı: 17)
Halay Access hastalığının Bakırköy'de tedavisi varmıdır? Halay

Kullanici Avatari

mehmetdemiral

.
Uzman
ME.... DE....
 53
 4.890
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 18/09/2018,22:27
Çözüldü 
Vba kodlarında hata yok. Sanıyorum sizin işletim sisteminizin bölgesel ayarlar kısmında ülke ya da dil yanlış seçili. Çünkü bende sorunsuz çalıştı.


İnadına, ille de Accesstr.net...

Kullanici Avatari

yakcaglayan

Aktif Üye
Aktif Üye
YA....
 44
 37
 11
 08/11/2008
0
 İstanbul
 
 Ofis 2010
 06/02/2017,03:26
Çözüldü 
teşekkürler,
araştırmalarım bu yönde olacak.


Halay Access hastalığının Bakırköy'de tedavisi varmıdır? Halay

Kullanici Avatari

mehmetdemiral

.
Uzman
ME.... DE....
 53
 4.890
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 18/09/2018,22:27
Çözüldü 
Bu arada, programınızdaki sorunu halledince gözat butonu ile txt dosyayı çağırma işlemi yapalım. Böyle c'de sabit txt derdinden kurtulursunuz.


İnadına, ille de Accesstr.net...


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Access Runtime İle Çalışırken İstemci Ayarlarında Sorgu Onayı Problemi hbal09 4 108 11/09/2018, 17:59
Son Yorum: hbal09
Çözüldü Vcard Türkçe Karakter Sorunu access acemisi 8 189 01/09/2018, 11:32
Son Yorum: access acemisi
Çözüldü Nesne-Form "özellik Sayfası" Problemi notrino 5 110 16/08/2018, 12:46
Son Yorum: notrino
Çözüldü Accessten Excele Veri Aktarımında Sorguda Nz Problemi mehmetb84 7 179 06/08/2018, 15:28
Son Yorum: mehmetb84
Çözüldü Text İçindeki Dataya Göre Combobox Secilmesi sidd 4 165 03/07/2018, 15:45
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.