VB中怎麽複制SQL SERVER數庫據的表結構和數據到ACCESS數據庫?

Question

我需要用自己來創建表結構和複制數據,不能用什麽向導,不然也不用我寫這個程序了!

Answer 1

实际上DTS可以做到的 你用Dts生成一个Bak文件 然后用Vb调用这个Bak就可以了阿

Answer 2

其實簡單一點,就是怎麽判斷數據庫的每個字段的類型,名稱,長度, 是否主鍵, 然後在ACCESS 裏創建這個表結構!!!

Answer 3

小生說的不行的,要備份SQL SERVER數據庫是有可能改的,不是固定的,我是要做一個的備份SQL SERVER數據庫的程序

Answer 4

功能实现很难 SQL中有两个表syscolumns和Sysobjects分别存的是字段名称，和表名
Select * From sysobjects Where type='U'会找出所有的表名 然后再去查列名
然后用Con创建 
我只有这个方法了
抛砖引玉

Answer 5

SQL DMO啊，完全安裝SQL後，在安裝目錄下有示例代碼的。

Answer 6

vansoft(Vansoft Workroom ),能不能麻煩幫我貼一下代碼,謝謝!

Answer 7

For i = 0 To rs.Fields.Count - 1
 With rs.Fields(i)
  Debug.Print .Name
  Debug.Print FieldType(.Type)
  Debug.Print .DefinedSize
 End With
Next iPublic Function FieldType(intType As Integer) As String Select Case intType
Case adChar
FieldType = "adChar"
Case adVarChar
FieldType = "adVarChar"
Case adSmallInt
FieldType = "adSmallInt"
Case adUnsignedTinyInt
FieldType = "adUnsignedTinyInt"
Case adDBTimeStamp
FieldType = "adDBTimeStamp"
End SelectEnd Function
'Find Primary key
'ADOX:Dim cat As New ADOX.Catalog
Dim ndx As ADOX.Indexcat.ActiveConnection = "Provider=......"For Each ndx In cat.Tables(tablename).Indexes
    If ndx.PrimaryKey Then 
        Debug.Print "Primary Key:" & ndx.Columns(0).Name
        Exit For
    End If
Next