从文本框的文本命名访问表 [英] Naming a access Table From textbox's text

问题描述

我正在尝试在数据库中创建新的访问表，但是当我尝试从文本框中命名它时出现错误

I am Trying to create New access table in a database but when i try to name it from text box it is giving an error

Sub CreateTable()

Sub CreateTable()

 Dim strCreate As String = "CREATE TABLE" & TxtBoxTblName.Text &(" & _
    "CountryName varchar(120) Primary key," & _
    "Continent Integer," & _
    "Area Long," & _
    "Population Long," & _
    "Capital varchar(80)," & _
    "Code char(2));"


    Dim conDatabase As OleDbConnection = New OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;" & _
    "Data Source=""Data Source=" & filename & ".mdb;")
    Dim cmdDatabase As OleDbCommand = New OleDbCommand(strCreate, conDatabase)
    conDatabase.Open()
    cmdDatabase.ExecuteNonQuery()
    conDatabase.Close()
    MessageBox.Show("Table Created Sucessfully")
End Sub

推荐答案

我猜你错过了这一行中的 " "CREATE TABLE" & TxtBoxTblName.Text &(" &; _ 并且这些在 CREATE TABLE 关键字之后没有空格也会产生错误.所以它应该是 "CREATE TABLE " & TxtBoxTblName.Text &"(" &; _ 查看不同之处这里 或试试下面的代码

I guess you missed a " in this line "CREATE TABLE" & TxtBoxTblName.Text &(" & _ and these in no space after CREATE TABLE keyword that will also yields error. so it should be "CREATE TABLE " & TxtBoxTblName.Text &"(" & _ See the difference here or try below code

Dim STR_DDL As String
STR_DDL = "CREATE TABLE #TABLENAME# (CountryName varchar(120) Primary key,Continent Integer,Area Long,Population Long,Capital varchar(80),Code char(2));"
STR_DDL.Replace("#TABLENAME#", Trim(TxtBoxTblName.Text))

OR

使用复合格式

Dim STR_DDL As String = String.Format("CREATE TABLE {0} (CountryName varchar(120) Primary key " & _
                                ",Continent Integer,Area Long,Population Long,Capital varchar(80) " & _
                                ",Code char(2));", Trim(TxtBoxTblName.Text))

{0} 是 TxtBoxTblName.Text

并使用它

Dim cmdDatabase As OleDbCommand = New OleDbCommand(STR_DDL , conDatabase)

这篇关于从文本框的文本命名访问表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！