当前位置：首页 > 培训职业 > 正文

用access建立一个数据库，如何用VB与之关联，并添加数据

给你个思路：

1、access数据库设计（直接有access设计即可）：[id][机器码][防伪码]

2、生成防伪码：首先利用adodb连接数据库，设计个随机函数，添加文本框jiqima，fangweima，在jiqima中输入产品的特征码，利用者md5函数（网上有）生成唯一的防伪码；如果没有产品区分的特征码可以使用随机数函数生成一个。

3、查询界面：利用adodb的find语句可以查询。可以在网上搜下adodb的使用方法

以下是部分代码

*添加数据到数据库

Data1.Recordset.FindFirst "[机器码]='" & fangweima.text & "'"

If Data1.Recordset.NoMatch Then

Data1.Recordset.AddNew

Data1.Recordset.Fields("[机器码]") = jiqima.text

Data1.Recordset.Fields("[防伪码]") = fangweima.text

Data1.Recordset.Update

else

msgbox("该数据已存在数据库中",“警告”)

End If

*查询源码

Data1.Recordset.FindFirst "[防伪码]=‘“ & chaxun.text & ”’"

If Data1.Recordset.NoMatch Then

msgbox("该产品不是正品",“警告”)

else

msgbox("该产品是正品",“恭喜”)

end if

*随机数

Function RndCode()

CodeSet = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"

AmountSet = 62

Randomize

Dim vCode(30), vCodes

vCodes="A"

For i = 0 To 30

vCode(i) = Int(Rnd * AmountSet)

vCodes = vCodes & Mid(CodeSet, vCode(i) + 1, 1)

RndCode=vCodes&day(datetime)

End Function