如何將數據字段插入空表

我在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

來源

2010-03-25 banita

什麼錯誤到底是什麼？ – 2010-03-25 09:56:32

儘管沒有錯誤，但在表格爲空的情況下，它會轉到if block而不是else block並給出movelast的錯誤。 – banita 2010-03-25 12:53:32

檢查rscat.RecordCount = -1 基本上，改變

If rsCat.EOF = rscat.BOF Then

到

If rsCat.RecordCount=-1 Then

來源

2010-03-25 14:47:47 moleboy

如何將數據字段插入空表

回答

相關問題