关于VB MSHFlexGrid 保存数据的问题

gao20060214 2015-08-23 08:31:04
我用ADO把数据从Access数据库 读取到Mshflexgrid表中,在Mshflexgrid中修改数据后,保存回Access数据库时出现报错:


代码如下:
Private Sub Command3_Click()
Dim i As Integer
Dim j As Integer
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "/数据库.mdb"
rs.Open "Select * from 表1", cnn, 1, 3

With MSHFlexGrid1
cnn.Execute "update 表1 set 序号 = " & .TextMatrix(.Row, 2) & ",车型 = " & .TextMatrix(.Row, 4) & " where id = " & .TextMatrix(.Row, 1) & ""
End With

End Sub

求各位老师帮忙指点下问题出在哪里了~
(好像只能保存数字类型的。。。)
...全文
85 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
gao20060214 2015-08-25
谢谢,搞定了~
回复
Tiger_Zhao 2015-08-24
SQL 的字符串值两边要加单引号。
    Dim sql As String
sql = "update 表1 set " & _
"序号 = " & .TextMatrix(.Row, 2) & ", " & _
"车型 = '" & .TextMatrix(.Row, 4) & "' " & _
"where id = " & .TextMatrix(.Row, 1)
Debug.Print sql '可以用这个输出到查询分析器中找错'
cnn.Execute sql
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2015-08-23 08:31
社区公告
暂无公告