我直接用 ado 的,你可以试试啦!
Public Function read_data(tread_lb As String, tgrid As MSHFlexGrid, tsql9 As String) '////////读取 数据Dim str9 As String
Dim coon9 As Connection
Dim rs9 As Recordset
Set coon9 = New Connection
for_public.connect
coon9.Open stb
Set rs9 = New Recordset
rs9.Open tsql9, coon9, adOpenDynamic, adLockOptimistic
Select Case tread_lb
Case "读取客户资料" With tgrid
Set .DataSource = rs9
.Refresh
Set .DataSource = Nothing
End With
End Selectrs9.Close
Set rs9 = Nothing
coon9.Close
Set coon9 = Nothing
End Function
Public Function read_data(tread_lb As String, tgrid As MSHFlexGrid, tsql9 As String) '////////读取 数据Dim str9 As String
Dim coon9 As Connection
Dim rs9 As Recordset
Set coon9 = New Connection
for_public.connect
coon9.Open stb
Set rs9 = New Recordset
rs9.Open tsql9, coon9, adOpenDynamic, adLockOptimistic
Select Case tread_lb
Case "读取客户资料" With tgrid
Set .DataSource = rs9
.Refresh
Set .DataSource = Nothing
End With
End Selectrs9.Close
Set rs9 = Nothing
coon9.Close
Set coon9 = Nothing
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货