AccessTr.neT

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

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

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

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