苹果代购官网网址:【Access小品】逸马杀犬于道---代码简化示例
来源:百度文库 编辑:九乡新闻网 时间:2024/04/27 23:49:16
[模块/函数] 【Access小品】逸马杀犬于道---代码简化示例 [复制链接]
todaynew- 发短消息
- 加为好友
- 威望
- 173 点
- 金钱
- 6802 ¥
- 最后登录
- 2011-2-19
- 注册时间
- 2008-10-31
- 帖子
- 2068
- 精华
- 2
- 积分
- 10657
- 阅读权限
- 100
- UID
- 144436
版主
1# 发表于 7 天前 |只看该作者 |倒序浏览 |打印 .pcb{margin-right:0} 相传欧阳修任职翰林院时,一次与三个下属出游,忽见路旁有匹飞驰的马踩死了一只狗。一人曰:“有黄犬卧于道,马惊,奔逸而来,蹄而死之”,另一人曰:“有黄犬卧于通衢,逸马蹄而杀之。”,第三人曰:“有犬卧于通衢,逸马遭之而毙。” 欧阳修曰:“‘逸马杀犬于道’,六字足矣!”今有版友名草儿者做一函数五十余句,老汉观之甚为繁琐,便颇不以为然,便递次简化,终以三句搞定。
草儿同志原函数如下:
Public Function GetBarCode(BarCode As String, Optional A1 As String = "*", Optional A2 As String = "%") As String
'用查找数据库中"Usys商品信息全部"表中商品条码或商品编码
On Error GoTo GetRs_Error
Dim StrQuery As String '变量SQL查询语句
Dim Rs As New ADODB.Recordset '新建Recordset对象
Dim Conn As New ADODB.Connection '新建Connection对象
'用于将"%"字符转变成"*"
Dim i As Integer
Dim B, C As String
C = ""
BarCode = Trim(BarCode)
For i = 1 To Len(BarCode)
B = CStr(Mid(BarCode, i, 1)) '返回符串中左边第I起后的1个字符
If B = A1 Then B = A2 '将*改为%用于SQL查询
C = C & B
Next i
BarCode = C
Set Conn = CurrentProject.Connection '打开当前连接
GetBarCode = 0
'先查询编码
StrQuery = "Select 商品条码, 商品编码 FROM Usys商品信息全部 Where (((商品编码) Like '" & BarCode & "')) orDER BY 停产 DESC , 促销 DESC , 销售 DESC , 采购 DESC , 登记日期 DESC;"
Rs.Open (StrQuery), Conn, adOpenForwardOnly, adLockBatchOptimistic
If Not Rs.EOF Then
With Rs
GetBarCode = Rs(0)
End With
Else '查询条码前面部分可不输入
StrQuery = "Select 商品条码 FROM Usys商品信息全部 Where (((商品条码) Like '%" & BarCode & "')) orDER BY 停产 DESC , 促销 DESC , 销售 DESC , 采购 DESC , 登记日期 DESC;"
'Rs.Close
Rs.Open (StrQuery), Conn, adOpenForwardOnly, adLockBatchOptimistic
If Not Rs.EOF Then
With Rs
GetBarCode = Rs(0)
End With
Else
'查询名称是否包涵字符
StrQuery = "Select 商品条码, 商品名称 FROM Usys商品信息全部 Where (((商品名称) Like '%" & BarCode & "%')) orDER BY 停产 DESC , 促销 DESC , 销售 DESC , 采购 DESC , 登记日期 DESC;"
' Rs.Close
Rs.Open (StrQuery), Conn, adOpenKeyset, adLockBatchOptimistic
If Not Rs.EOF Then
With Rs
GetBarCode = Rs(0)
End With
Else
GetBarCode = "1" '查无记录返回 “1”
End If
End If
End If
Rs.Close
Getrs_exit:
Set Rs = Nothing
Set Conn = Nothing
Exit Function
GetRs_Error:
GetBarCode = "2" '错误返回 “2”
MsgBox (Err.Description)
Resume Getrs_exit
End Function
------------------------------------------------------------------------------------------------
1、简单一些可以:
Public Function GetBarCode(BarCode As String) As String
Dim Rs As New ADODB.Recordset
Dim StrQuery As String
StrQuery = "Select 商品条码,商品编码,商品名称 FROM Usys商品信息全部"
Rs.Open StrQuery, CurrentProject.Connection, adOpenForwardOnly, adLockBatchOptimistic
Rs.Find "商品编码 Like '" & BarCode & "'"
If Rs.EOF = False Then
GetBarCode = Rs(0).Value
Else
Rs.MoveFirst
Rs.Find "商品条码 Like '%" & BarCode & "'"
If Rs.EOF = False Then
GetBarCode = Rs(0).Value
Else
Rs.MoveFirst
Rs.Find "商品名称 Like '%" & BarCode & "%'"
If Rs.EOF = False Then
GetBarCode = Rs(0).Value
Else
GetBarCode = "1"
End If
End If
End If
Rs.Close
Set Rs = Nothing
End Function
-----------------------------------------------------------------------------------------------
2、再简单一些可以:
Public Function GetBarCode(BarCode As String) As String
Dim Rs As New ADODB.Recordset
Dim StrQuery As String
StrQuery = "Select 商品条码,商品编码,商品名称 FROM Usys商品信息全部 "
StrQuery = StrQuery & " where 商品编码 Like '" & BarCode & "' or 商品条码 Like '%" & BarCode & "' or 商品名称 Like '%" & BarCode & "%'"
Rs.Open StrQuery, CurrentProject.Connection, adOpenForwardOnly, adLockBatchOptimistic
If Rs.EOF = False Then
GetBarCode = Rs(0).Value
Else
GetBarCode = "1"
End If
Rs.Close
Set Rs = Nothing
End Function
-----------------------------------------------------------------------------------------------
3、还想简单一些可以:
Public Function GetBarCode(BarCode As String) As String
Dim Rs As New ADODB.Recordset
Dim StrQuery As String
StrQuery = "Select 商品条码,商品编码,商品名称 FROM Usys商品信息全部 "
StrQuery = StrQuery & " where 商品条码 & 商品编码 & 商品名称 Like '%" & BarCode & "%'"
Rs.Open StrQuery, CurrentProject.Connection, adOpenForwardOnly, adLockBatchOptimistic
If Rs.EOF = False Then
GetBarCode = Rs(0).Value
Else
GetBarCode = "1"
End If
Rs.Close
Set Rs = Nothing
End Function
-------------------------------------------------------------------------------------------------
4、最后终极简单的可以:
Public Function GetBarCode(BarCode As String) As String
dim str as string
str="商品条码 & 商品编码 & 商品名称 Like '*" & BarCode & "*'"
GetBarCode=Nz(Dlookup("商品条码","Usys商品信息全部",str),"1")
End Function
-------------------------------------------------------------------------------------------------
5、世界末日般的简单可以:
dim str as string
str="商品条码 & 商品编码 & 商品名称 Like '*" & BarCode & "*'"
str=Nz(Dlookup("商品条码","Usys商品信息全部",str),"1")
【Access小品】逸马杀犬于道---代码简化示例
【Access小品】2009年作品集
常用VB操作ACCESS数据库代码-1
图片各种移动代码汇编及示例
java自定义监听器的示例代码
jquery的FormValidator 的示例代码非常好的
做好博客10大代码,非常实用 (有示例参考)
思想小品:忠实于自己(转)
Access概述
oracle access
哲理小品:平常心是道
汉字简化
简化生活
简化生活~~
简化技术指标
简化人生
简化太极拳
jsp_ajax示例
示例程序
教案示例
拍照示例
八门奇遁示例
用Access 2000进行班级管理 [Access]
Access教程 第一章 Access数据库基础1