求助vb 读写sql问题....

Question

代码:
dm = Replace(dm, " ", "")                                                   '去掉
 tmp1 = Split(dm, "vbCrLf")    For i = 0 To UBound(tmp1)
    datass = Split(tmp1(i), "','")
    sql = "select * from odds_list"
rs.open sql, conn, 1, 3
rs.AddNew
rs("matchindex") = datass(0)
rs("matchdate") = datass(1)
rs("runningscorea") = datass(2)
rs("runningscoreb") = datass(3)
rs("teama") = datass(4)
rs("homeaway") = datass(5)
rs("teamb") = datass(6)
rs("favourite") = datass(7)
rs.Update
rs.Close
Nextdm$ tmp1$()
tmp1数组中有多行文本..为什么我不能把他取出来后循环去连接SQL后写入到对应的字段去呢..为什么只能写一行....
怎么样才能循环...

Answer 1

我不太明白你的代码 dm = Replace(dm, " ", "")  tmp1 = Split(dm, "vbCrLf") 
这样的话你的数据表格不是只有一行吗??那再怎么循环也只有一行啊... 

Answer 2

sql = "select * from odds_list" 
rs.open sql, conn, 1, 3 
For i = 0 To UBound(tmp1) 
   datass = Split(tmp1(i), "','")    rs.AddNew 
   rs("matchindex") = datass(0) 
   rs("matchdate") = datass(1) 
   rs("runningscorea") = datass(2) 
   rs("runningscoreb") = datass(3) 
   rs("teama") = datass(4) 
   rs("homeaway") = datass(5) 
   rs("teamb") = datass(6) 
   rs("favourite") = datass(7) 
   rs.Update 
 
Next i
rs.Close

Answer 3

dm = Replace(dm, " ", "")   是去掉空格的 
 = Split(dm, "")因为dm是一个字符串变量,所以把他用vbCrLf换行....去给tmp1数组

Answer 4

5楼的方法还是只能写入一行数据...不知道是不是我的SQL语句有问题呢...