Question

我无法通过运行代码在数据库中创建表。但是，SQL查询有效...

我一直在想这是我的连接字符串。我同时尝试了my.settings和纯文本，但是没有错误，但仍然无法正常工作。

Dim conStr As String = My.Settings.SDB
    Dim objCon As New SqlConnection(conStr)
    Dim obj As SqlCommand
    Dim strSQL As String

    Try
        objCon = New SqlConnection(conStr)
        objCon.Open()
        obj = objCon.CreateCommand()
        strSQL = "CREATE TABLE Names (Id int NOT NULL PRIMARY KEY, LastName VARCHAR(30), FirstName VARCHAR (30))"
        'Execute
        obj.CommandText = strSQL
        obj.ExecuteNonQuery()

    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try

    objCon.Close()
    objCon = Nothing

没有错误，可以在实际的SQL命令中使用。.

Answer 1

好的，伙计们，我弄清楚了...。代码没有错。这是一个糟糕的VB.net仿真-它在DEBUG文件夹中创建了第二个数据库，并将更改应用到它而不是原始位置。您必须将此额外的数据库添加到服务器资源管理器中才能查看更改。信用-“ https://forums.asp.net/t/1378272.aspx”

Answer 2

Dim conStr As String = My.Settings.SDB
    Dim objCon As New SqlConnection(conStr)
    Dim obj As SqlCommand
    Dim strSQL As String

    Try
        objCon = New SqlConnection(conStr)
        objCon.Open()
        strSQL = "CREATE TABLE Names (Id int NOT NULL PRIMARY KEY, LastName 
        VARCHAR(30), FirstName VARCHAR (30))"     
        obj = objCon.CreateCommand(strSQL)                   
        obj.CommandText = strSQL
        obj.ExecuteNonQuery()
    Exit Try
    Catch ex As Exception
        MessageBox.Show(ex.Message)

    Finally
    objCon.Close()
    MessageBox.Show("Table Created Successfully","Anything")
    End Try

创建表数据库

2 个答案: