빈 테이블에 데이터 필드를 삽입하는 방법

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

어떤 오류를 변경을 다음과 같이 내 버튼 코드는? –

오류는 없지만 테이블이 비어있는 경우에는 블록으로 이동하고 대신 블록으로 이동하여 movelast의 오류를 제공합니다. – banita

체크 rscat.RecordCount = -1 기본적으로 정확히

If rsCat.EOF = rscat.BOF Then

에

If rsCat.RecordCount=-1 Then

출처

2010-03-25 14:47:47 moleboy

빈 테이블에 데이터 필드를 삽입하는 방법

답변

관련 문제