Question

VB：求救各位大侠，如何将MSFlexGrid中多行内容保存到ACCESS？我用insert into 语句只能存一行！

分比较少，望不吝赐教！皆因我只有这么多分了！
Private Sub Command3_Click()
Dim rs As New ADODB.Recordset
rs.ActiveConnection = cn
Dim im As String

rs.Open "select*from 病历2"

If MSFlexGrid2.TextMatrix(1, 0) <> "" Then
im = "insert into 病历(项目,中文名称,实验参考值,检验结果)"
im = im + "Values('" + MSFlexGrid2.TextMatrix(1, 0) + "','" + MSFlexGrid2.TextMatrix(1, 1) + "','" + MSFlexGrid2.TextMatrix(1, 2) + "','" + MSFlexGrid2.TextMatrix(1, 3) + "')"
cn.Execute im
MsgBox "病历已保存！！！", vbOKOnly, "信息提示"
End If
End Sub

Answer 1

既然你可以保存一行了，就可以通过循环来逐行保存，MSFlexGrid的Cols、Rows 属性可以得到总列数和总行数，Col、Row 属性可以指定哪一列哪一行，记得以前经常这么做的

追问

能具体说下循环怎么做吗？
然后怎么把循环的内容发送至后台呢？

追答

for i =0 to MSFlexGrid.rows-1
im = im + "Values('" + MSFlexGrid2.TextMatrix(i, 0) + "','" + MSFlexGrid2.TextMatrix(i,1) + "','" + MSFlexGrid2.TextMatrix(i, 2) + "','" + MSFlexGrid2.TextMatrix(i, 3) + "')"
next
只写了循环取值，其他的自己加，我记得行数好像是从0开始的，好久没写了，如果错了加一减一调一下

追问

自学者的烦恼——犯难在于我就是不懂得循环取值之后的语句怎么写！
我的MSFlexGrid表中有11行，只存得第一行进ACCESS

追答

每次循环你的im就会组成一个插入的sql语句，然后通过 cn.Execute im 就会插入一条记录的，你没把cn.Execute im 放到循环外面去吧

Answer 2

Private Sub Command3_Click()
Dim im As String, i As Long
For i = 1 To MSFlexGrid2.Rows
If MSFlexGrid2.TextMatrix(i, 0) <> "" Then
im = "insert into 病历 (项目,中文名称,实验参考值,检验结果) "
im = im & "Values ('" & MSFlexGrid2.TextMatrix(i, 0) & "','" & MSFlexGrid2.TextMatrix(i, 1) & "','" & MSFlexGrid2.TextMatrix(i, 2) & "','" & MSFlexGrid2.TextMatrix(i, 3) & "')"
cn.Execute im
End If
Next i
MsgBox "病历已保存！！！", vbOKOnly, "信息提示"
End Sub

Answer 3

你怎么保存的说一下，在此基础上修改就是
欢迎追问，拒绝补充

追问

以上是我的保存语句！

追答

楼下说的很对