VB如何取得SQLServer数据表中的列名及属性，并在本地Access中创建数据库表

Question

我要用VB在SQLServer数据库的表中读取其列名及列属性，并在本地Access数据库中创建一个相同的数据表，该如何做？

Answer 1

先连接SQL，从SQL逐个表读取   得到列名   属性不懂~
然后连接Access  创建表
如果楼主是想把数据库从SQL转换成Access   是有其他方法的
http://bbs.blueidea.com/viewthread.php?tid=740203&page=

Answer 2

A)直接用 SQL Server 自己的导出，选择不包含数据方式。
B)用 ADOX 可以取得数据库的表、字段等定义。
C)读取 sysobjects 和 syscolumns 系统表，里面有 SQL Server 关于表、字段的定义。

Answer 3

SQLServer 在服务器端，Access是在本地，我的意思是在程序中能够动态的读取出SQLServer数据库中的表名以及表内的字段和字段属性，然后在本地Access数据库中建立起相应的数据表，并希望在将来使用时能够进行两种数据库数据的互倒。
因为SQLServer数据库中的表可能是变化的:即可能在使用过程中会添加某张表，而这张表在系统使用时能够在本地建立起相同的表。2楼的方法我使用了，但是效果不是太好，因为字段类型在两种数据库中不太相同，望高手能给点思路。
谢谢

Answer 4

systypes 中也不过是二十几个类型，难道连用 SELECT CASE 做对应转换都懒得写？

Answer 5

可用ADO的OpenSchema方法来获取表结构信息，下面是一个不完善的提示性的示例：'获取所有用户表
Sub GetTableStructured()
    Dim cn As ADODB.Connection
    Dim rsTable As ADODB.Recordset
    Dim rsField As ADODB.Recordset
    Dim StrConnect As String
    Dim i As Long
    
    StrConnect = "Provider = SQLOLEDB.1;Persist Security Info = False;" & _
       "User ID = sa;Password = MOFZaCW3Ob;Data Source = 192.168.0.179;" & _
       "Initial Catalog = TEST"
    Set cn = New ADODB.Connection
    'cn.Mode = adModeShareDenyWrite
    cn.Open StrConnect
    
    Set rsTable = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
    While Not rsTable.EOF
        Debug.Print "TableName : " & rsTable!TABLE_NAME
        Set rsField = cn.Execute("Select top 1 * From " & rsTable!TABLE_NAME)
        While Not rsField.EOF
            For i = 0 To rsField.Fields.count - 1
                Debug.Print "  FieldName : " & rsField.Fields(i).Name; _
                    "       FieldType : " & rsField.Fields(i).Type
            Next
            rsField.MoveNext
        Wend
        rsTable.MoveNext
    Wend以上表的字段名称，类型OpenSchemae都可以获取，以及索引主键等信息，具体参考ADO手册...

Answer 6

rs.open "select * from tab",conn,1,1
for i=0 to rs.fields.count
debug.print rs.fields(i).name
next