vbscript: kiểm tra sự tồn tại của một cột trong một recordset

Question

Bah, vbscript.

Tôi đang cố gắng để tìm ra cách để có được bản Tuyên Bố này để làm việc:

if (not rsObject("columnNameThatDoesntExist") is nothing) then 
' do some stuff 
end if 
' else do nothin 

đâu rsObject là một RecordSet và columnNameThatDoesntExist là ... bạn cũng biết. Tôi đang tìm một cái gì đó như rsObject.Columns.Contains (string). Nhưng tất nhiên không thể tìm thấy nó.

Chỉnh sửa: Hình như vòng lặp rsObject.Fields là một tùy chọn, đó là cách duy nhất để thực hiện việc này?

Answer 1

Tôi chắc chắn bạn có lý do, nhưng nếu bạn không biết bạn đang gọi lại trường nào từ cơ sở dữ liệu, bạn luôn có thể sử dụng Lỗi khi tiếp tục và lỗi trên Goto 0 để bỏ qua lỗi được gửi. Có vẻ như một cách xấu đối với tôi, nhưng nó sẽ hoạt động

blnItWasntThere = True 
On Error Resume Next 
If (rsObject("columnNameThatDoesntExist") <> "") Then 
    blnItWasntThere = False 
    ... 
    ... 
    ... 
End If 
On Error Goto 0 

If blnItWasntThere Then 
'handle this error' 
End If 

Nhưng với điều đó, tôi nghĩ bạn sẽ lo lắng hơn về bản ghi bí ẩn mà bạn đang quay trở lại.

Hoặc thực hiện chức năng của riêng bạn

Function ColumnExists(objRS, Column) 
    Dim blnOutput, x 
    blnOutput = True 
    On Error Resume Next 
    x = objRS(Column) 
    If err.Number <> 0 Then blnOutput = False 
    On Error Goto 0 
    ColumnExists = blnOutput 
End Function 

Answer 2

Hoặc looooop và kiểm tra xem nó ở đó, hoặc chỉ cố gắng lấy nó:

Dim oRs:Set oRs = Nothing 
On Error Resume Next 
Set oRs = rsObject("columnNameThatDoesntExist") 
On Error Goto 0 
If Not rsObject("columnNameThatDoesntExist" Is Nothing Then 
    ' ... 
End If