| ■8993 / ) |
Re[10]: SQL Severへのデータの追加 |
□投稿者/ 片桐 (50回)-(2007/10/16(Tue) 01:04:44)
|
2007/10/16(Tue) 01:08:42 編集(投稿者)
さらっとコードをよんで気になったところを。
Dim execmd As New SqlCommand
Dim tran As SqlTransaction
のところ、
Dim execmd As New SqlCommand = cnn.CreateCommand
Dim tran As SqlTransaction = cnn.BeginTransaction
みたいに初期化が必要ではないですか？
あと、ASP.NETとのことですので、デバッグ実行できるようになっているかどうかも確認が必要ですね。コードを書いた後、コードの一行目にカーソルを置いてF9キーを押すとブレークポイントがつきますので、その状態でツールバーの緑色の三角（デバッグ）のボタンを押してみてください。デバッグ実行できない場合には「デバッグ実行しますか？」と聞いてきますし、できていればブレークポイントで一時停止してくれますので、そこからステップ実行（一行ずつ実行）してみれば答えもしくはヒントがわかるかも、です。
ちょろっと考えてみたサンプルコード。そのままでは動かないとは思いますけれど、usingや初期化部分についての動きのご参考にどうぞ。
Dim strSQL As String
using cnn As SqlConnection = New SqlConnection("Initial Catalog=Data; Data Source=NOTO; Integrated Security=SSPI;")
cnn.Open()
Dim tran As SqlTransaction = cnn.BeginTransaction()
using execmd As New SqlCommand = cnn.CreateComannd
Try
strSQL = "INSERT INTO データ(会員コード, 氏名,かな氏名,メールアドレス, パスワード, 生年月日) " & _
"VALUES (" & "'" & yuzaID.Text.Trim & "'," & _
"'" & nameID.Text.Trim & "'," & _
"'" & kanaID.Text.Trim & "'," & _
"'" & mailID.Text.Trim & "'," & _
"'" & passID.Text.Trim & "'," & _
"'" & bornID.Text.Trim & "');"
execmd.CommandText = strSQL
execmd.ExecuteNonQuery()
tran.commit()
Catch ex As Exception
tran.Rollback()
end try
cnn.close()
end using
cnn.close
end using
|
|
