リンクテーブル追加

  AccAddLink.vbs



  
Call AddLink()

function AddLink()

	Dim Acc,newDef

	Set Acc = CreateObject("Access.Application")

	Acc.OpenCurrentDatabase( "c:\temp\販売管理B.mdb" )

	Set newDef = Acc.CurrentDb.CreateTableDef("新しいリンク")
	newDef.Connect = ";DATABASE=c:\temp\販売基本.mdb"
	newDef.SourceTableName = "社員マスタ"
	Acc.CurrentDb.TableDefs.Append (newDef)

end function
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ