我想用access创建一个自己部门的数据库,用vb如何连接,制作表单

Public rs As New adodbRecordset '过程变量

Public cn As New adodbConnection '过程变量

Public Sub connDB()

Set cn = New adodbConnection

cnConnectionString = "Provider=MicrosoftJetOLEDB40;Data Public rs As New ADODBRecordset

Public cn As New ADODBConnection

Public Sub connDB()

Set cn = New ADODBConnection

cnConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\存数据的文件夹\Access的名mdb;Persist Security Info=False"

cnOpen

Set rs = New ADODBRecordset

rsOpen "select from 数据库名", cn, adOpenDynamic, adLockOptimistic

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As String

Do While Not rsEOF

a = rs("用户帐号")

b = rs("用户密码")

If a = Text1 Then

If b = Text2 Then

Unload Me

Form2Show

Exit Sub

Else

MsgBox "密码错误!"

Exit Sub

End If

End If

rsMoveNext

Loop

MsgBox "用户名错误"

End Sub

记得要在"工程"--->"引用"里选中Micosoft ActiveX Data Objects 21 Library 还有它自动选的你不要管

窗体2你就按数据库设计 再调用一次数据库 (关键是路径要对)

over!

答案：（属性curvature设置为99 backcolor）

(1)命令按扭Command1的事件代码:

ThisformTimer1Enabled=T

(2)命令按扭Command2的事件代码:

ThisformTimer1Enabled=F

(3) 表单Form1的Init事件：

ThisformTimer1Interval=500

ThisformTimer1Enabled=F

(4) 计时器Timer1的Timer事件：

IF ThisformShape1Top=0

ThisformShape1Top=ThisformHeight-ThisformShape1Height

ELSE

ThisformShape1Top=0

ENDIF

ThisformRefresh

以上就是关于我想用access创建一个自己部门的数据库,用vb如何连接,制作表单全部的内容，包括:我想用access创建一个自己部门的数据库,用vb如何连接,制作表单、数据库表单设计、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！