在Access中试试DeepSeek

最新推荐文章于 2025-04-23 09:51:50 发布

原创最新推荐文章于 2025-04-23 09:51:50 发布 · 611 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#access #vba #access开发 #excel #数据库

Access开发同时被 3 个专栏收录

126 篇文章

订阅专栏

vba

108 篇文章

订阅专栏

Excel

16 篇文章

订阅专栏

hi，大家新年好呀！

这个新年，大家都胖了几斤呢？新的一年又开始了先祝大家新年快乐，巳巳如意！

最近一段时间，DeepSeek非常的火，我当然也试用了一下，感觉确实不错，那我们在Access中该怎么使用呢？今天我们就来给大家讲讲，同时，我们也一起来看看它的性能到底有多强！

01、先提一个需求

既然，我们需要用到AI了，那我们肯定是让它帮我们生成代码了，在生成之前，我们先要想好，我们需要做啥？那我们就让他帮我们做一个新增编辑的代码吧！

02、生成SQL语句

需求我们有了，那就可以问AI了，我们先让它用SQL语句帮我们生成几张表。

具体的对话如下：

在生成时，我选择了R1大模型，他有很长的一段思考过程，截图时把这个给折叠了

03、测试SQL语句

代码它给我们生成好了，接下去我们就可以来测试了，很简单，我们在Access中新建一个查询，并且打开SQL视图，然后粘贴代码，运行一下就可以了。

CREATE TABLE 客户信息表 (
    ID COUNTER PRIMARY KEY,
    客户代码 TEXT(50),
    客户名称 TEXT(50),
    客户简称 TEXT(50),
    备注 MEMO
);

注：我的截图可能与你的会有一些不同，因为我的是office365版本，最新的Access中SQL的编辑界面更新了！

运行后，并没有报错，且表也生成成功了！

04、生成VBA代码

接着，我们就要来生成新增、编辑代码了，但我在生成代码时，出现了“服务器繁忙，请稍后再试”的错误，在尝试了数次之后，我去掉了R1的选项，最终代码生成了，部分截图：

05、运行测试

代码生成了，我们就可以来测试一下了。

我们可以新建一个窗体，在窗体上放上两个按钮，一个是DAO，一个是ADO。

接着，我们只需要在两个按钮的单击中去调用AI生成的过程就可以了。

生成的代码：

使用 DAO 新增和编辑记录

Sub DAO_AddAndEditCustomer()

    Dim db As DAO.Database

    Dim rs As DAO.Recordset



    ' 获取当前数据库

    Set db = CurrentDb



    ' 打开客户信息表

    Set rs = db.OpenRecordset("客户信息表", dbOpenDynaset)



    ' 新增记录

    rs.AddNew

    rs!客户代码 = "C001"

    rs!客户名称 = "客户名称1"

    rs!客户简称 = "简称1"

    rs!备注 = "这是新增的记录"

    rs.Update

    MsgBox "新增记录成功！"



    ' 编辑记录（假设编辑客户代码为 C001 的记录）

    rs.FindFirst "客户代码 = 'C001'"

    If Not rs.NoMatch Then

        rs.Edit

        rs!客户名称 = "更新后的客户名称"

        rs!客户简称 = "更新后的简称"

        rs!备注 = "这是更新后的备注"

        rs.Update

        MsgBox "记录编辑成功！"

    Else

        MsgBox "未找到客户代码为 C001 的记录！"

    End If



    ' 关闭记录集和数据库

    rs.Close

    Set rs = Nothing

    Set db = Nothing

End Sub

使用 ADO 新增和编辑记录

Sub ADO_AddAndEditCustomer()

    Dim conn As Object

    Dim rs As Object

    Dim strSQL As String



    ' 创建 ADO 连接

    Set conn = CreateObject("ADODB.Connection")

    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & CurrentDb.Name



    ' 新增记录

    strSQL = "INSERT INTO 客户信息表 (客户代码, 客户名称, 客户简称, 备注) " & _

             "VALUES ('C001', '客户名称1', '简称1', '这是新增的记录')"

    conn.Execute strSQL

    MsgBox "新增记录成功！"



    ' 编辑记录（假设编辑客户代码为 C001 的记录）

    strSQL = "UPDATE 客户信息表 SET " & _

             "客户名称 = '更新后的客户名称', " & _

             "客户简称 = '更新后的简称', " & _

             "备注 = '这是更新后的备注' " & _

             "WHERE 客户代码 = 'C001'"

    conn.Execute strSQL

    MsgBox "记录编辑成功！"



    ' 关闭连接

    conn.Close

    Set conn = Nothing

End Sub

两个按钮分别去运行两个过程，发现都可以运行，且在表中数据都保存了。