无法使用VB.net更新SQL Server

无法使用VB.net更新SQL Server,sql,sql-server,vb.net,Sql,Sql Server,Vb.net,代码中没有错误,ExecuteOnQuery也返回1,但我的数据库中没有记录。在关闭SqlConn之前,请尝试使用SqlDataReader提取插入的客户。可能您正在检查记录是否插入了错误的数据库。这种情况很常见。您的连接字符串是AttachDbFilename=| DataDirectory | EasyReserv.mdf。 这意味着您的程序使用的MDF文件位于替换字符串| DataDirectory |指向的文件夹中,该替换字符串为BIN\DEBUG或BIN folder,具体取决于您的应

代码中没有错误,ExecuteOnQuery也返回1,但我的数据库中没有记录。

在关闭SqlConn之前,请尝试使用SqlDataReader提取插入的客户。可能您正在检查记录是否插入了错误的数据库。

这种情况很常见。您的连接字符串是AttachDbFilename=| DataDirectory | EasyReserv.mdf。
这意味着您的程序使用的MDF文件位于替换字符串| DataDirectory |指向的文件夹中,该替换字符串为BIN\DEBUG或BIN folder,具体取决于您的应用程序是ASP.NET应用程序还是WinForms应用程序。插入按预期工作,但您的MDF文件已由服务器资源管理器连接到另一个目录(通常是项目文件夹)中。因此,如果使用服务器资源管理器查看数据库,则不会看到添加的记录。还要检查MDF文件的属性Copy To Output Directory是否设置为Never或Copy(如果较新),否则,在Visual Studio中调试时,您可能会在每次重新启动应用程序时丢失程序所做的所有更改

如果在插入后立即将customerID的数据类型更改为添加标识,然后查询作用域标识,会发生什么情况?数据库仍然未更新如何检查是否插入了记录还是不?您是否在VS IDE中使用服务器资源管理器查看表?如果是这样,服务器资源管理器使用的连接字符串与应用程序使用的连接字符串相同?在结束应用程序后,我会在数据库表中进行检查,不管怎样,问题已经解决。谢谢大家!
Imports System.Data
Imports System.Data.SqlClient

Public Class Reservation
   Dim sqlConn As SqlConnection

Private Sub Reservation_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    sqlConn = New SqlConnection("Data Source=(LocalDB)\v11.0;AttachDbFilename=|DataDirectory|EasyReserv.mdf;Integrated Security=True")
End Sub

Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
    Dim addSQL As String = "INSERT INTO CUSTOMER (  customerID, name, contactNumber, email ) VALUES (1, 'James', '012444444','james@gmail.com')"
    Dim addCmd As SqlCommand = New SqlCommand(addSQL, sqlConn)
    sqlConn.Open()
    addCmd.ExecuteNonQuery()
    sqlConn.Close()
End Sub

End Class
    Try
        If con.State = ConnectionState.Open Then con.Close()
        con.Open()
        global_command = New SqlCommand("UPDATE products_tbl set running_no = '" & txt_running.Text & "' where template_code = 'n'and prod_no = '" & txt_product.Text & "'", con)
        global_command.ExecuteNonQuery()
        global_command.Dispose()

        MsgBox("Successfully updated!", MsgBoxStyle.Information, "Message")
        where = vbNullString

    Catch ex As Exception
        MsgBox("Trace No 4: System Error or Data Error!" + Chr(13) + ex.Message + Chr(13) + "Please Contact Your System Administrator!", vbInformation, "Message")
    End Try


End Sub