当Access遇上chatGPT文字版

哈喽哈喽，大家好鸭！最近天气也在渐渐恢复了，前段时间，我们这里居然也会有沙尘天气，真是惊呆了。

前几天我发了一个视频是讲现在chatGPT遇到access会发生什么？那今天把文字部分放出来。

01、创建表

首先，我们要先创建表信息，这里的话，表不用创建的太复杂，因为我们这里的demo是做一个组合框的模糊查询，你们可以和我视频中一样，做一个customer表，就放上一列数据。

02、创建窗体

接着，我们创建一个窗体，在窗体上放一个组合框，将组合框的行来源设置一下。

03、生成代码

接下去就是找chatGPT，让它给你生成一下代码，具体怎么使用chatGPT，这里我们就不介绍方法了。

具体的生成内容为下图：

具体的代码如下：

Private Sub Combo1_Change()Dim strFilter As String' 获取ComboBox中输入的文本strFilter = Me.Combo1.Text' 如果有文本，则添加一个筛选条件If Len(strFilter) > 0 ThenstrFilter = "[字段名] Like '*" & strFilter & "*'"End If' 应用筛选器到行来源为表的组合框Me.Combo1.RowSource = "SELECT [字段名] FROM [表名] WHERE " & strFilter & ";"
End Sub

04、运行测试

接下去，我们将chatGPT的代码复制到我们窗体中，运行一下，运行后，发现会有报错，这个我在视频里已经讲过了，那这里我们就不再去讲怎么来调整错误，具体的代码如下：

Private Sub Combo0_Change()Dim strFilter As String' 获取ComboBox中输入的文本strFilter = Me.Combo0.Text' 如果有文本，则添加一个筛选条件If Len(strFilter) > 0 ThenstrFilter = " and [customer] Like '*" & strFilter & "*'"End If' 应用筛选器到行来源为表的组合框Me.Combo0.RowSource = "SELECT [customer] FROM [T_Customer] WHERE 1=1   " & strFilter & ";"Me.Combo0.Dropdown'SELECT [字段名] FROM [表名] WHERE
End Sub

好的，以上就是我们视频中的全部内容了，大家快去试一下吧，在文章编辑的当天，百度的文心一言测试资格也通过了，我们稍后也来测试一下。

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！