请教数组的值赋给数据库表??
我要做的一个从文本文件（以(|)符分隔）导入到VB.NET2003 DATASET数据库,是先读取一条记录，查找分隔符，把每一个字段存到一个数组里，然后再把数组的值赋给数据库表的每一个字段，我文本数据比较多（几万条），但不知怎么赋值,不知道哪位高手有这方面的好方法，能够指点小弟几招，小弟不胜感激。 下面上代码:请高手帮我改一下?
Dim dt As New DataTable
dt.Columns.Add(New DataColumn("dept"))
dt.Columns.Add(New DataColumn("sqeitem")
dt.Columns.Add(New DataColumn("itemcode")
dt.Columns.Add(New DataColumn("lpp")
dt.Columns.Add(New DataColumn("nsp")
Dim dr As DataRow = dt.NewRow
Dim myLineStr(), a(1) As String这里数组也有问题?
Dim myLine As String
Dim r As System.IO.StreamReader = New System.IO.StreamReader("d:\test.txt", System.Text.Encoding.Default)
myLine = r.ReadLine
Do While Not (myLine Is Nothing)
myLineStr = myLine.Split("|")
dt.Rows.Add(??????)这里就不知怎么把数组的值赋给数据库表的每一个字段了?
Loop
Dim mydataset As DataSet = New DataSet
DataGrid1.DataSource = dt
下面是TEST文本文件内容:
10 ¦000001 ¦0000001 ¦1.85 ¦1.5705 ¦
10 ¦000006 ¦0000002 ¦1.9 ¦1.5555 ¦
10 ¦000020 ¦0000003 ¦1.9 ¦1.5705 ¦
10 ¦000077 ¦0000004 ¦1.9 ¦1.5555 ¦
10 ¦000086 ¦0000005 ¦11.2 ¦8.9743 ¦
10 ¦000109 ¦0000006 ¦2 ¦1.5705 ¦
[解决办法]
把“"”Replace掉，然后按“,”分割就行了，没必要再替换成“|”了
Dim dt As New DataTabledt.Columns.Add(New DataColumn("dept"))dt.Columns.Add(New DataColumn("sqeitem"))dt.Columns.Add(New DataColumn("itemcode"))dt.Columns.Add(New DataColumn("lpp"))dt.Columns.Add(New DataColumn("nsp"))Dim dr As DataRow = dt.NewRowDim myLine As StringDim myLineStr(5) As StringDim r As System.IO.StreamReader = New System.IO.StreamReader("d:\test.txt", System.Text.Encoding.Default)While r.Peek > -1 Dim row As DataRow = dt.NewRow myLine = r.ReadLine().Replace("""", "") myLineStr = myLine.TrimEnd(",").Split(",") row.ItemArray = myLineStr dt.Rows.Add(row)End WhileDataGrid1.DataSource = dt