VB2008からAccess2007へのDAO接続でエラーになります。
VB2008EEからDAO3.6を利用し、Access2007(*.accdb)に接続しようとしていますが、
エラーが発生してしまい、接続できません。
エラーの内容は下記のとおりです。
実行時エラー '3343': データベースの形式 'XXX' を認識できません。
Access2000のデータベース(*.mdb)には普通に接続できています。
Accessのバージョンを問わずに接続したい場合、どうすればよいのでしょうか？
参考までに現在のコードを記載しておきます。
※DAO3.6に参照設定してあります。
Imports dao
Module modConnectDb
Public Function DaoConnect(ByVal strDb As String) As Boolean 'strDb:データベースのファイルパス
Dim Ws As dao.Workspace
Dim DbE As dao.DBEngine
Dim Db As dao.Database
Dim strMsg As String
Try
DbE = New dao.DBEngine
Ws = DbE.Workspaces(0)
Db = Ws.OpenDatabase(strDb)
Catch ex As Exception
strMsg = "エラー番号 " & Str(Err.Number) & vbCrLf & _
Err.Source & " でエラーが発生しました。" & vbCrLf & Err.Description
MsgBox(strMsg, vbExclamation, "エラー")
End Try
End Function
End Module
VB2008からAccess2007へのDAO接続でエラーになります。
VB2008EEからDAO3.6を利用し、Access2007(*.accdb)に接続しようとしていますが、
エラーが発生してしまい、接続できません。
エラーの内容は下記のとおりです。
実行時エラー '3343': データベースの形式 'XXX' を認識できません。
Access2000のデータベース(*.mdb)には普通に接続できています。
Accessのバージョンを問わずに接続したい場合、どうすればよいのでしょうか？
参考までに現在のコードを記載しておきます。
※DAO3.6に参照設定してあります。
Imports dao
Module modConnectDb
Public Function DaoConnect(ByVal strDb As String) As Boolean 'strDb:データベースのファイルパス
Dim Ws As dao.Workspace
Dim DbE As dao.DBEngine
Dim Db As dao.Database
Dim strMsg As String
Try
DbE = New dao.DBEngine
Ws = DbE.Workspaces(0)
Db = Ws.OpenDatabase(strDb)
Catch ex As Exception
strMsg = "エラー番号 " & Str(Err.Number) & vbCrLf & _
Err.Source & " でエラーが発生しました。" & vbCrLf & Err.Description
MsgBox(strMsg, vbExclamation, "エラー")
End Try
End Function
End Module
以前にも同じような質問をされている方がいるかもしれませんが、
どなたかお知恵をお貸しください。
関数を使用して処理したいと考えております。
下記にファイルの一部を抜粋致しましたので、
ご教授のほど宜しくお願い致します。
現在の形
A B C D E
1 SHIRTS カラー黒 サイズ38 サイズ39 サイズ40
上記のような形で4000行くらいあります。
列は最長でABまで使用しております。
上記のようなデータを下記のような形に並べ替えたいと思っております。
希望の形
A B C
1 SHIRTS カラー黒 サイズ38
2 SHIRTS カラー黒 サイズ39
3 SHIRTS カラー黒 サイズ40
サイズの展開を横表示から縦表示に変更したいのです。
素人質問で申し訳ありませんが、どなたか宜しくお願い致します。
毎月、アンケート集計結果がエクセルで送られてきます。
中身は、商品名ごとにシートが分かれており、1行目はタイトル行となっています。（月によってデータ個数は変わります。）
年度毎の累計を別ブックで1枚のシートで作成したいと思っております。
その際マクロで、A列に月、B列に商品名と挿入し、かつ自動で、月と商品名が入力されるようにはできないでしょうか？
A B C D
1 時間 名前 ～ ～
2 ○時 ○○
3 ○時 ○○
↓
A B C D
1 月 商品名 時間 名前 ～ ～
2 ○月 ○○ ○時
3 ○月 ○○ ○時
また、タイトル行を除いた、複数の特定の列の最終行（入力されているセル）を取得し（上記とは別）別ブックの最終行（入力されているセルの次の空白セル）に転記できますか？
最近、『Visual Studio 2008 Professional Edition アカデミック版』の購入を考えています。
amazonを見てみると\11,020(2010年1月19日現在)となっているのですが、もっと安く入手する方法を知らないでしょうか？
できるだけ安く入手したいので、知っている方がいたら教えてください。
よろしくお願いします。
