2013-04-01 40 views
0

你好,我想填充datagridview與數據文件中的項目。代碼停止在.fill上。我在Excel中測試了這個查詢(微軟查詢),它在那裏正常工作。我還測試了它(在我的vb代碼中)通過添加一個WHERE來只接收特定條目,這工作正常。任何想法如何讓我的應用程序工作?代碼如下,謝謝你的幫助!掛在datagridview。填充大量的數據

Dim dataAdapter As New Odbc.OdbcDataAdapter() 

Private Sub ChangeSelect() 

    Dim selectCommand As String = "SELECT CWIPH.CUST_NO, CWIPH.JOB_NO, CWIPH.JOB_NAME, CJCMS.JOB_DESC FROM { OJ CWIPH CWIPH INNER JOIN CJCMS CJCMS ON CWIPH.JOB_NO = CJCMS.JOB_NO }" 

    accessDB(selectCommand) 
End Sub 

Private Sub accessDB(ByVal selectCommand As String) 
    Dim JobConnectionString As String = "Dsn=Jake; provider=System.Data.Odbc" 
    Dim cn As OdbcConnection = New OdbcConnection(JobConnectionString) 
    Dim table As New DataTable() 
    cn.Open() 

    Dim cmd As New Odbc.OdbcCommand(selectCommand, cn) 

    Me.dataAdapter = New Odbc.OdbcDataAdapter(cmd) 

    With dgvWorkOrder 

     .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells 

     .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.ColumnHeader 

     .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.ColumnHeader 

    End With 

    Dim commandBuilder As New Odbc.OdbcCommandBuilder(Me.dataAdapter) 

    Me.dataAdapter.Fill(table) 
    Me.dgvWorkOrder.DataSource = table 

    cn.Close() 
End Sub 

回答