클래스에서 주 폼으로 DataTable 전달

Question

나는 VB에서 새롭다. 모든 클래스와 기본 폼이 저장되는 클래스 (dalv1)가있다. 나는 내가 할 때 폼이로드 텍스트 상자를 채울 수있는 기본 폼에 DataTable을, cust_dataTable을 전달하려는

Public Sub getCustomerDetails() 

     Try 
      Dim cust_dataTable As New DataTable() 
      Dim Connection As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source = C:\Users\Public\Documents\VP - A1\Database\Database.mdb" 
      Dim SQL As String = ("SELECT * FROM tblCustomers") 
      Dim dataAdapter As New OleDbDataAdapter(SQL, Connection) 
      dataAdapter.Fill(cust_dataTable) 
      dataAdapter.Dispose() 

     Catch ex As Exception 
      MsgBox("ERROR : " & ex.Message.ToString) 
     End Try 

End Sub 

다음과 같이

코드입니다. 테이블이 가 호출자에게을 돌아 가도록 (듯이)

Answer 1

당신은 함수로 그것을 돌 필요 : 당신은 당신의 폼의 코드를 공유하지 않았다

Public Function getCustomerDetails() As DataTable 
    Dim cust_dataTable As New DataTable() 
    Try 
    Dim Connection As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source = C:\Users\Public\Documents\VP - A1\Database\Database.mdb" 
    Dim SQL As String = ("SELECT * FROM tblCustomers") 
    Dim dataAdapter As New OleDbDataAdapter(SQL, Connection) 
    dataAdapter.Fill(cust_dataTable) 
    dataAdapter.Dispose()   
    Catch ex As Exception 
    MsgBox("ERROR : " & ex.Message.ToString) 
    End Try 

    Return cust_dataTable 
End Function 

하지만, 여기에 당신이 전화를하는 방법에 대한 예입니다 it :

Private da As New dalv1 
Private _MyDataTable As DataTable 

Protected Overrides Sub OnLoad(ByVal e As EventArgs) 
    MyBase.OnLoad(e) 
    _MyDataTable = da.getCustomerDetails 
End Sub