VB 与ACCESS中的窗体怎样进行连接？？

ilovejijun 2004-09-03 03:31:00

...全文

420 20 打赏收藏转发到动态举报

写回复

用AI写文章

20 条回复

切换为时间正序

请发表友善的回复…

发表回复

longgen 2004-10-08

打赏
举报

VB+ACCESS 吗？我不知道是否回是答非所问反正你看看吧
那在下就简单的介绍这里的原理了……

===========================第一部分===========================================

逻辑：[vb应用程序]-→[ODBC数据源]-→[ACCESS 2000数据库]

===========================第二部分===========================================
'[vb应用程序] 代码段: (程序的画面看最底下吧)

Option Explicit

'定义ADODB对象的记录集
Dim 记录集 As New ADODB.Recordset

'定义ADODB连接的对象名称为’连接‘
Private 连接 As ADODB.Connection

Private Sub form_Load()

'定义连接字符串
Dim 连接字符串 As String

'定义[命令]为ADODB的命令字符串
Dim 命令 As New ADODB.Command

Set 连接 = New ADODB.Connection

连接字符串 = "dsn=add;" '这里的add是你在ODBC-系统DSN 中的设置

'按照[连接字符串]的内容连接数据库
连接.ConnectionString = 连接字符串

连接.Open

'查询数据表[采购]的内容----这个是你自己ACCESS数据库里的表名

With 命令
.ActiveConnection = 连接
.CommandType = adCmdTable
.CommandText = " 采购 "
End With

With 记录集
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockPessimistic
.Open 命令
End With

'定义3个文本框的数据源为[记录集]
Set Text1.DataSource = 记录集
Set Text2.DataSource = 记录集
Set Text3.DataSource = 记录集

'以下是数据库[采购表]中的字段，简单的说就是列
Text1.DataField = "订货处理日"
Text2.DataField = "管理号"
Text3.DataField = "厂家编号"

End Sub

Private Sub 末记录_Click()
记录集.MoveLast
记录集.Update
End Sub

'这是 VB的可是界面中的按钮（这你应该知道吧)
Private Sub 上记录_Click()
记录集.MovePrevious
If 记录集.BOF Then
记录集.MoveFirst
记录集.Update
End If
End Sub

Private Sub 首记录_Click()
记录集.MoveFirst
记录集.Update
End Sub

Private Sub 退出_Click()
连接.Close
Set 连接 = Nothing
Unload Me
End Sub

Private Sub 下记录_Click()
记录集.MoveNext
If 记录集.EOF Then
记录集.MoveLast
记录集.Update
End If
End Sub
==============================[ODBC数据源] 部分==========================================
接下来是 [ODBC数据源] 部分了

你要在 [我的电脑]-[控制面板]-[管理工具]-[数据源 (ODBC)]-[系统DSN]-[添加]
添加一个 [Microsoft access driver(*.mdb)] 然后在这个向导中加上你建立的数据库
还有就是一定要在VB的[工程]中[引用] Microsoft ActiveX Data Objects 2.5 Library !!!
执行程序就应该是 OK 了!
============================================结束=========================================

ryuginka 2004-10-07

打赏
举报

我做过VBA(ACCESS 2000),不过没有用VB调用过.

flyingbird_zz 2004-10-07

打赏
举报

Function OpenOhterMDB()
Dim objApp As New Access.Application
objApp.OpenCurrentDatabase CurrentProject.Path & "\sample.mdb"
objApp.DoCmd.OpenForm "newform"
End Function

RUKYO 2004-09-13

打赏
举报

没搞过Access的vba,下载一本书看看吧：
http://book.ddvip.net/SoftView/SoftView_824.html

汪譢晾 2004-09-13

打赏
举报

楼上说的很清楚
也可以通过数据源来实现
ado
dao 都可以

Andy__Huang 2004-09-12

打赏
举报

Private Sub Form_Load()
Dim strConn As String
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\North.mdb;Persist Security Info=False"
pubConn.Open strConn

rsTable.CursorLocation = adUseClient
strSQL = "select * from TableName"
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rsTable

End Sub

apple800 2004-09-12