Access2003のVBAで次のような構文を用いてクエリーの該当レコード数を取得したいのですがうまく出来ません。
構文又は手法が間違っているのでしょうか。
Dim db As Database
Dim rs As Recordset
Dim cnt As Long
Set db = CurrentDb
Set rs = db.OpenRecordset("該当顧客リストクエリ", dbOpenTable)
cnt = rs.RecordCount
※OpenRecordsetの行で「実行時エラー'3219'無効な処理です」と出てしまいます。
又、”該当顧客リストクエリ”では特定の抽出条件を設定して、”顧客リストテーブル”の一部を抽出するようにしています。
現在指定したファイルしかインポートしが出来ないのでこれを
指定したファイルをインポートしたいのですがどのようすれは、いいでしょうか？よろしくお願いします。
Private Sub コマンド5_Click()
On Error Resume Next
Dim MsgNo As Integer
Dim Msg1, Msg2, Msg3 As String
Dim su As String
Dim cut As Integer
Dim fd As String
Dim suu As String
Dim db As Database
Dim d1 As Recordset
Msg1 = " インポートを開始します。"
Msg2 = "「DAT」ファイルがありません。"
Msg3 = "「DAT」ファイルを c:\DATデータにコピーし、再度実行して下さい。"
MsgNo = MsgBox(Chr(9) & Msg1 & Chr(9), 1)
If MsgNo = 2 Then 'キャンセルボタンで終了
GoTo Exit_インポート_Click
End If
EmptyAllTable 'テーブルクリア
Set db = CurrentDb
Set d1 = db.OpenRecordset("t_製品データ")
fd = Dir("C:\DATデータ\*.dat")
If fd = "" Then 'ファイルがなければ、メッセージを表示、処理を戻します。
Beep
MsgNo = MsgBox(Msg2 & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Msg3, 16)
GoTo Exit_インポート_Click
End If
VB6 で自作したアプリケーションを VISTA にインストールしようとしているのですが、インストール途中で「c:\Windows\System32\shfolder.dll の登録中にエラーが発生しました」というメッセージがでてインストールが完了しません。
どのようにしたら、インストールが完了できるようになるか教えていただけないでしょうか？
よろしくお願いいたします。
※アプリケーションでは SHGetFolderPath 関数を使用しています。
OSはWindows Vista Business です。
VB.NET2002を使用しています。
データベースへ複数アクセスするための変数宣言を書いているのですが、
構文は同じなのでまとめることはできないかと思っています。
VB.NETにはそのような機能？考え方？ってないのでしょうか？
ご存知の方がいれば教えてください。
例えば
Dim Con○ As New System.Data.OleDb.OleDbConnection(sCon)
sCon・・・DBアクセス定義情報変数
Con○・・・今回の質問変数。ここを
Con1 ,Con2 ,Con3 のように宣言しているのでC
for i=1 to 3
dim Con & x
next
のようにまとめたいのです。
使用するときも変数末尾が違う物が対応するとお考え下さい。
なにか必要な情報がありましたら補足致します。
VB.NETのWindowsコントロールライブラリで作成したコントロールをメインになるプロジェクトから動的に呼び出したいのですが、複数のコントロールをボタンで表示非表示を行いたいので、配列化したいと考えているのですが、どのようにすればよいですか？
public testControl() as Object
Private Sub Form_Load(...
testControl(0) = New Test1.Form1
testControl(1) = New Test2.Form1
testControl(2) = New Test3.Form1
...
For i = 0 to 10
testcontrol(i).Location = New Point(0,0)
testcontrol(i).Size = New Size(100,100)
testcontrol(i).Visible = False
Next
End Sub
見たいな処理を行いたいと考えています。
ほかによい方法があれば教えてください。
