AccessTr.neT
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 Img-grin

ismi geçmişken birde buradan vesilenizle teşekkür ederim kendisine.

iyi çalışmalarImg-grin


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..