如何修复此访问代码

Posted 2023-05-07

【中文标题】如何修复此访问代码

【英文标题】：How do I fix this Access code

【发布时间】：2016-06-21 19:35:43

【问题描述】：

我有多个人连接到我的 Access 数据库，如果两个人碰巧同时搜索，我会收到错误消息。所以我这样做是为了修复它，它减少了很多错误，但有时我仍然会得到它。有没有更好的办法？我很确定我不应该像这样使用 try catch 。

public partial class Form2 : Form

    private OleDbConnection connection = new OleDbConnection();
    public Form2()
    
        InitializeComponent();
        connection.ConnectionString = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=S:\Documents\2015\Db12.accdb";
        System.Data.OleDb.OleDbConnection conn = new System.Data.OleDb.OleDbConnection();
        conn.ConnectionString = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=S:\Documents\2015\Db12.accdb";
    
    protected override void WndProc(ref Message m)
    
        base.WndProc(ref m);
        if (m.Msg == WM_NCHITTEST)
            m.Result = (IntPtr)(HT_CAPTION);
    

    private const int WM_NCHITTEST = 0x84;
    private const int HT_CLIENT = 0x1;
    private const int HT_CAPTION = 0x2;

    private void lRead(string query, ListBox lbox)
    
        OleDbCommand command = new OleDbCommand();
        command.Connection = connection;
        command.CommandText = query;
        OleDbDataReader reader = command.ExecuteReader();
        try
        
            while (reader.Read())
            
                lbox.Items.Add(reader["UAS"].ToString());
            
        
        catch (Exception ex)
         MessageBox.Show("error LREAD" + ex); 
        finally
        
            if (reader != null)
             reader.Dispose(); 
        
    


    private void textBox1_TextChanged(object sender, EventArgs e)
    

        try
        
            connection.Open();
            listBox1.Items.Clear();
            lRead($"select * from Table1 where UAS Like '%textBox1.Text%'", listBox1);
            lRead($"select * from Table1 where Customer Like '%textBox1.Text%'", listBox1);
            lRead($"select * from Table1 where Description Like '%textBox1.Text%'", listBox1);
            lRead($"select * from Table1 where Detail Like '%textBox1.Text%'", listBox1);
            //select * from SomeTable Where SomeColumn Like '* PARMA *' dont use * use % 
            connection.Close();
        
        catch
        
            System.Threading.Thread.Sleep(500);
            try
            
                connection.Open();
                listBox1.Items.Clear();
                lRead($"select * from Table1 where UAS Like '%textBox1.Text%'", listBox1);
                lRead($"select * from Table1 where Customer Like '%textBox1.Text%'", listBox1);
                lRead($"select * from Table1 where Description Like '%textBox1.Text%'", listBox1);
                lRead($"select * from Table1 where Detail Like '%textBox1.Text%'", listBox1);
                //select * from SomeTable Where SomeColumn Like '* PARMA *' dont use * use % 
                connection.Close();
            
            catch
            
                System.Threading.Thread.Sleep(500);
                try
                
                    connection.Open();
                    listBox1.Items.Clear();
                    lRead($"select * from Table1 where UAS Like '%textBox1.Text%'", listBox1);
                    lRead($"select * from Table1 where Customer Like '%textBox1.Text%'", listBox1);
                    lRead($"select * from Table1 where Description Like '%textBox1.Text%'", listBox1);
                    lRead($"select * from Table1 where Detail Like '%textBox1.Text%'", listBox1);
                    //select * from SomeTable Where SomeColumn Like '* PARMA *' dont use * use % 
                    connection.Close();
                
                catch
                

                    MessageBox.Show("Error too many People Searching ");
                

            

        

【问题讨论】：

“这不是错误”“它出错了”。当问题出现时肯定会发生一些事情，您可以分享。

1) 从字符串注入更改为参数，2) 捕获特定异常，而不是捕获任何异常并假设问题是“连接的用户过多”3) 处理用using 块包围你的连接和命令。 4) 完成所有这些后，发布 exact 异常，包括消息和位置，以隔离问题。

@cFrozenDeath 根本不是真的。 Access 可以处理许多同时连接。如果您有超过 20-30 个，那么这将开始超出 Access 的能力范围。不过两个人，应该没问题。

"i get an error" - 另外，您忘记了实际描述错误的部分。 "i am pretty sure i shouldn't be using try catch like this" - 不，你不应该。因为您的catch 块忽略实际异常。忽略错误是一种糟糕的解决方法。

@Brad 你说得对，我对 Access 的连接限制感到困惑

【参考方案1】：

这些行没有任何用处。您分配一个新的 OleDbConnection() 然后让它超出范围。连接是一种有限的资源，不要使用你不会使用的资源。

System.Data.OleDb.OleDbConnection conn = new System.Data.OleDb.OleDbConnection();
        conn.ConnectionString = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=S:\Documents\2015\Db12.accdb";

线条

private OleDbConnection connection = new OleDbConnection();
connection.ConnectionString = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=S:\Documents\2015\Db12.accdb";

应该移到实际访问数据库的方法中。因为连接是有限的资源，所以它们实现了IDisposable。任何实现 IDisposable 的东西都应该使用using statement 来确保尽快释放相关资源。您可能会限制您的并发性，因为您在这里没有这样做。相反，您会在表单的整个生命周期内保持连接，以及垃圾收集器清理表单所需的时间。

在textBox1_TextChanged 中，您多次重复相同的代码。这很容易出错（如果您在一个地方更改代码但忘记在其他地方进行更改怎么办）。如果您需要这种重试逻辑，请使用循环。另外，我建议您稍微随机化您的睡眠时间，以便收到错误的多个用户在重试之前不会全部睡眠完全相同的时间段。将您的连接分配也移到此方法中，以便您在尽可能短的时间内保持连接。

到目前为止的 cmets 也很有用。我不会在这里重复这个建议。

【讨论】：

谢谢，这是一个很好的开始，每个人的建议都非常有帮助，请尝试一下，我很感激能帮助一个菜鸟。