Question

vb将MSHFlexGrid1整列保存到access里面

MSHFlexGrid1里面有25列数据我想保存到d:\1.mdb的T_ProductTotal表里面对应的25列.最简单的代码要怎么写?

Answer 1

rs.addnew
For i = 0 To MSFlexGrid1.Rows
For j = 0 To MSFlexGrid1.Cols
rs(j - 1) = MSFlexGrid1.TextMatrix(i, j)
Next j
Next i
rs.Update
rs.Close
这是最简单的代码，我没有具体数据库环境，没有测试，给你提供个参考，希望能帮到你！

追问

谢谢你.前面连接的怎么写?

追答

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Record
Dim connstr As String, db As String
On Error Resume Next

db = "db\1.mdb"

connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
sql = "select * from T_ProductTotal"
rs.open sql, conn, 1, 3
rs.addnew
For i = 0 To MSFlexGrid1.Rows
For j = 0 To MSFlexGrid1.Cols
rs(j - 1) = MSFlexGrid1.TextMatrix(i, j)
Next j
Next i

rs.Update
rs.Close

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Record
Dim connstr As String, db As String
On Error Resume Next

db = "db\1.mdb"

connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
sql = "select * from T_ProductTotal"
rs.open sql, conn, 1, 3
rs.addnew
For i = 0 To MSFlexGrid1.Rows
For j = 0 To MSFlexGrid1.Cols
rs(j - 1) = MSFlexGrid1.TextMatrix(i, j)
Next j
Next i

rs.Update
rs.Close

追问

执行后没有数据写入到mdb里面呀?我把容错语句去掉,提示实时错误424下面这句
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

追答

53786852@qq.com 你把工程文件和mdb文件一起打包发给我，调试好了，发给你

追问

已经发过去了。里面有个TXT文件。要复制到D盘根目录下。运行的时候先点路径按钮。在点旁边那个按钮。我就是想把读取出来的内容保存到Access里面。TXT文件有很多。我只是复制了一个。

已经发过去了。里面有个TXT文件。要复制到D盘根目录下。运行的时候先点路径按钮。在点旁边那个按钮。我就是想把读取出来的内容保存到Access里面。TXT文件有很多。我只是复制了一个。

已经发过去了。里面有个TXT文件。要复制到D盘根目录下。运行的时候先点路径按钮。在点旁边那个按钮。我就是想把读取出来的内容保存到Access里面。TXT文件有很多。我只是复制了一个。

追答

收到了，明天发给你

追问

谢谢你。