如何将数据字段插入空表

Question

我在VB中制作前端应用程序。后端是Oracle。我想要点击“新建”按钮时自动生成ID。如果表中存在数据，它可以正常工作，但如果表为空，则显示错误。我需要插入什么才能在我第一次使用应用程序时工作？我的按钮代码如下：

Private Sub cmd_new_Click()
Call txt_clear
txt_name.Enabled = True
Set rsCat = New ADODB.Recordset
rsCat.Open "Category", conn, adOpenDynamic, adLockPessimistic

If rsCat.EOF = rscat.BOF Then
    tempId = 1000
Else
    rsCat.MoveLast
    tempId = rsCat.Fields("Category_Id") + 1
End If

txt_Id = tempId
cmd_Save.Enabled = True
cmd_new = False

End Sub 

Answer 1

检查rscat.RecordCount = -1 基本上，改变

If rsCat.EOF = rscat.BOF Then

到

If rsCat.RecordCount=-1 Then