wdjh.net
当前位置:首页 >> vB获取ACCEss数据库表名 >>

vB获取ACCEss数据库表名

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

//C#获取Access数据库中的所有表名和列名 string ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + @"Data Source=E:\report20100819\report20100819.mdb"; OleDbConnection Conn = new OleDbConnection(ConnectionString); Conn.Open...

楼主可以访问本人的百度空间文章 “VB将ACCESS数据库中的所有表名加载到列表框里”。那里列举了两种解决方案及有关代码,相信能帮到你。 获取某张表的所有字段名可以参考我的以下知道回答 http://zhidao.baidu.com/question/1239443077603133139.h...

'添加引用Microsoft ActiveX Data Object 2.8 LibraryPrivate Sub Command1_Click() Dim Rs As ADODB.Recordset Dim Cn As ADODB.Connection Set Cn = New ADODB.Connection '假设123.mdb在C:\下,根据你的文件位置修改以下语句 Cn.Open "Provid...

首先要在工程的引用中选上Microsoft ActiveX Data Objects 2.5 Library 然后在事件中就可以定义相关的变量进行连接了 下面的例子可能对您有用: Private Sub Command1_Click() Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset ...

Dim TableSet As ADODB.Recordset Dim Gconnection As ADODB.Connection Sub getTableName() Set Gconnection = New ADODB.Connection Gconnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Redeem.mdb;Persist Security Info=False...

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

Private Sub Command1_Click() Dim db As New ADODB.Connection, RS As New ADODB.Recordset Dim strSQL As String db.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);dbQ=" & App.Path & "\*.mdb" '数据库在程序目录中 db.Conne...

access数据库中所有的表名都存在一个叫做MSysObjects的表中了,所以在这个表中查询就可以了。以下是代码: Dim L_dadap As New OleDb.OleDbDataAdapter("select * from MSysObjects ", L_conn) Dim L_dtable As New DataTable L_dadap.Fill(L_dt...

'修改表名要引用.Microsoft ADO Ext. 2.X for DDL and Security Private Sub Command1_Click() Dim db As New ADODB.Connection db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\database.mdb" db....

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