Question

我只是想知道是否有内置函数或方法来获取ms访问数据库中的下一个主键，其中它将以我的vb格式显示在文本框中？我正在使用ADODB进行连接..任何帮助都会非常感激..

Answer 1

我从未遇到过提供下一个键的函数，但我通常做的是Select Max(ID) from table并将其与+1一起存储在文本框中。这可能会对你有所帮助

修改

如果你谈论我对它的个人意见，我会在SubMain（）中创建一个Connection，我在应用程序和Recordset的开头调用它将在需要时创建，并在工作完成后立即关闭。因此，如果您的应用程序已准备好在表单加载时获取记录，则代码将出现在Form_Load（）上，否则如果它在单击按钮后启动，则在BtnAddNewRecord_Click（）

上

Private Sub BtnAddNewRecord_Click()
    Dim Rs1 As New adodb.Recordset
    Dim i As Integer
    Set Rs1 = Conn1.Execute("SELECT Max(id) FROM <TableName>")
    TxtID.Text=Rs1(0) + 1
    Rs1.Close()
End Sub

在文本框VB6中显示主键的下一个值

1 个答案: