connect_to_oracle816_oci.mb

来自「很多的MAPINFO的常见问题下载后可以学习很有帮助」· MB 代码 · 共 36 行

include "mapbasic.def"
include "menu.def"
include "icons.def"

declare sub main
declare sub sub1
declare sub exit_sub
declare sub pushbtn_sub


sub main
	create menu "test" as 
		"Connet to Oracle Spatial" calling sub1,
		"exit" calling exit_sub
	alter menu bar add "test"

	Create ButtonPad "testbtnpad" As 
		PushButton Calling pushbtn_sub
			id 11111
			Icon MI_ICON_ZOOM_QUESTION 
end sub

sub sub1
	run menu command id 11111
end sub

sub exit_sub
	end program
end sub

sub pushbtn_sub
	dim serverid as integer
	serverid = server_connect("orainet","uid=system;pwd=manager;srvr=orcl816.mapinfo.com.cn")
	Server serverid Link Table "select * from CHINA" toolkit "orainet"  Into temptabname File "C:\temp\temptabname.TAB"
	Map From temptabname
end sub