VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 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
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）