テーブル名称変更

  AccRename.vbs



  
' VIEW と TABLE がターゲット
Call RenameTable()

MsgBox "pause"

' TABLEのみ。VIEW は Views コレクション
Call RenameTable2()

function RenameTable()

	Dim Acc

	on error resume next

	Set Acc = CreateObject("Access.Application")
	Acc.OpenCurrentDatabase( "c:\temp\販売管理B.mdb" )
	Acc.CurrentDb.TableDefs("社員マスタ").Name = "社員マスタB"

	on error goto 0

end function

function RenameTable2()

	Dim Ac

	on error resume next

	Set Ac = CreateObject("ADOX.Catalog")
	Ac.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
		"Data Source=c:\temp\販売管理B.mdb;"
	Ac.Tables("社員マスタB").Name = "社員マスタ"
	Ac.Tables.Refresh

	on error goto 0

end function
  










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




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


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

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ