tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^4: MS-ACCESSの解放が出来ません
投稿日: 2016/02/03(Wed) 16:41
投稿者SUZUKI
> > 実はVB2005への変換で、他にもいっぱいつまずいておりまして
> 2005 化にあたり、「Option Strict On」でコンパイルできることを目指すと良いですよ。
最終的には「Option Strict On」にしたいと思います
現時点では、技量が無く収集がつかなくなり中止しています



> >         Dim tblDefs As Object
> >         Dim tblNew As Object
> >         Dim flds As Object
> これらの型は、
>  Dim tblDefs As DAO.TableDefs
>  Dim tblNew As DAO.TableDef
>  Dim flds As DAO.Fields
> が適切かと。
>
なるほど、勉強になります
最終形は下記のようになると思うのですが
fld1 の定義ですがObjectでよろしいのでしょうか
Object型も実はよくわかっておらずはずかしいです

        Dim DB As dao.Database
        Dim tblDefs As dao.TableDefs
        Dim tblNew As dao.TableDef
        Dim flds As dao.Fields
        Dim fld As dao.Field
        Dim fld1 As Object
        Dim CC As Short
        Dim CC1 As Short
        Dim fieldflag As Boolean
        DB = dbe.OpenDatabase(DbName)
        tblDefs = DB.TableDefs
        tblNew = tblDefs("DATABASE")
        flds = tblNew.fields
        cc1 = flds.COUNT - 1
        For CC = 0 To cc1
            fld = flds(CC)
            fld1 = fld.name
            If fld1.ToString = "A区分" Then
                fieldflag = True
            End If
            MRComObject(fld1)
            MRComObject(fld)
        Next

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。