查人人中国名人网爆米花锅价格:有没有办法在vb中实现文本文件向数据库文件的转换?
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/09 11:41:43
.
假如文本文件是按如下格式:
D,356,ABC,12.765,.....,L
.....
C,35.6,ABD,45678,.....,M
定义一个1维数组，对文本文件逐行读入，然后逐条添加到数据库的表中，代码如下，本人调试时用了10个字段数据，你可依据你的情况作修改：
Option Explicit
Dim data(10) As String
Dim i As Integer
Private Sub Command1_Click()
Open "c:\txt_mdb\mdlk_sj.txt" For Input As #1
Do Until EOF(1)
Input #1, data(0), data(1), data(2), data(3), data(4), data(5), data(6), data(7), data(8), data(9)
Adodc1.Recordset.AddNew
For i = 0 To 9
Adodc1.Recordset(i) = Trim(data(i))
Next i
Loop
Close
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TXT_MDB\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from tabel1"
Adodc1.Refresh
Text1 = ""
End Sub
.txt->.mdb?
你可以把txt文本中的data逐一读取出来，然后添加到数据库的记录中去