纯TC 用com ADODB 创建Access数据库 创建数据库表 源码

a837198

通过ado来创建的

目前自己先实现部分内容


对于数据库内容读取 修改 删除  请使用     tc4   会员.数据库（）   tc5 数据库（）    这个函数操作


下面附上源码



根据  vbs的一个范例 来慢慢制作一点的

1. 一、创建数据库范例
   
2. 如下代码显示如何通过 Create 方法创建新的 Jet 数据库。
   
3. 
   
4. Sub CreateDatabase()
   
5. 
   
6. Dim cat As New ADOX.Catalog
   
7. cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"
   
8. 
   
9. End Sub
   
10. 二、创建表范例
    
11. Sub CreateTable()
    
12. 
    
13. Dim tbl As New Table
    
14. Dim cat As New ADOX.Catalog
    
15. 
    
16. '打开目录。
    
17. ' 打开目录。
    
18. cat.ActiveConnection = _
    
19. "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    
20. "Data Source=c:\Program Files\Microsoft Office" & _
    
21. "Office\Samples\Northwind.mdb;"
    
22. 
    
23. tbl.Name = "MyTable"
    
24. tbl.Columns.Append "Column1", adInteger
    
25. tbl.Columns.Append "Column2", adInteger
    
26. tbl.Columns.Append "Column3", adVarWChar, 50
    
27. cat.Tables.Append tbl
    
28. 
    
29. End Sub
    
30. 三、创建索引范例
    
31. 如下代码演示如何创建新的索引。索引针对表的两个列建立。
    
32. 
    
33. Sub CreateIndex()
    
34. 
    
35. Dim tbl As New Table
    
36. Dim idx As New ADOX.Index
    
37. Dim cat As New ADOX.Catalog
    
38. 
    
39. ' 打开目录。
    
40. ' 打开目录。
    
41. cat.ActiveConnection = _
    
42. "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    
43. "Data Source=c:\Program Files\Microsoft Office" & _
    
44. "Office\Samples\Northwind.mdb;"
    
45. 
    
46. ' 定义表并将其追加到目录
    
47. tbl.Name = "MyTable"
    
48. tbl.Columns.Append "Column1", adInteger
    
49. tbl.Columns.Append "Column2", adInteger
    
50. tbl.Columns.Append "Column3", adVarWChar, 50
    
51. cat.Tables.Append tbl
    
52. 
    
53. ' 定义多列索引
    
54. idx.Name = "multicolidx"
    
55. idx.Columns.Append "Column1"
    
56. idx.Columns.Append "Column2"
    
57. 
    
58. ' 将索引追加到表上
    
59. tbl.Indexes.Append idx
    
60. 
    
61. End Sub
    
62. 四、创建关键字范例
    
63. 如下代码演示如何创建新的外部关键字。假定已存在两个表（Customers 和 Orders）。
    
64. 
    
65. Sub CreateKey()
    
66. 
    
67. Dim kyForeign As New ADOX.Key
    
68. Dim cat As New ADOX.Catalog
    
69. 
    
70. cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    
71. "Data Source=c:\Program Files\Microsoft Office" & _
    
72. "Office\Samples\Northwind.mdb;"
    
73. 
    
74. kyForeign.Name = "CustOrder"
    
75. kyForeign.Type = adKeyForeign
    
76. kyForeign.RelatedTable = "Customers"
    
77. kyForeign.Columns.Append "CustomerId"
    
78. kyForeign.Columns("CustomerId").RelatedColumn = "CustomerId"
    
79. kyForeign.UpdateRule = adRICascade
    
80. cat.Tables("Orders").Keys.Append kyForeign
    
81. End Sub

复制代码

OOOO

赞一个

wanghq

顶一个

rainshine

adostream真尼玛是个神器，大爱

a837198

rainshine 发表于 2014-11-28 21:20
adostream真尼玛是个神器，大爱

对呀  在vb就是用那个ado的呢

madwinder

这么好的帖子怎么没人顶。

q120629070

需要啊~!!!!!!!!!!!!!!!

adwnjt

好东西，谢谢

youcai

建设方的咖啡机打扫房间的吉林省地方