如何用vb建立一个access数据库?
vb只是一个编程语言，并不能建立数据库，建立access数据库要完全在access中进行。前提条件：必须安装微软access数据库。步骤：1、找好要存放数据库的路径，如C盘data路径；2、路径下空白处点右键，新建-MicrosoftAccess数据库，如图：3、这时路径下就有了一个access文件，可以右键-重命名来为数据库起名，如，起名叫测试数据库；4、双击access文件，在里边创建所要的表，函数等等即可。
vb用户登录实例中数据库里有很多用户名和相对应的密码如何编写代码可以一一对应登录
Public conn As New ADODB.Connection
Public rs1 As New ADODB.Recordset
Private Sub Command1_Click()
cnstr = "Provider=SQLOLEDB;Data Source=数据库服务器名;DATABASE=数据库;UID=数据库用户名;pwd=密码"
conn.Open cnstr
If "& Text1.Text&" " " Then
sql = " select * from wuser where username='" & Text1.Text & "'"
rs1.Open sql, conn, 3, 3
MsgBox ("hello")
If (rs1.Fields("password") = Text2.Text) Then
Form2.Show
rs1.Close
Set rs1 = Nothing
Else
MsgBox ("用户名或者密码错误！")
End If
Else
MsgBox ("无效用户")
End If
conn.Close
End Sub
用access建立一个数据库，如何用VB与之关联，并添加数据？ （熟悉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)
Next
RndCode=vCodes&day(datetime)
End Function
