0

こんにちは、データグリッドビューにデータファイルのアイテムを入力しようとしています。コードは .fill で停止します。Excel(Microsoftクエリ)でクエリをテストしましたが、そこでは正常に動作します。また、特定のエントリでのみ受信するように WHERE を追加して (VB コードで) テストしましたが、これは正常に機能します。これを私のアプリケーションで機能させる方法はありますか? コードは以下のとおりです。助けてくれてありがとう!

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
4

1 に答える 1