[リストへもどる]
一括表示
投稿時間：2004/03/04(Thu) 21:51
投稿者名：のっぽ
Ｅメール：
ＵＲＬ　：
タイトル：ADOオブジェクト
ADOオブジェクトをつかってVBでデータベースのプログラムを作成中です。
下記のプログラムを実行するとエラーメッセージがでます。

実行時エラー　−2147777211111117904(80040e10)
Execute メソッドは失敗しました。　Connection オブジェクト



原因がまったくわかりません。
解決方法をご存知の方はいらしゃいませんか？
宜しくお願いします。

*************
OS　WINDOWS98
VB6（SP5)
ACCESSはインストールしておりませんが、
ビジュアルデータマネージャで　MDBファイルを作りました
MDBファイルとの接合テストは、ADODCのプロパティーページで成功しています。
**************

Private Sub cmdOP_Click(Index As Integer)
    Dim Cn As New adoDB.Connection
    Dim Rs As New adoDB.Recordset
    Dim COSTR As String
    Dim SQL   As String
    Cn.Open adoDB.ConnectionString
    
    Select Case Index
        Case 0
            SQL = "INSERT INTO 名簿(会員番号,氏名,性別コード) VALUES(" & Val(txtNo.Text) 　　　　　　　　　　　　& ", "  & txtName.Text & "," & Val(txtSex.Text) & " )"
    End Select

    Debug.Print adoDB.ConnectionString
    Debug.Print SQL
    adoDB.RecordSource = SQL
    Cn.Execute SQL
    Cn.Close
    Set Cn = Nothing
    adoDB.Refresh
End Sub

投稿時間：2004/03/05(Fri) 10:24
投稿者名：これ
ＵＲＬ　：
タイトル：Re: ADOオブジェクト

> 原因がまったくわかりません。
> SQL = "INSERT INTO 名簿(会員番号,氏名,性別コード) VALUES(" & Val(txtNo.Text)
>　　　& ", "  & txtName.Text & "," & Val(txtSex.Text) & " )"

txtName.Text の前後に「'」が必要なのでは？

投稿時間：2004/03/07(Sun) 15:52
投稿者名：のっぽ
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: ADOオブジェクト
レス有難うございます

> txtName.Text の前後に「'」が必要なのでは？
早速ためしましたが、変化がありません。
ＳＱＬの文法には間違いはないようです

投稿時間：2004/03/07(Sun) 18:11
投稿者名：tak
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: ADOオブジェクト
>Debug.Print adoDB.ConnectionString
>Debug.Print SQL
イミディエイトウィンドウに表示させた、上記2つの内容とフィールド属性も投稿された方がよいのではないでしょうか。

cnオブジェクトの中身がすごい気になるんですけど・・。
普通なら接続文字列を指定しますよね。ＭＤＢのパスとか、プロバイダとか。

投稿時間：2004/03/07(Sun) 22:57
投稿者名：のっぽ
Ｅメール：
ＵＲＬ　：
タイトル：Re^5: ADOオブジェクト
> >Debug.Print adoDB.ConnectionString
> >Debug.Print SQL
> イミディエイトウィンドウに表示させた、上記2つの内容とフィールド属性も投稿された方がよいのではないでしょうか。
>
> cnオブジェクトの中身がすごい気になるんですけど・・。
> 普通なら接続文字列を指定しますよね。ＭＤＢのパスとか、プロバイダとか。

レス有難うございます
属性は　文字型です。

内容は下記の通りです(1つ目が　adoDB.ConnectionString　二つ目がSQL)
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WINDOWS\デスクトップ\name0431\nameDB.mdb;Persist Security Info=False

INSERT INTO 名簿(会員番号,氏名,性別コード) VALUES(3, 松本ちさと,1)

宜しくお願いします

投稿時間：2004/03/08(Mon) 09:31
投稿者名：Tom's
Ｅメール：
ＵＲＬ　：
タイトル：Re^6: ADOオブジェクト
エラーメッセージからするとＳＱＬでエラーが出ていますね。
>
> INSERT INTO 名簿(会員番号,氏名,性別コード) VALUES(3, 松本ちさと,1)
>
> 宜しくお願いします

ＳＱＬはこうでないといけないのでは？
INSERT INTO 名簿(会員番号,氏名,性別コード) VALUES(3, '松本ちさと',1)

それでもおかしいときはテーブル自体を疑うぐらいしか思い当たらないですが。

投稿時間：2004/03/08(Mon) 13:28
投稿者名：のっぽ
Ｅメール：
ＵＲＬ　：
タイトル：Re^7: ADOオブジェクト

> ＳＱＬはこうでないといけないのでは？
>  INSERT INTO 名簿(会員番号,氏名,性別コード) VALUES(3, '松本ちさと',1)
>
皆さんありがとうございました。
SQL = " INSERT INTO 名簿(会員番号,氏名,性別コード) VALUES(" & Val(txtNo.Text) & _
       "," & "'" & txtName.Text & "'" & "," & Val(txtSex.Text) & ") "

上記のように変更したところ　正常終了しました。
有難うございました。