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

Print "退出Oracle 数据库成功!"

End MapInfo '退出MapInfo

End Sub

在上面的程序中，基本上是按照前面所述的步骤来进行的，但它又是不同的，它有很多步骤都没有或省略了，因为它们在Maplnfo中并不是必要的。上面还有关于执行Select语句的数据处理。

下面再举例说明lnsert语句的使用以及错误处理。假设前面已联接数据库成功，句柄还是Dbnum。

Dim str As String

Dim curnum As lnteger

Dim m_xmmc, m_xmdm As String

Str="insert into zydmb(xmmc,xmdm) Values("+ "'"+ m_xmmc+ "'"+","

+m_xmdm+"'"+")"

curnum =Server_Execute(Dbnum,str) '执行SQL语句

Server Dbnum Begin Transaction '开始事务

Server Dbnum Commit '事务提交

Server curnum Close '释放句柄

Onerror Goto err '若出错跳转

Goto ok '正确跳转

err:Print "Error!..."

Server Dbnum Begin Transaction '开始事务

Server Dbnum Rollback '事务回退

Server curnum Close '释放句柄

Server Dbnum Disconnect '与数据源脱离联接

ok: Print "OK....."

其中，str中用了字符串相加，因为m_xmmc与m_xmdm对于Oracle 数据库是外部的变量，在MapBasic中必须这样处理。