1

我已将访问数据库作为数据源添加到我的项目中。所以我得到了自动生成的 tableadapters 类，因此可以访问包含连接字符串的表适配器实例。我正在使用它来打开与我的数据库的连接，这样我就可以首先删除一些记录，然后用新记录替换它们。查询似乎有效，因为.executenonquery确实返回了受影响的行。我什至尝试了一个delete *命令来确定。但是，当我打开数据库时，一切都是一样的。我对为什么有一些想法。我认为 tableadapter 返回的连接字符串可能很愚蠢，因为它包含指向项目数据目录的通用指针。

提供者=Microsoft.Jet.OLEDB.4.0；数据源=| DataDirectory |\DupeMDB.mdb;Persist Security Info=True

我还认为我的构建操作或复制到输出目录可能有问题。我真的不明白这两件事背后的机制。我认为也许复制到输出目录的事情可能是罪魁祸首。

这是我的目标。我想将此项目部署给我的秘书，以便她可以使用该程序来处理重复的记录列表等。数据必须与程序一起使用。我想将此.mdf文件与部署一起打包，并在她完成后从她那里取回。我已经接近尾声了（写回桌子）。有谁知道为什么表不会更新？

    Dim Connector As DupeTblTableAdapter = New DupeTblTableAdapter
    Dim Conn As New System.Data.OleDb.OleDbConnection
    Conn = Connector.Connection
    Conn.ConnectionString = Connector.Connection.ConnectionString
    MsgBox(Conn.ConnectionString)
    Dim Comm As System.Data.OleDb.OleDbCommand

    Conn.Open()
    For Each DR In DeleteRecords
        Comm = New System.Data.OleDb.OleDbCommand($"DELETE from DupeTbl where DupeTbl.CUST_NO={DR.ToString}", Conn) '
        Dim aff As Integer = Comm.ExecuteNonQuery
        'MsgBox(aff)
        Comm = Nothing
    Next
    For Each RR In ReplaceRecords
        Comm = New System.Data.OleDb.OleDbCommand($"INSERT INTO DupeTbl ( CUST_NO, PREDIR, POSTDIR, SUFFIX, CUSTSIZE, AddFlag, IgnoreRecord ) VALUES ({RR.Cust_No}, '{RR.PreDir}', '{RR.PostDir}', '{RR.Suffix}', {RR.Size}, {RR.AddFlag}, {RR.Ignore});", Conn)
        Comm.ExecuteNonQuery()
        Comm = Nothing
    Next

    Conn.Close()
4

2 回答 2

0

这种情况下的问题通常是在每次构建时都会覆盖工作数据库。将本地数据文件添加到项目时，它会作为源文件添加到项目文件夹中。默认情况下，该Copy to Output Directory属性设置为Copy Always。这意味着每次构建项目时（每次更改代码并默认运行项目时都会发生这种情况），源文件将被复制到输出文件夹中工作数据库的顶部，从而消除任何更改你在调试时做的。为了防止这种情况，将该属性更改为Copy if Newer，这意味着只有在您对源数据库进行更改（例如修改架构）时才会覆盖工作数据库。

于 2015-09-22T22:58:53.667 回答
0 
   Dim Connector As DupeTblTableAdapter = New DupeTblTableAdapter
    Dim Conn As New System.Data.OleDb.OleDbConnection
    Conn = Connector.Connection
    Conn.ConnectionString = Connector.Connection.ConnectionString
    MsgBox(Conn.ConnectionString)
    Dim Comm As System.Data.OleDb.OleDbCommand

    Conn.Open()
    For Each UR In UpdateRecords
        Comm = New System.Data.OleDb.OleDbCommand($"UPDATE DupeTbl  SET CUST_NO = <NewValue>, PREDIR = <NewValue, POSTDIR = <NewValue> etc. where DupeTbl.CUST_NO={DR.ToString}", Conn) '
        Dim aff As Integer = Comm.ExecuteNonQuery
        'MsgBox(aff)
        Comm = Nothing
    Next

    Conn.Close()
于 2015-09-22T13:27:55.207 回答