txt den sıralı veri almak... - Baskı Önizleme +- 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ığı: txt den sıralı veri almak... (/konu-txt-den-sirali-veri-almak.html) Sayfalar:
1
2
|
Cvp: txt den sıralı veri almak... - karaayhan - 07/12/2008 konu çözümlendi ; '*/*/*/*/*/*/*//*/kodlar burdanbaşlar*/*/*/*/*/*/*/ Public Sub VeriAl() Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fs, f Dim name, text, path, veri As String Dim cnn As New ADODB.Connection Dim rst As New Recordset path = CurrentProject.path name = path & "\Veriler.txt" Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(name, 1, -2) Set cnn = CurrentProject.Connection rst.Open "tblVeri", cnn, adOpenKeyset, adLockOptimistic, adCmdTableDirect Do While Not f.AtEndofStream text = f.readLine If Trim(text) <> "" Then veri = veri & " " & text Else rst.AddNew rst(1) = veri rst.Update veri = "" End If Loop rst.AddNew rst(1) = veri rst.Update Me.tblVeri_alt_formu.Form.Requery f.Close rst.Close Set f = Nothing Set fs = Nothing Set rst = Nothing Set cnn = Nothing End Sub Private Sub cmdAl_Click() Call VeriAl End Sub '/*/*/*/*/*/*/*/*/kodlar burada biter */*/*/*/*/ iyi bayramlar Cvp: txt den sıralı veri almak... - mehmetdemiral - 07/12/2008 Evet, aslında benim gönderdiğim kodlar da yukardaki kodlar da sayın modalı'dan geldi. Buraya eklerken ya da burdaki bilgileri oraya eklerken belirtmek en doğrusu. Sonra yanlış anlaşılabilir. Kolay gelsin, iyi bayramlar.. Cvp: txt den sıralı veri almak... - karaayhan - 09/12/2008 başka forumun reklamını yapıyor demesinler diye yazmadım takip edenler biliyor zaten sayın demiral hocam sizin gibi, eğer sorun yok diyorsa yönetim tabi memnuniyetle belirtirim. sonuçta sayın modalıyı bilmeyen yok Access camiasında ismi geçmişken birde buradan vesilenizle teşekkür ederim kendisine. iyi çalışmalar Cvp: txt den sıralı veri almak... - mehmetdemiral - 09/12/2008 Evet ben de benzer bir txt verisi okumada çok çok yardımını görmüştüm. Kesinlikle Access konusunda kendisinden çok şey öğrendik.. Sağolsun.. |