Validating for empty datafields

[DiscusDian]

Hi I got a problem whereby my boss has failed to maintain the AS400 server's database. This means that I will have field "elrsnc" being empty and causing major problem to my work.

Elrsnc is suppose to represent a value of 1-11. So base on the selected value i will insert a strFieldName (example value 1, strFieldname ="XRSN01") into another table empexit. My problem is if Im running my codes as of those below, how should I validate for rsCode.Fields("elrsnc") = ""


sql2 = "select empno, edcode, elyyyy, elmm, eldd, elrsnc from EMPloyee " & _
"where empno = '" & empno & "'"

rsCode.Open sql2, cn, adOpenKeyset, adLockOptimistic

intELRSNC = CInt(rsCode.Fields("elrsnc"))

Select Case intELRSNC

Case 1: strFieldName = "XRSN01"
Case 2: strFieldName = "XRSN02"
Case 3: strFieldName = "XRSN03"
Case 4: strFieldName = "XRSN04"
Case 5: strFieldName = "XRSN05"
Case 6: strFieldName = "XRSN06"
Case 7: strFieldName = "XRSN07"
Case 8: strFieldName = "XRSN08"
Case 9: strFieldName = "XRSN09"
Case 10: strFieldName = "XRSN10"
Case 11: strFieldName = "XRSN11"

End Select

[chemicalNova]

I'm not sure what you are asking. Do you mean how do you check if the field is empty?

Phreak

[DiscusDian]

Yup how do i check when field "elrsnc" is empty? If its empty i need to insert strFieldName = "" into the database table else i need to run my select case. Do you get what i mean? Thanks

[DiscusDian]

My elrsnc will potentially be empty. Then when I try to CInt it
will return me an error

[chemicalNova]

You just need to add some error handling then.

On Error Resume Next

Or, maybe not the best, but:

On Error Goto Err:
intELRSNC = CInt(rsCode.Fields("elrsnc"))
 
Select Case intELRSNC
 
Case 1: strFieldName = "XRSN01"
Case 2: strFieldName = "XRSN02"
Case 3: strFieldName = "XRSN03"
Case 4: strFieldName = "XRSN04"
Case 5: strFieldName = "XRSN05"
Case 6: strFieldName = "XRSN06"
Case 7: strFieldName = "XRSN07"
Case 8: strFieldName = "XRSN08"
Case 9: strFieldName = "XRSN09"
Case 10: strFieldName = "XRSN10"
Case 11: strFieldName = "XRSN11"
 
End Select
Exit Sub 'or function if its a function
Err:

Does the same really...

Phreak

[DiscusDian]

If Im going to insert the strFieldName as below.

sql3 = "insert into empexit(XEMPNO,xdcode,xlyyyy, xlmm, xldd, " & strFieldName & "

Is this way of error handling correct?

On Error Goto Err:
intELRSNC = CInt(rsCode.Fields("elrsnc"))

Select Case intELRSNC

Case 1: strFieldName = "XRSN01"
Case 2: strFieldName = "XRSN02"
Case 3: strFieldName = "XRSN03"
Case 4: strFieldName = "XRSN04"
Case 5: strFieldName = "XRSN05"
Case 6: strFieldName = "XRSN06"
Case 7: strFieldName = "XRSN07"
Case 8: strFieldName = "XRSN08"
Case 9: strFieldName = "XRSN09"
Case 10: strFieldName = "XRSN10"
Case 11: strFieldName = "XRSN11"

End Select
Exit Sub
Err:
strFieldName = ""
End Sub