AccessTr.neT

Tam Versiyon: Bir Kaç Tablodan Veri Aktarma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
benzersiz alan yerine önce tablodan o günün kayıtları silinip sonra tüm günlük veriler eklenebilir
örnek olması için accessteki tabloya .t li dosyalardan veri eklemenizi istemiştim ama eklenmemiş o veriler
dilerim işinize yarar
Sub VeriAl()
folderPath = "d:\Desktop\txt2Access\rs" & Format(Date, "ddmmyy") & ".T"

Dim MyArray As Variant
Dim fso As Variant
Dim objStream As Variant
Dim objFile As Variant
Dim sSQL As String
Dim rs As ADODB.Recordset '(or some other method)
Dim i As Integer
i = 0

sSQL = "SELECT * FROM tbl_ilk"
Set rs = New ADODB.Recordset
rs.Open sSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

CurrentDb.Execute "delete * from tbl_ilk where [tarih]=date();"
Set fso = CreateObject("Scripting.FileSystemObject")

For xF = 1 To 4

    If fso.FileExists(folderPath & xF) Then
        Set objStream = fso.OpenTextFile(folderPath & xF, 1, -2)
        x = 0
        Do While Not objStream.AtEndOfStream
            strLine = objStream.ReadLine
            ReDim MyArray(0)
            MyArray = Split(strLine, "---")
           
            rs.AddNew
            Dim item As Variant
            x = 0
            For Each item In MyArray
                '      If x = 0 Then t = DateValue(item) 
                rs(x + 1) = Trim(item)
                x = x + 1
            Next item
        Loop
    End If
Next


    rs.Update
End Sub
sayın berduş hocam, elleriniz sağlık süper olmuş gerçekten kalan kısmını ben uyarlarım inşallah
Rica ederim
İyi çalışmalar
Sayfalar: 1 2 3