+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Text aktarımında Türkçe karekter problemi... (/konu-text-aktariminda-turkce-karekter-problemi.html)
Sayfalar:
1
2
Text aktarımında Türkçe karekter problemi... - yakcaglayan - 07/10/2009
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:
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 SubCvp: Text aktarımında Türkçe karekter problemi... - mehmetdemiral - 07/10/2009
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
Cvp: Text aktarımında Türkçe karekter problemi... - yakcaglayan - 07/10/2009
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.
Cvp: Text aktarımında Türkçe karekter problemi... - mehmetdemiral - 07/10/2009
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ı.
Cvp: Text aktarımında Türkçe karekter problemi... - yakcaglayan - 07/10/2009
teşekkürler,
araştırmalarım bu yönde olacak.
Cvp: Text aktarımında Türkçe karekter problemi... - mehmetdemiral - 07/10/2009
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.