2

Microsoft SQL Server から MySQL にデータを移動する vb.net アプリを作成しました。以下を除いて、これまでのところすべての挿入機能が機能しています。問題は、テキストにコンマが含まれているフィールドにあり、問題を引き起こしているようです。

問題は「カテゴリ」列にあると思います。「11|0,1|0,12|0」のような値があります。

コンマは特別な方法で処理する必要がありますか?

エラー: SQL エラー: MySql.Data.MySqlClient.MySqlException: SQL 構文にエラーがあります。'Separator,C_ID,EntryDt,S_ID) VALUES (1,1455090, '11|0,1' at line 1'付近で使用する正しい構文については、MySQLサーバーのバージョンに対応するマニュアルを確認してください。

コード:

#Region " InsertTable_Activity "
    Function InsertTable_Activity(ByVal Activity_ID As Integer, _
        ByVal Categories As String, _
        ByVal Separator As String, _
        ByVal C_ID As Integer, _
        ByVal EntryDt As DateTime, _
        ByVal S_ID As Integer, _
         ByVal myCon As MySqlConnection) As String

        Dim sRetVal As String = ""
        Dim sSQL As String = "INSERT INTO CandidateInsertResumeDetailCategories_Activity (Activity_ID,Categories,Separator,C_ID,EntryDt,S_ID) VALUES (?Activity_ID, ?Categories, ?Separator, ?C_ID,?EntryDt,?S_ID)"
        Dim myCmd As MySqlCommand = New MySqlCommand(sSQL, myCon)
        myCmd.CommandType = Data.CommandType.Text
        myCmd.Parameters.Add(New MySqlParameter("?Activity_ID", MySqlDbType.Int32)).Value = Activity_ID
        myCmd.Parameters.Add(New MySqlParameter("?Categories", MySqlDbType.VarChar, 500)).Value = Categories
        myCmd.Parameters.Add(New MySqlParameter("?Separator", MySqlDbType.VarChar, 10)).Value = Separator
        myCmd.Parameters.Add(New MySqlParameter("?C_ID", MySqlDbType.Int32)).Value = C_ID
        myCmd.Parameters.Add(New MySqlParameter("?EntryDt", MySqlDbType.DateTime)).Value = EntryDt
        myCmd.Parameters.Add(New MySqlParameter("?S_ID", MySqlDbType.Int32)).Value = S_ID

        Try
            If myCon.State <> Data.ConnectionState.Open Then
                myCon.Open()
            End If

            myCmd.ExecuteNonQuery()
            myCmd.Dispose()

        Catch sqlEx As MySqlException
            sRetVal = "ERROR: Sql error: " & sqlEx.ToString & vbCrLf & " - SQL used: " & sSQL
        Catch ex As Exception
            sRetVal = "ERROR: Regular error: " & ex.ToString & vbCrLf & " - SQL used: " & sSQL
        Finally
        End Try

        Return sRetVal
    End Function
#End Region
4

1 に答える 1