| タイトル | ： Re^2: Catchを通ってしまいます。 |
| 記事No | ： 6048 |
| 投稿日 | ： 2007/08/09(Thu) 10:23 |
| 投稿者 | ： ddd |
> > tryでdbupdateせず、Catchの失敗しました、を通ります。
> 「通ります」って・・・エラーじゃないのに通るわけじゃないんですよね？
>
> エラーの場合の処理としてCatchを記述しているんですから、
> エラーの時に通るのは当然では？？？
>
>
> > どうすれば良いのか教えて下さい。
>
> 「エラーの原因を調べて、直してください。」としか言い様がないです。
>
> 説明が全然足りません。
> 「dbupdate」は、どういう機能の、どういうコードなんです？
> ＃名前からして、データベースのテーブルに対して更新処理を行っているようですが・・・
> ＃どういう種類のデータベースで、データベースに対する接続はちゃんとできているんですか？
>
> 「Sql」は、仕様上、どういうデータを指定しなくてはなんです？
> また、実際にはどういうデータを指定しているんです？
> ＃「SQLとして正しい」指定をしていますか？テーブル名やカラム名を間違ってませんか？
>
> きちんと説明してください。
ありがとうございます。このコードの中に間違いがあるのでしょうか？
emplCD = Me.TextBox1.Text
emplNM = Me.TextBox2.Text
furigana = Me.TextBox3.Text
If Mode = 0 Then
Sql = ""
Sql &= "INSERT INTO "
Sql &= "KYU "
Sql &= "("
Sql &= "社員コード" & ", "
Sql &= "社員名" & ", "
Sql &= "フリガナ" & ") "
Sql &= "VALUES "
Sql &= "("
Sql &= "'" & emplCD & "'" & ", "
Sql &= "'" & emplNM & "'" & ", "
Sql &= "'" & furigana & "'"
Sql &= ")"
Sql = ""
Sql &= "UPDATE"
Sql &= " " & "KYU"
Sql &= " " & "SET"
Sql &= " " & "社員コード " & "= "
Sql &= "' " & emplCD & "'" & ","
Sql &= " " & "社員名 " & "= "
Sql &= "'" & emplNM & "'" & ","
Sql &= " " & "フリガナ " & "= "
Sql &= "'" & furigana & "'" & ","
Sql &= " " & "WHERE " & "("
Sql &= " " & "社員コード"
Sql &= " " & "="
Sql &= "'" & Mid(CStr(Code), 1, 4) & "'" & ")"
End If
Try
dbUpdate(Sql)
MsgBox(strMode & "しました", MsgBoxStyle.Information, strMode & "処理")
|