mwfd.net
当前位置:首页 >> vB读取ACCEss数据库 >>

vB读取ACCEss数据库

dim conn As New ADODB.Connection dim ConnString As String dim sql as string Dim rs As New ADODB.Recordset ConnString = "provider=microsoft.jet.oledb.4.0;" & _ "data source=" & App.Path & "\数据库名.mdb;Jet OLEDB:Database

Set dbs = OpenDatabase(App.Path + "\APP\TL.mdb") 参数不对:workspace.OpenDatabase(数据库名,打开模式,是否只读,连接字符串) Set dbs=Workspaces(0).OpenDatabase(App.Path+"\APP\TL.mdb",False,False,"MS Access;

推荐两种方法给你,下面两个例子都可以将ACCESS数据库中的全部表名写入列表框,请更换为实际数据库路径名,供楼主参考 方法一 Private Sub Form_Load() Dim cn As New ADODB.Connection '声明并实例化一个ADO连接对象 Dim cnStr

一:建立一个access型数据库,并在数据库中创建新表即为附加表.通过设置 附加表的各属性值,使其与你所要访问的数据库建立链接关系.程序代码如下: dimdbasdatabase dimtdasnewtabledef setdb=opendatabase("mydb.mdb") td.

连接access数据库,从msysobjects表中读取所有表名,查询语句可以参考:select name from msysobjects where type=1 and flags=0

给你举两个简单的VB读取ACCESS数据库的代码:最简单的打开数据表代码:docmd.OpenTable "表名"查询数据内容就得用到SQL语句:docmd.RunSQL "SELECT * FROM 表名"

dim conn as new adodb.connectiondim rs as new adodb.recordsetdim pstr as stringdim dataname as string private sub command3_click()dataname = "date.mdb路径"pstr = "provider=microsoft.jet.oledb.4.0;" & "data source=" &

在data1已经有数据的情况下:List1.AddItem Data1.Recordset("字段名")或List1.AddItem Data1.Recordset(0) '取第一个字段的值

首先,我们需要引用ADO.具体的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",这里的"*.*"是指的时ADO的版本号,一般来说,利用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新

如果RS为查询返回的记录集,则用rs.Fields("名字").Value 获取名字字段值,依次类推

网站首页 | 网站地图
All rights reserved Powered by www.mwfd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com