Andai tiap data (field) di file txt dipisahkan dengan tanda koma.
Ada beberapa cara salah satunya untuk memasukkan ke dalam database:
Ambil data dari txt files line per line mulai dari line atas, kodenya :
'Andai kita seleksi file menggunakan common dialog :
filenames() = Split(CommonDialog1.FileName, vbNullChar)
For i = LBound(filenames) To UBound(filenames)
If UBound(filenames) = 0 Then
Open filenames(i) For Input As #fnum
'membaca baris per baris file txt kodenya :
Line Input #fnum, data
'parsing koma kemudian masukkan ke dalam array words () :
words() = Split(data, ",")
For j = 0 To 6 --->asumsi ada 6 field yang dipisahkan dengan tanda koma
temp(j) = words(j) ---> data dari array words() dimasukkan ke temp()
Next
'Data dari array temp() masing2 dimasukkan ke dalam field table yg sesuai,
kodenya
With adodc1.Recordset
.AddNew
!Date = (temp(0))
!ticker = (temp(1))
!Open = (temp(2)) / 100
!high = (temp(3)) / 100
!low = (temp(4)) / 100
!Close = (temp(5)) / 100
!volume = (temp(6))
.Update
End With
Next
Regards
Haris.
