首页编程正文内容

VB对Microsoft Access数据库的运用代码

编程

更新时间：2026-04-03 22:25:49 69

admin 管理员组

文章数量: 1184232

2024年1月23日发(作者：enable怎么用)

VB对Microsoft Access数据库的调用管理

.用VB6.0计算机编程语言，和Microsoft Access的数据库建立连接。以便对VB窗口控键，通过VB编程代码对Access数据库进行读取，存储，修改，编辑，管理和计算。（基本功能如下图）

编辑窗体界面及所需参数设计：VB窗体界面编辑及所需参数设计是下面相应控件属性及编程的基础和前提，.通过VB软件的工程下拉菜单的引用命令

实现VB和Microsoft Access的数据库建立连接，以便进一步通过VB界面来对数据库的进一步操作。

具体对数据库的一般操作：首记录；上记录；下记录，末记录及搜索，修改，保存，新增记录等功能的详细VB代码如下：

Public mydb As Database

Public myrs As Recordset

Dim step1 As Integer

Private Sub Timer1_Timer()

Call mymove

End Sub

Public Sub mymove()

+ 50 * step1

If + 1 * > Then

step1 = -1

ElseIf < 0 Then

step1 = 1

End If

End Sub

Private Sub Command10_Click()

End Sub

Private Sub Command11_Click()

End Sub

Private Sub Form_Load()

Dim i As Single

Set mydb = OpenDatabase( + "合同数据库.mdb")

Set myrs = cordset("合同数据库", dbOpenDynaset)

d = False

step1 = -1

al = 100

= ""

End Sub

Private Sub Command1_Click() '首记录

Dim nm As String

Dim nm1 As String

Dim nm2 As String

d = False

d = True

d = False

d = True

d = False

d = True

rst

Call shuchu

End Sub

Private Sub Command2_Click()

Dim nm As String

Dim nm1 As String

'上记录

Dim nm2 As String

d = False

d = True

evious

If Then

rst

d = False

Else

' evious

End If

Call shuchu

' m (1)

End Sub

Private Sub Command3_Click() '下记

录

Dim nm As String

Dim nm1 As String

Dim nm2 As String

d = False

d = True

If Then

d = False

End If

If Then

d = False

End If

Call shuchu

End Sub

Private Sub Command4_Click()

Dim nm As String

Dim nm1 As String

Dim nm2 As String

d = False

d = True

'末记录

d = True

d = False

'd = False

Call shuchu

End Sub

Private Sub Command6_Click()

询

Dim findph As String

Dim nm As String

Dim nm1 As String

Dim nm2 As String

d = False

findph = InputBox("请输入合同号=", "按合同号搜索")

If findph <> "" Then

findph = "合同号='" & findph & "'"

'findph = "IP地址='" & findph & "'"

rst (findph)

If h Then

快速查 '

MsgBox "没有相应合同号的资料记录", vbInformation, "信息"

Else

Call shuchu

End If

End Sub

Private Sub Command13_Click()

d = True

= ""

'新增记录

d = False

MsgBox "现在你可以填写数据了，填写完毕后确定请按保存按钮",

vbInformation, "系统提示"

End Sub

Private Sub Command12_Click() '编辑

MsgBox "现在你可以修改数据了，修改完后确定请按保存按钮",

vbInformation, "系统提示"

d = True

End Sub

Private Sub Command8_Click() '重新输入

= ""

End Sub

Private Sub Command9_Click()

'保存

("合同号") =

("ID号") =

("产品类型") =

("产品代号") =

("定货数") =

("单价") =

("收到合同日期") =

("交货日期") =

("图纸投入生产日期") =

("完成人员") =

("备注") =

("Order NO") =

("产品净重") =

("客户代码") =

MsgBox "合同资料记录保存成功", vbInformation, "信息"

d = True

'd = True

d = False

End Sub

Private Sub Command5_Click()

End

End Sub

Public Sub shuchu() ' 输出子程序

Dim xx As String

Dim yy As String

Dim kk As String

Dim ph As Single

= (0)

= (1)

= (2)

= (4)

= (5)

= (6)

= (7)

= (9)

= (8)

= (3)

= (10)

= (11)

= (12)

= (13)

End Sub

本文标签：数据库记录产品修改编程

版权声明：本文标题：VB对Microsoft Access数据库的运用代码内容由网友自发贡献，该文观点仅代表作者本人，转载请联系作者并注明出处：http://www.roclinux.cn/b/1705984534a496698.html，本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。