![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
いつものように、わからなくなりましたのでご教授をお願いします。
VB6.0でアクセス2003を使用しています。
社内での生産補助ソフトみたいなものを作っています。
パーツ名や、材質などをフォーム1で作って、アクセスに保存します。
その入力した一覧を見るために、データフォームウィザードだと簡単に見れると知り、
手順通りに作成しました。しかし、ロード時にNewキーワードの
使用が不正ですとなってしまいます(>_<)
こんな感じです。
変更したのは、変数名ぐらいです。
Private Sub Form_Load() 'フォームロード
Dim db As Connection '接続として
Dim dbpath As String 'データベースのパス用
dbpath = wakasadb
Set db = New Connection '
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath & ";"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select partname,xsize,ysize,kosuu from part Order by partname", db, adOpenStatic, adLockOptimistic
Set grdDataGrid.DataSource = adoPrimaryRS
mbDataChanged = False
End Sub
というのが、自動で出来上がったのですが、
Set db = New Connectionでストップします。
何が原因なのでしょうか(>_<)
よろしくお願いします<(_ _)>
No.1ベストアンサー
- 回答日時:
Dim db As adodb.Connection '接続として
Set db = New adodb.Connection '
に変えてみたらどうでしょうか
この回答への補足
ありがとうございます。
言われたように変更しました。
止まってたとこをクリアし、
Set adoPrimaryRS = New adodb.Recordset
も変更しました。
そしたら、次は
adoPrimaryRS.Open でメソッドまたはデータメンバが
見つかりませんとなります(>_<)
オープンできません(/_;)
あ、すいません。変数Dim adoPrimaryRS As Recordset
一番上にありました(>_<)Dim adoPrimaryRS As adodb.Recordset
に直したらうまくいきました!!!
ありがとうございます<(_ _)>
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Excel(エクセル) エクセル 値をコピペした時に、条件付き書式で塗られた背景色もペーストさせる 2 2023/04/05 17:21
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー3131 FROM 句の構...
-
LocalのNotesメールDBをVBAで参...
-
VBAをつかってクエリの情報を抽...
-
例外処理
-
エラー3011
-
PEAR でprepareメソッドがエラーに
-
in 'where clause'のエラーの理由
-
テキストボックスに入れた内容...
-
SQL文が実行できません
-
codeigniter 複数モデルでトラ...
-
pearのdisconnect()が使えない。
-
PHPで[]の使い方について
-
条件が合わなかった場合の処理...
-
PHP&MySQLでの文字列+数列の一...
-
OracleからAccessへのインポート
-
Pro*Cの構文エラー
-
while文から抜け出せません。。。
-
ResultSetインターフェイスでの...
-
insert1つの処理でもトランザ...
-
チェックボックスによる複数の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー3131 FROM 句の構...
-
VBAをつかってクエリの情報を抽...
-
テキストボックスに入れた内容...
-
エラー3011
-
SQL文が実行できません
-
SELECT文を発行して、ACCESSよ...
-
in 'where clause'のエラーの理由
-
phpのPEARのMDB2を使って出たエ...
-
Call to undefined method MDB2...
-
LocalのNotesメールDBをVBAで参...
-
PHP内でUPDATE構文を使用してい...
-
単純ですが、意外と穴?なデー...
-
DAOでデータベースを二つ開くに...
-
PEAR でprepareメソッドがエラーに
-
pearがエラーになる
-
見られたくないファイル
-
SQL文の実行に失敗しました???
-
データフォームウィザードで追...
-
年月の情報だけを基に階層構造...
-
データ入力条件
おすすめ情報