- PR -

Access97のdbCurrent.TableDefs.Attributesについて質問

1
投稿者投稿内容
mso
ぬし
会議室デビュー日: 2003/12/04
投稿数: 496
お住まい・勤務地: 宮城
投稿日時: 2005-03-18 11:11
msoです。


ACCESS97で作られたシステムの解析をやっているのですが、
現在よくわからないし、GooGleなどで検索をしても見つからないので
ご存知の方がいたら教えてください。


コード:
Public Function ConvertAtoB()

    Dim tbdTable  As TableDef
    Dim dbCurrent As Database
    Dim strTemp   As String
    
    On Error Resume Next
    
    Set dbCurrent = CurrentDb
    
    For Each tbl In dbCurrent.TableDefs
    
        If tbl.Attributes = 537001984 Then
            strTemp = tbl.Name
            tbl.Name = "hoge_" & strTemp
            DoCmd.TransferDatabase acLink, "ODBC ﾃﾞｰﾀﾍﾞｰｽ", _
                "ODBC;DSN=ordersql;UID=admin;PWD=pass;", acTable, strTemp, strTemp
            
        End If
        
    Next
    
    Set dbCurrent = Nothing
    
End Function


上記のプログラムに存在する
tbl.Attributes = 537001984
についてですが、537001984 が何を意味しているのか
よく分かりません。
ご存知の方がいたら教えてください。
よろしくお願いします。
きくちゃん
ぬし
会議室デビュー日: 2003/08/01
投稿数: 854
お住まい・勤務地: 都内某所
投稿日時: 2005-03-18 11:39
msoさん、こんにちは。

引用:

tbl.Attributes = 537001984
についてですが、537001984 が何を意味しているのか


オブジェクトブラウザで TableDefAttributeEnum を調べてみましょう。

dbAttachedODBC(&H20000000) + dbAttachSavePWD(&H20000) かな？
mso
ぬし
会議室デビュー日: 2003/12/04
投稿数: 496
お住まい・勤務地: 宮城
投稿日時: 2005-03-18 12:30
msoです。

毎度お世話になっています。


引用:

オブジェクトブラウザで TableDefAttributeEnum を調べてみましょう。

dbAttachedODBC(&H20000000) + dbAttachSavePWD(&H20000) かな？



オブジェクトブラウザで検索をしてみたのですが、
TableDefAttributeEnumが見つかりませんでした。
ひょっとしたら今はAccess97がないので、
Access2000のオブジェクトブラウザを使っているためかもしれません。


で、
dbAttachedODBC(&H20000000) + dbAttachSavePWD(&H20000) かな？
なのですが、ODBC接続で、パスワードを保存していあるものという
ことでいいのでしょうか？
きくちゃん
ぬし
会議室デビュー日: 2003/08/01
投稿数: 854
お住まい・勤務地: 都内某所
投稿日時: 2005-03-18 13:27
msoさん、こんにちは。

引用:

ひょっとしたら今はAccess97がないので、
Access2000のオブジェクトブラウザを使っているためかもしれません。

ああ、2000 では、デフォルトで DAO が参照設定されていないから（ADOが標準…）でしょう。

引用:

なのですが、ODBC接続で、パスワードを保存していあるものという
ことでいいのでしょうか？

ですね。
mso
ぬし
会議室デビュー日: 2003/12/04
投稿数: 496
お住まい・勤務地: 宮城
投稿日時: 2005-03-18 13:58
msoです。

Accessが分かっていないために余計なお手間をとらせて
しましましたがなんとか理解することが出来ました。
ありがとうございます。
1

スキルアップ／キャリアアップ（JOB@IT）