怎么用VB6.0连接excel实现添加修改删除查询功能

2025-02-28 22:20:00

推荐回答（2个）

回答1：

首先增加Excel 选项，工具->引用->Miscrosoft ActiveX
而后开始定义了：
Dim cnn As New ADODB.Connection
Dim rcd_adv As ADODB.Recordset
With cnn
.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & fpath & " ;extended properties=Text;"
.Open
End With
Set rcd_adv = cnn.Execute("select distinct [Advertiser] from [MonthlyDataClearup.csv] where [Group]=" & "'" & sitename & "'")
arr = rcd_adv.GetRows
arr_r = UBound(arr, 2)

这样就可以用了。同SQL语句一样的了。

回答2：

联系我，我会做

怎么用VB6.0连接excel实现添加 修改 删除 查询功能

怎么用VB6.0连接excel实现添加修改删除查询功能