VB+Access，在已有的数据库中新建表

Question

本帖最后由 bcrun 于 2013-04-19 08:25:05 编辑

Answer 1

你没有引用Microsoft ADO Ext. 2.8 for DDL and Security

Answer 2

引用Microsoft ActiveX Data Object [版本号,比如2.8或2.7等] Library
数据库字段名最好用英文写Dim cn As New ADODB.Connection
Dim sql As String
        cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\data\SJSC.mdb;persist security info=false")
        sql = "Create Table “ & text2.text & "试题(id  Counter,题号 short,题型 text,题目 text,分值 short,难度 text,知识点 text,所在章节 text,答案 text,状态 short,Constraint StatePrimary Primary key (id)) "
        cn.Execute(sql)
        cn.Close()

Answer 3

需要引用 ADOX 或 DAO 来做。用它们不仅可以建表，甚至可以在已有的表中新增字段。

Answer 4

关于"Application.StartupPath",请问您这用的是哪个库

Answer 5

疏乎了，忘改过来
cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Microsoft Visual Studio\VB98\试卷生成系统代码\SCSJ.mdb;persist security info=false")