SQLでテキストを取り込む (ID:120095)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VBでエクセルのセルを指定してテキストをDBにInsert Updateするものをつくっています。 下記の処理でどうしても失敗してしまいます；SQL文が間違っているのでしょうか？ strSQL2 = strSQL2 & " INSERT INTO " strSQL2 = strSQL2 & " JIKO" strSQL2 = strSQL2 & " ( ID " strSQL2 = strSQL2 & " ,NENDO" strSQL2 = strSQL2 & " ,TUKI" strSQL2 = strSQL2 & " ,SOUHYOU" strSQL2 = strSQL2 & " ,KAIZEN" strSQL2 = strSQL2 & " ,YOUBOU" strSQL2 = strSQL2 & " ,SIKAKU)" strSQL2 = strSQL2 & " VALUES " strSQL2 = strSQL2 & " ( " & lngID strSQL2 = strSQL2 & " ," & Trim$(txtYear.Text) strSQL2 = strSQL2 & " ," & Trim$(txtMonth.Text) strSQL2 = strSQL2 & " ," & CStr(objWrkSht.Cells(31, 2).Value) strSQL2 = strSQL2 & " ," & CStr(objWrkSht.Cells(31, 9).Value) strSQL2 = strSQL2 & " ," & CStr(objWrkSht.Cells(38, 2).Value) strSQL2 = strSQL2 & " ," & CStr(objWrkSht.Cells(38, 9).Value) strSQL2 = strSQL2 & " ) " '###勤怠Tbl更新処理 If Not F_UpdHyouka2_bln(strSQL2) Then MsgBox "勤怠テーブルの登録に失敗しました。" Exit For End If Public Function F_UpdHyouka2_bln(pstrSQL2 As String) As Boolean On Error GoTo ERR_F_UpdHyouka2_bln F_UpdHyouka2_bln = False cnL.Execute pstrSQL2 F_UpdHyouka2_bln = True Exit Function ERR_F_UpdHyouka2_bln: DBのテーブルの型はテキスト型です。