lsSQL = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & GetOrderPath & "\ordreprt.mdb"
Set cn = New ADODB.Connection
cn.Open lsSQL
If cn.State = adStateOpen Then
lsSQL = "select PACK_CLASS_CODE,PACK_CLASS_NAME,PACK_CODE,PACK_NAME,L1_QNT,L2_QNT from SP_IN where csCRRKey like '" & csKey & "#'"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.Open lsSQL, cn
End If
其中
lsSQL = "select PACK_CLASS_CODE,PACK_CLASS_NAME,PACK_CODE,PACK_NAME,L1_QNT,L2_QNT from SP_IN where csCRRKey like '" & csKey & "#'"
是要查询Access 2000表中的csCRRKEY 字段的值,字段是文本型的,比如csCRRKEY字段值为:345,csKey的值一定是34;为2456时,csKey的值一定是245,这个应该怎么查询,
我不知道用#,*,还是%?
Set cn = New ADODB.Connection
cn.Open lsSQL
If cn.State = adStateOpen Then
lsSQL = "select PACK_CLASS_CODE,PACK_CLASS_NAME,PACK_CODE,PACK_NAME,L1_QNT,L2_QNT from SP_IN where csCRRKey like '" & csKey & "#'"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.Open lsSQL, cn
End If
其中
lsSQL = "select PACK_CLASS_CODE,PACK_CLASS_NAME,PACK_CODE,PACK_NAME,L1_QNT,L2_QNT from SP_IN where csCRRKey like '" & csKey & "#'"
是要查询Access 2000表中的csCRRKEY 字段的值,字段是文本型的,比如csCRRKEY字段值为:345,csKey的值一定是34;为2456时,csKey的值一定是245,这个应该怎么查询,
我不知道用#,*,还是%?
解决方案 »
- 使用InternetReadFile如何加入字符串结束符,如C语言中的'\0'
- 已知3个点如何在picturebox里绘制坐标图
- 急求:后面的sr初始值是多少?
- 为什么当前对话框响应keydown事件时,无论按下什么键,都传回的keycode值呢?对话框没有ok和cancel按钮,郁闷中。。。。
- 郁闷死了
- 在vb中使用ADO调用数据库时,出现这样一个错误:ISAM无发插入,如何解决?请高手指路!
- 在VB中用ADO如何访问NT服务器上的SQL SERVER等数据库?(急)
- VB可不可以判断两条线是否相交?
- 在VB60中如何引入excel工作簿
- ftp的api调用,在本地可以,远程就不行
- 急问:VB中如何触发自定义的事件???
- 用wininet.dll的api函数ftp连接后,可以取到文件的大小吗?
like '" & csKey & "%'"我用下面的代码能不能保证有记录时,rs.recordcount>0?
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.Open lsSQL, cn
我用下面的代码能不能保证有记录时,rs.recordcount>0?
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.Open lsSQL, cn