项目复制后，flexgrid控件不显示表格，数据文件保存在data.mdb中，路径设置正确。
这是连接代码：
Function getRS(Byval sql)
Dim cnstr,cn,rs
Dim is_sql
cnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\SYJ_DongY\VB\DataShengli.mdb;Persist SecuritY Info=False"
Is_sql=Trim(sqL)
Set cn=CreateObject("ADODB.Connection")
cn.ConnectionString=cnstr
cn.open
‘Set command=CreateObject("ADODB.Command")
‘command.ActiveConnection=cn
‘command.CommandText=is_SQl
Set rs=CreateObject("ADODB.Recordset")
rs.open is_sql,cn,3,2,1
Set getRS=rs
End Function
图片说明：
最佳答案
为何在 WinCC 的图形设计器中不能使用部分被安装的微软 ActiveX 控件？
https://support.industry.siemens.com/cs/cn/zh/view/32433778
提问者对于答案的评价：
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc367125.html
微信扫一扫 
支付宝扫一扫