当Access遇上chatGPT文字版_access

 

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

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

01、创建表

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

02、创建窗体

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

当Access遇上chatGPT文字版_access_02

 

03、生成代码

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

具体的生成内容为下图：

当Access遇上chatGPT文字版_chatGPT_03

具体的代码如下：

Private Sub Combo1_Change()
    Dim strFilter As String

    ' 获取ComboBox中输入的文本
    strFilter = Me.Combo1.Text

    ' 如果有文本，则添加一个筛选条件
    If Len(strFilter) > 0 Then
        strFilter = "[字段名] 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 Then
        strFilter = " 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

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