第一次使用，ADODB数据库调用老不成功，求指点

dljyh2009

求助：我想把“数据库编审项目.xlsm”工作簿下的“项目编审”工作表中， 条件符合“项目负责人”字段等于【贺玲】或“参与人”字段含有【贺玲】数据行,整行复制到"我的项目"工作表下。

Sub limonet()

    SQLname = Sheets("记录表√").[B3] '【贺玲】


     '从数据库中查找“项目负责人”字段等于【贺玲】或“参与人”字段含有【贺玲】,整行复制到"我的项目"工作表下
    Dim StrSQL$, Cn As Object
    Set Cn = CreateObject("ADODB.connection") '不需要引用ADO相关组件，直接使用CreateObject函数创建ADO对象
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName

    StrSQL = "Select b.* from [我的项目$]a Right Join [Excel 12.0;DataBASE=" & ThisWorkbook.Path & "\数据库编审项目.xlsm" & "].[项目编审$]b On  b.项目负责人= SQLname or InStr(b.参与人,SQLname)  " 'a为日志周报记录，b为编审项目管理

     Sheets("我的项目").Range("A" & Sheets("我的项目").Range("A" & Rows.Count).End(xlUp).Row + 1).CopyFromRecordset Cn.Execute(StrSQL)



End Sub

shiruiqiang

手机打字:where 项目负责人=“熊玲” or 参与人=“熊玲”  就行了吧？

dljyh2009

shiruiqiang 发表于 2024-4-1 06:17
手机打字:where 项目负责人=“熊玲” or 参与人=“熊玲”  就行了吧？

好的，我试试，谢谢谢谢

opiona

StrSQL = "Select b.* from [我的项目$]a Right Join [Excel 12.0;DataBASE=" & ThisWorkbook.Path & "\数据库编审项目.xlsm" & "].[项目编审$]b On  b.项目负责人= '" & SQLname & "' or InStr(b.参与人,'" & SQLname & "')  " 'a为日志周报记录，b为编审项目管理

变量要和SQL语句自身区分开  文本字段的 还要套一对单引号

shiruiqiang

近期也在学习sql语句

shiruiqiang

模块1中，稍微简单点

dljyh2009

我公司电脑中装的是WPS，没有安装EXCEXL，下列语句提示错误：   
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\数据库编审项目.xlsm"
怎么解决呀

zpy2

dljyh2009 发表于 2024-4-1 12:55
我公司电脑中装的是WPS，没有安装EXCEXL，下列语句提示错误：   
Cn.Open "Provider=Microsoft.ACE.OLEDB ...

安装驱动accessdatabaseengine或者在远程云端执行。

shiruiqiang

https://club.excelhome.net/thread-1635846-1-1.html
请注意: WPS只能使用 JET4.0   WPS不支持ACE12.0  
Rem Str_coon ="provider=Microsoft.JET.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\Info.mdb"

dljyh2009

shiruiqiang 发表于 2024-4-1 15:37
https://club.excelhome.net/thread-1635846-1-1.html
请注意: WPS只能使用 JET4.0   WPS不支持ACE12.0   ...

Rem Str_coon ="provider=Microsoft.JET.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\Info.mdb"
这行代码是绿色的，代表是注释，直接略过了，不执行呀