Синтаксическая ошибка при создании таблицы

Question

Когда я использую этот код для создания таблицы в моем доступе db, я получаю сообщение об ошибке, сообщающее, что в моем создающем предложении есть синтаксическая ошибка Что я делаю неправильно.

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() 

Если вы получаете любой ошибки, пожалуйста, напишите

Буду рад помочь.

С уважением.