Visual Basic Tips

Ｊｅｔデータベース（ＤＡＯ）アタッチテーブルの作成と削除

Ｊｅｔデータベースの中にアタッチテーブルを作成します。

※このサンプルを動かすにはVisual Basic Tipsの
　Ｊｅｔデータデース（ＤＡＯ）データベースの作成と削除
　Ｊｅｔデータベース（ＤＡＯ）テーブルの作成と削除
　を行ってデータベースとテーブルを作成してください。


Private Sub Form_Load()
　　Call CreateConnect(App.Path & "\work.mdb",App.Path & "\atch.mdb")
End Sub


Sub CreateConnect(strDbPath As String, strAtachPath As String)
　　Dim intRet As Integer
　　Dim db As Database
　　Dim ws As Workspace
　　Dim tdf As TableDef

　　On Error GoTo ErrHandler

　　Set db = Workspaces(0).OpenDatabase(strAtachPath)
　　Set tdf = db.CreateTableDef("新規アタッチテーブル")

　　tdf.Connect = ";DATABASE=" & strDbPath
　　tdf.SourceTableName = "新規テーブル１"
　　db.TableDefs.Append tdf

　　db.Close
　　Exit Sub
ErrHandler:
　　If Err = 3012 Then 'アタッチテーブルが既に存在
　　　　db.TableDefs.Delete "新規アタッチテーブル"
　　　　Resume
　　End If
　　intRet = MsgBox("<" & Err & ">" & Error(Err), vbOKOnly, "CreateConnect")
End Sub



DownLoad vbtips017.lzh 13KB (VB6.0)