Question

当我使用此代码在我的访问数据库中创建一个表时，我收到一条错误消息，指出我的创建语句中存在语法错误我做错了什么。

Dim min_path As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().CodeBase)
Dim min_path_trimmed As String = Replace(min_path, "file:\", "")

Dim SQL As String
Dim objCmd As New OleDbCommand
Dim Con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + min_path_trimmed + "\db.mdb")
SQL = "CREATE TABLE Names (LastName VARCHAR(30), FirstName VARCHAR (30))"
Con.Open()
objCmd = New OleDbCommand(SQL, Con)
objCmd.ExecuteNonQuery()
Con.Close()
MsgBox("Table has been created")

Answer 1

尝试从

更改您的查询

SQL = "CREATE TABLE Names (LastName VARCHAR(30), FirstName VARCHAR (30))"

到

SQL = "CREATE TABLE Names (LastName Text(30), FirstName Text(30))"

Answer 2

嗨，这是在数据库中创建表的方法

    Dim databaseName As String = "D:\NewDB.mdb"

    Dim tableName As String = "Employee"


    Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NewDB.mdb")

    con.Open()

    Dim dbSchema As DataTable = con.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, tableName, "TABLE"})

    con.Close()


        Dim cmd As New OleDb.OleDbCommand("CREATE TABLE [" + tableName + "] ([EmpName] TEXT(10), [EmpAddress] TEXT(10))", con)

        con.Open()

        cmd.ExecuteNonQuery()

        MessageBox.Show("Table Created Successfully")

        con.Close()

如果您有任何错误，请随时回复

我很乐意提供帮助。

问候。

create table上的语法错误

2 个答案: