0

コードは正常に動作していましたが、CSV ファイルの新しい更新バージョンを生成すると、突然エラーが発生し、タイプの不一致がキャッチされます。

ここに私が今持っているコードがあります。

 Dim A As String = "ADusers.csv"
    Dim B As String = "MlnExp.csv"
    Dim filePath As String = "C:\CSV"

    Try
        Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & (filePath) & "\;Extended Properties='text;HDR=Yes'"

        Dim sSql As String = "SELECT *" _
        & "FROM ([" & (B) & "] B LEFT JOIN [" & (A) & "] A ON B.EmployeeNumber = A.employeeID)"

        Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection(ConnectionString)
        Dim Command As OleDb.OleDbCommand = New OleDb.OleDbCommand(sSql, conn)
        Command.CommandType = CommandType.Text
        conn.Open()

        Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sSql, conn)
        Dim dt As DataTable = New DataTable
        da.Fill(dt)

        DataGrid1.DataSource = dt
        DataGrid1.Update()

        conn.Close()
        lblStatus.Text = "CSV combined... Now saving to file."


    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Exclamation)


    End Try

それが完了する前に、2 つの CSV ファイルを結合し、データグリッドに表示します。しかし今、私のキャッチはスローバックしています

式の型の不一致

4

1 に答える 1

0

私はあなたのファイルの両方で B.EmployeeNumber = A.employeeID をチェックします。1つはテキスト値(左揃え)で、もう1つは整数(右揃え)です。

于 2013-10-22T19:22:55.903 に答える