注册 登录
编程论坛 VB6论坛

求助,VB6 使用 ADO 控件连接 excel2007,数据链接属性使用 Microsoft OLE DB provide for ODBC DRIVER,添

shuyuan 发布于 2014-05-28 09:39, 656 次点击
向excel最后一行接着添加一条记录,代码如下
Private Sub Command4_Click()

Dim sqlstr As String
sqlstr = " select * from [sheet1$]"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
Adodc1.Recordset.MoveLast
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0) = 90
Adodc1.Recordset.Fields(1) = 78
Adodc1.Recordset.Fields(2) = 79
Adodc1.Recordset.Update '//出错句
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh

End Sub
出现错误如下
实时错误'-2147467259(80004005)':
[Microsoft][ODBC Excel Driver]操作必须使用一个可更新的查询。
程序停止在Adodc1.Recordset.Update

请问使用sql语句能在vb里对excel进行添加、查询、删除等操作吗
1 回复
#2
chen35232014-05-28 13:26
2007没用过。
数据批量地导出到Excel在论坛的主页面可以搜索到,有现成的案例,改几个字符就只可以用了。
对特定表格输入对应的字符《VB精彩编程200例》有案例。

[ 本帖最后由 chen3523 于 2014-5-28 13:29 编辑 ]
1