应用 ODBC技术访问数据源的方法及实例

Include "mapbasic.def"

Include "icons.def"

Define connect_string "DSN=ORACLE7;SRV=t:whsco:scoora;USR=jxzy;PWD=

jxzy" '联接串，通过改变它就可以联接到不同的数据源

Global Dbnum As Integer '定义联接句柄

Sub Main

Dim curnum As Integer '定义语句句柄

Close All Interactive '环境清理

Print "正在联接Oracle数据库..."

Dbnum=Server_Connect("QELIB", connect_string)

'通过联接句柄联接数据源

Print Dbnum

Print "联接Oracle 数据库成功!"

curnum=Server_Execute(Dbnum,"select xmmc from zydmb where xmdm='HD01'"

'执行SQL语句

Server curnnm Fetch First '通过语句句柄提取数据

m_xmmc=server_columnInfo(curnum,1,SRV_COL_INFO_VALUE)

'通过语句句柄把数据放入变量中

'zydmb是一个库文件，xmmc,xmdm 是两个字段

..... '一些处理

Server curnum Close '释放语句句柄