vb.net 개체 변수 또는 With 블록 변수가 설정되지 않았습니다. OleDbDataReader

Question

vb.net을 사용하여 CVS 변환기에 mdb를 쓰려고합니다. 내가 열이 여기에 oledbdata 판독기를 사용하여 이름을 헤더하고 싶어 지금까지 너무

Public Cheadernames As Array 
    Public firstRead As Boolean = False 
    Public columnCount 

    Dim connectionstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strfilename 
    Dim queryString = "SELECT * FROM products" 
    Dim connection As New OleDbConnection(connectionstring) 
    Dim command As New OleDbCommand(queryString, connection) 
    connection.Open() 
    Dim reader As OleDbDataReader = command.ExecuteReader() 
    While reader.Read 
     If firstRead Then 
      columnCount = reader.FieldCount() 
      firstRead = False 
      For i = 0 To columnCount - 1 
       Cheadernames(i) = reader.GetName(i) ' i am getting an error with this line 
       Console.WriteLine(Cheadernames(i)) 
      Next 
     End If 

내가 배열에있는 모든 열 머리글 이름을 넣어 노력하고 있지만, 주석 라인은 저에게이 오류가 있습니다 "개체 내 코드입니다 변수 또는 With 블록 변수가 설정되지 않음 "

Answer 1

Cheadernames 변수는 요소가없고 유형이없는 빈 배열입니다. 이는 틀린 것입니다 : 변수 또는 메소드 매개 변수를 "배열로"선언하지 않아야합니다. 대신 다음과 같은 것을 원합니다 :

Private HeaderHames() As String 
Private firstRead As Boolean = True 
Private columnCount As Integer 

Dim connectionstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strfilename 
Dim queryString = "SELECT * FROM products" 
Using connection As New OleDbConnection(connectionstring), _ 
     command As New OleDbCommand(queryString, connection) 

    connection.Open() 
    Using reader As OleDbDataReader = command.ExecuteReader() 
     While reader.Read 
      If firstRead Then 
       columnCount = reader.FieldCount() 
       HeaderNames = New String(columnCount-1) 
       firstRead = False 
       For i = 0 To columnCount - 1 
        HeaderNames(i) = reader.GetName(i) 
        Console.WriteLine(HeaderNames(i)) 
       Next 
      End If 
      '... 
     End While 
    End Using 
End Using