如何新建一个表

Question

使用vb+access如何用程序在一个已经存在的mdb文件里添加表？

Answer 1

create table 表名(列名 int)用ADO编程，建一个连接cn：
     cn.Execute（"create table 表名(列名 int)"）

Answer 2

Dim Conn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
sql = "provider=microsoft.jet.oledb.3.51;data source=c:/mdb"
Conn.Open sql
rs1.Open "CREATE TABLE 表名(列名 int)"，Conn, 3, 1

Answer 3

Dim cn As New ADODB.Connection'你的连接 可直接用Adodc生成(必须是有效的连接）
cn.Open "provider=microsoft.jet.oledb.3.51;data source=c:\test.mdb"cn.Execute（"create table 表名(列名 int)"）

Answer 4

看一下TSQL的CREATE TABLE语法吧

Answer 5

Dim MyTable As TableDef, MyField As Field
        Dim MyDatabase As Database
        Set MyDatabase = CreateDatabase(cProgramPath + "\Trade.mdb", dbLangGeneral, dbEncrypt)
        Set MyTable = MyDatabase.CreateTableDef("System")
        Set MyField = MyTable.CreateField("APPLNAME", dbText, 100)     '项目名称
        MyTable.Fields.Append MyField
        Set MyField = MyTable.CreateField("SERVERNAME", dbText, 15)    '服务器名称
        MyTable.Fields.Append MyField
        Set MyField = MyTable.CreateField("LOGONNAME", dbText, 15)     '数据库用户
        MyTable.Fields.Append MyField
        Set MyField = MyTable.CreateField("PASSWORD", dbText, 15)      '数据库口令
        MyTable.Fields.Append MyField
        Set MyField = MyTable.CreateField("DATANAME", dbText, 15)      '数据库名称
        MyTable.Fields.Append MyField
        MyDatabase.TableDefs.Append MyTable
        'MyDatabase.NewPassword "", "allway"
        MyDatabase.Close