VB .NET 中的数据库访问失败（没有任何错误消息）

Question

我正在创建一个带有数据库的 VB .NET 项目，我希望通过 app.config 的参考来配置连接字符串。问题是我的项目运行很好 - 成功创建数据库连接，成功关闭连接，甚至假装插入也成功 - 但最终没有任何反应，因为最终结果没有任何东西进入数据库..我已经使用 Module.vb 使用全局 codes.Here 是我的代码。

app.config

    <?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <configSections>
    </configSections>
    <connectionStrings>
        <add name="dbstrc" connectionString="Data Source=(LocalDB)\v11.0;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True"
            providerName="System.Data.SqlClient" />
    </connectionStrings>
    <startup>
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
    </startup>
</configuration>

现在module.vb

    Imports System.Data.SqlClient
Imports System.Data
Imports System.Configuration

Module MyModule
    Public conn As New SqlConnection
    Public da As New SqlDataAdapter
    Public dt As New DataTable
    Public cmd As New SqlCommand

    Public Sub connect()
        conn = New SqlConnection
        conn.ConnectionString = ConfigurationManager.ConnectionStrings("dbstrc").ConnectionString
        Try
            conn.Open()
            MsgBox("connection success")

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try



    End Sub
End Module

最后 form.vb

Imports System.Data.SqlClient
Imports System.Data

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        connect()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim str As String
        str = "INSERT INTO tsttbl(Id,Name) VALUES('" & tb1.Text.Trim & "','" & tb2.Text.Trim & "')"
        cmd = New SqlCommand(str, conn)

        If cmd.ExecuteNonQuery() > 0 Then
            MsgBox("successfully entered")
            clrentry()
        Else
            MsgBox("errorrr!!")
        End If
        conn.Close()

    End Sub

    Public Sub clrentry()
        tb1.Text = ""
        tb2.Text = ""
        'connect()
    End Sub
End Class

简而言之，该项目没有给出连接错误或执行错误，但仍然没有在我的数据库中插入值（即使它显示成功消息 "successfully entered"expected after successful execution as per my code )

感谢任何帮助。

Answer 1

您的值确实已插入数据库中，该数据库是安装在您计算机上的软件的本地副本，并且该数据仅可用于已安装应用程序的那个实例。所以您可能会想数据的去向但正如 jmcilhinney 所说，数据被插入到数据库的本地实例中。而且数据也只能用于特定的应用程序实例，因为它是本地数据库。

VB .NET 中的数据库访问失败（没有任何错误消息）

Database access failure in VB .NET (without any error message)

.net

vb.net

database-connection

visual-studio-2012