いつものように、わからなくなりましたのでご教授をお願いします。
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ランキング
-
VBAをつかってクエリの情報を抽...
-
SQL文が実行できません
-
テキストボックスに入れた内容...
-
データフォームウィザードで追...
-
実行時エラー3131 FROM 句の構...
-
mysql_fetch_objectのエラー
-
insert1つの処理でもトランザ...
-
文字化けが解決できません。お...
-
検索結果にラジオボタンを付加...
-
PHPエラーが出て困ってます
-
PHP&MySQLでの文字列+数列の一...
-
MySQLにHTMLタグを挿入したい
-
アラートでyes noを作りたいです。
-
DB(MySQL)から複数行のデータを...
-
MySQLでデータベースにデータin...
-
ボタンのonclick時における関数...
-
PHP・SQLite3文字化け
-
SQL1回で、平均と合計を両方出...
-
会員番号等に利用するダブらな...
-
ResultSetインターフェイスでの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー3131 FROM 句の構...
-
VBAをつかってクエリの情報を抽...
-
テキストボックスに入れた内容...
-
SQL文が実行できません
-
エラー3011
-
LocalのNotesメールDBをVBAで参...
-
in 'where clause'のエラーの理由
-
codeigniter 複数モデルでトラ...
-
PEAR でprepareメソッドがエラーに
-
SELECT文を発行して、ACCESSよ...
-
PHP5でpostgresqlのデータベー...
-
PHP(PDO)でDBの情報を完全一...
-
PDOで取得される値がすべて文字...
-
VB.NET
-
データフォームウィザードで追...
-
Accessのテーブルへ複数の主キ...
-
SQL文の実行に失敗しました???
-
SELECT COUNTで取得した結果の表示
-
ExcelVBAでAccessのデータを検...
-
VBSの中で書くSQL文の記...
おすすめ情報