'取某数据库下的数据表

原创 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

 

数据库:读取指定表的所有列名&读取指定表某一列的所有数据

读取指定表的所有列名:         SELECT COLUMN_NAME FROM USER_TAB_COLUMNS WHERE TABLE_NAME = '表名' ORDER BY COLUMN...
  • skyxmstar
  • skyxmstar
  • 2017年02月16日 15:02
  • 926

mysql遍历某一数据库的某张表的所有字段进行操作

写了一个存储过程,参数是输入数据库名称和表名称,然后对该表的所有字段进行操作,过程如下: BEGIN #将表格中含有\N的值置为空 DECLARE table_column VARCHAR(64...
  • linzhaogui
  • linzhaogui
  • 2018年01月04日 13:54
  • 241

数据库和数据表的操作

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

删除某数据库下的所有表

应用场景:升级ACCESS数据库到MSSQL数据库,ID自增需要调整为跟ACCESS数据库中的自增字段一样的编号,导致需要不断的添加记录跟删除表重新测试. 技术要点:SQL游标和变量使用。 ...
  • zhou316814572
  • zhou316814572
  • 2015年05月05日 15:18
  • 357

检测数据库中是否存在某一张表

import java.sql.Connection; import java.sql.DriverManager; import java.sql.PreparedStatement; import...
  • tengdazhang770960436
  • tengdazhang770960436
  • 2014年03月11日 09:38
  • 840

(Mysql 二)Linux C语言显示mysql数据库中某个表的数据

我会先帖简单的带注释的代码,再详细解释 首先,看一下Linux下Mysql数据库的数据,最后再用程序打印出来 从上图我们可以看出,在一个名为 test数据库中,有一个名为 Msg的表..并且表...
  • u014453898
  • u014453898
  • 2017年01月20日 02:21
  • 454

从数据表中随机抽取n条数据的几种方法

1、"SELECT * FROM table ORDER BY RAND() LIMIT n"; 2、"SELECT *, myrand as RAND() FROM table ORDER BY ...
  • chuann
  • chuann
  • 2018年01月09日 10:57
  • 62

计算数据库某一列的和

private void button3_Click(object sender, EventArgs e)         {             string cardName = com...
  • heyongluoyao8
  • heyongluoyao8
  • 2011年10月21日 14:50
  • 1088

数据库存储和索引

数据库存储和索引 一、数据库的介绍 二、数据库的存储 三、数据库索引的分类...
  • a380880304
  • a380880304
  • 2015年11月19日 13:16
  • 1756

获取一张表中某个字段最大值的一条记录

--获取一张表中某个字段最大值的一条记录 select * from service_item  a    where service='20039700100698845113440400'  ...
  • luofuIT
  • luofuIT
  • 2015年03月12日 12:51
  • 1433
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:'取某数据库下的数据表
举报原因:
原因补充:

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