'取某数据库下的数据表

原创 2004年07月14日 01:49:00

'
'取某数据库下的数据表
'函数名:GetDbTabS
'参数:  DBconn ADO连接
'返回值:包含数据表的字符串数组
'例:    TabArr=GetDbTabS(P_CNN)

Public Function GetDbTabs(ByRef DBconn As ADODB.Connection) As String()
   Dim RstSchema As ADODB.Recordset
   Dim strCnn As String
   Dim ReturnVal() As String
   Dim ReID As Long
  
   On Error Resume Next
  
   Set RstSchema = DBconn.OpenSchema(adSchemaTables)
  
   Do Until RstSchema.EOF
      If UCase$(Left$(RstSchema.Fields("TABLE_TYPE"), 3)) <> "SYS" Then
            ReID = ReID + 1
            ReDim Preserve ReturnVal(ReID)
            ReturnVal(ReID - 1) = RstSchema.Fields("TABLE_NAME") ' & ":" & RstSchema!TABLE_TYPE
      End If
      RstSchema.MoveNext
   Loop
   RstSchema.Close
   Set RstSchema = Nothing
   GetDbTabs = ReturnVal
End Function

 

 

'列出所有的表名
Private Sub Command2_Click()
    Dim TableName As String
    Set rs = conn.OpenSchema(adSchemaTables)
    Do While Not rs.EOF
        TableName = rs.Fields("TABLE_NAME")
        List1.AddItem TableName
        rs.MoveNext
   Loop
End Sub

Private Sub Form_Load()
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/db.mdb;Persist Security Info=False"
    conn.Open
    rs.Open "select * from  info", conn, adOpenKeyset, adLockOptimistic
 End Sub

取ACCESS表名.
'-----------------------------------------------
引用.
Microsoft Activex Data Objects 2.5 Library
Microsoft Ado Ext 2.6 For DDL And Security
'=====================================================
Public mCon As ADODB.Connection
Public mCat As ADOX.Catalog

Public DB_Name As String
Public DB_Title As String


Private Sub Command1_Click()
    Dim I As Long
    Dim TBL As ADOX.Table
   
    If Not mCon Is Nothing Then Set mCon = Nothing
    Set mCon = New ADODB.Connection
   
    mCon.Provider = "Microsoft.Jet.OLEDB.4.0"
    mCon.Mode = adModeRead
    mCon.CursorLocation = adUseClient
    mCon.Properties("Data Source") = "E:/WORKSHAR/CODE.MDB"
    mCon.Properties("Jet OLEDB:Database Password") = ""
    mCon.Open
   
    Set mCat = New ADOX.Catalog
    mCat.ActiveConnection = mCon
   
    For Each TABL In mCat.Tables
        Debug.Print TABL.Name
    Next
End Sub

 

数据库和数据表的操作

本博客主要对数据库和数据库中表的常见操作进行总结。同时也简单介绍了数据库中事务处理和预编译。...
  • wangligong
  • wangligong
  • 2016年09月01日 00:12
  • 967

Java 爬取信息存入数据库

功能包括抓取新闻信息,保存在数据库中,并根据请求返回相应数据。这里我选取的新闻来源是一点资讯(主要是他的API比较容易获取),抓取和解析选取Jsoup+Gson.运行采取Schedul 定时运行爬虫脚...
  • ldhj1993
  • ldhj1993
  • 2017年05月23日 20:50
  • 460

怎么取出数据库中表的数据生成XML文件

//ReadFrData.java package com.xie.xmlparse.dom4j; import java.sql.Connection; import java.sql.Pre...
  • chenjing_blog
  • chenjing_blog
  • 2016年05月17日 21:16
  • 2149

PHP语言建立数据库和数据表(完整版)

弄了一下午和一晚上,终于把这个给弄对了。。。。
  • zl_666
  • zl_666
  • 2016年07月22日 21:35
  • 886

获取数据库表及表结构

原文:http://www.cnblogs.com/StrangeCity/p/4352753.html 此例子,博主将使用SQL Server 2008 R2 做数据库,使用Winform做工具...
  • Joyhen
  • Joyhen
  • 2015年03月21日 10:59
  • 4189

织梦常用数据库表介绍

提示:常用字段,可以在dede后台->系统->SQL命令行工具,执行sql语句来批量修改 dede_addonarticle   附加文章表    aid  int(11)  文章编号  ...
  • zwfang57
  • zwfang57
  • 2013年06月21日 11:49
  • 2391

MediaWiki数据库表

在安装MediaWiki时,安装脚本会执行包中的tables.sql来创建数据表。根据安装时选择的数据库类型,程序会选择对应路径下的文件: 如果使用Maria/MySQL,选择的文件路径为maint...
  • wangnan537
  • wangnan537
  • 2014年07月21日 23:21
  • 6621

数据表分区策略及实现(一)

什么是表分区?表分区其实就是将一张大数据量表中的数据按照不同的分区策略分配到不同的系统分区、硬盘或是不同的服务器设备上,实现数据的均衡分配,这样做的好处是均衡大数据量数据到不同的存储介子中,这样每个分...
  • why_2012_gogo
  • why_2012_gogo
  • 2016年05月24日 18:37
  • 2675

mysql 数据库表结构设计与规范

mysql 数据库表结构设计与规范DDL(data difinition language)就是数据定义语言。1.sql语句的界定符[code]– 默认情况下” ; ” 代表sql语句的结束 del...
  • qq632544991p
  • qq632544991p
  • 2017年06月06日 15:00
  • 869

数据库的case when 使用实例

需求很简单,我有一个部门和部门的请假申请表。表数据简单罗列如下:申请信息存放在sqxx这张表中,然后存放了zybm和zybm对应的部门信息,有个部门表bmxx,想查询开始结束时间间隔为半天的(时差小于...
  • sushengmiyan
  • sushengmiyan
  • 2016年01月06日 19:37
  • 3297
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:'取某数据库下的数据表
举报原因:
原因补充:

(最多只允许输入30个字)