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

ilovejijun 2004-09-03 03:31:00
VB 与ACCESS中的窗体怎样进行连接??
...全文
387 点赞 收藏 20
写回复
20 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
楼主是说,VB如何调用 "Access里面的窗体"。
我也不会,顶一下。
回复
cqm2099 2004-09-12
up
回复
RUKYO 2004-09-04
打开Access帮助于搜索栏输入 vba
回复
ahaisoft 2004-09-04
大家没用过Access吗
楼主是说,VB如何调用Access里面的窗体。
我不会,顶一下。
回复
daryl715 2004-09-03
不明白您说什么?
回复
XmagicX 2004-09-03
输入我要与Access连接
回复
yelang771 2004-09-03
up
回复
andyfr1210 2004-09-03
楼主是不是说在vb中用程序来运行Access呀?
回复
haohaohappy 2004-09-03
可以和DATAGRID控件和MSFLEXGRID等许多控件连接,只要把他们的datasource设为连接数据库的数据源就行了.
回复
zoco33 2004-09-03
data控件的basename = app.path & "路径"
data.recordrouce = 表名 / SQL 等
adodata,和dao 等都类似。
回复
RUKYO 2004-09-03
vb连接access?
回复
LGYAN 2004-09-03
楼主也不说明白点?猜心思呢
回复
flyingbird_zz 2004-09-03
关注
回复
apple1980 2004-09-03
具体?
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-09-03 03:31
社区公告
暂无公告