Public Function GetRecordset(ByRef strSql As String, ByRef strErrMsg As String, ByRef rs As Recordset) As Boolean
On Error GoTo ERR_CONN
ConnectToDatabase
Set rs = g_Conn.Execute(strSql) '执行strSql语句
'根据是否出错,返回给调用者相应的信息
If err.Number = 0 Then
GetRecordset = True
Else
' strErrMsg = Err.Description
GetRecordset = False
' Call ErrStringShow(strErrMsg)
End If
Exit Function
ERR_CONN:
ErrStringShow err.Source & err.Description
End Function
在上面的语句里,
如果
strSql="SELECT customers.customerID AS searchID, customers.customerName AS searchName
FROM customers
WHERE (((customers.customerID) Like '*01*'))"
则出来的Recordset.recordcount 总是为0如果
strSql="SELECT customers.customerID AS searchID, customers.customerName AS searchName
FROM customers"
则出来的Recordset.recordcount 不为0请各位师兄指点,谢谢!
On Error GoTo ERR_CONN
ConnectToDatabase
Set rs = g_Conn.Execute(strSql) '执行strSql语句
'根据是否出错,返回给调用者相应的信息
If err.Number = 0 Then
GetRecordset = True
Else
' strErrMsg = Err.Description
GetRecordset = False
' Call ErrStringShow(strErrMsg)
End If
Exit Function
ERR_CONN:
ErrStringShow err.Source & err.Description
End Function
在上面的语句里,
如果
strSql="SELECT customers.customerID AS searchID, customers.customerName AS searchName
FROM customers
WHERE (((customers.customerID) Like '*01*'))"
则出来的Recordset.recordcount 总是为0如果
strSql="SELECT customers.customerID AS searchID, customers.customerName AS searchName
FROM customers"
则出来的Recordset.recordcount 不为0请各位师兄指点,谢谢!
解决方案 »
- 请高手帮帮我看怎么回事啊?急啊!救我啊!
- vb调用vc编写的com问题
- 如何引入datagrid
- 为什么BitBlt函数vb不认啊?
- 在VB中如何在代码中进行数据绑定???
- setup factory打包的安装程序为什么注册字体时无响应?
- 很菜的问题!!!quick basic 转换为VB???
- 在不知道IP的情况下怎么获得局域网的所有机器。。
- 她别闪,你也别闪-------------------------------
- javascript中调用vb用户控件接口函数???
- VB6: 同一TreeView1如何实现CLICK出现不同的事件?
- 将同一个文件用放在不同的文件夹下用regsvr32.exe分别注册多次,效果是什么?是全部生效还是最后一次生效呢?
strSql="SELECT customers.customerID AS searchID, customers.customerName AS searchName
FROM customers
WHERE (((customers.customerID) Like '%01%'))"