Skip to main content

AccessTr.neT


txt den sıralı veri almak...

txt den sıralı veri almak...

Çözüldü #7
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
Cevapla
Çözüldü #8
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..
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #9
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
Cevapla
Çözüldü #10
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..
İnadına, ille de Accesstr.net...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task