ODBC API常用函数诠释

核心提示： 在lb_datasources的selectionchanged事件中写入如下代码：sle_uid.text=""sle_pwd.text=""sqldisconnect(hdbc)cbx_systemtables.enabled=truecb_co

在lb_datasources的selectionchanged事件中写入如下代码：

　　　sle_uid.text=""
　　sle_pwd.text=""
　　sqldisconnect(hdbc)
　　cbx_systemtables.enabled=true
　　cb_connect.enabled=true
　　lb_columns.reset()
　　lb_tables.reset()
　　sle_uid.setfocus()
　　cb_connect.default=true
　　在lb_tables的selectionchanged事件中写入如下代码：
　　integerli_ret,li_len
　　stringls_qualifier,ls_owner,ls_name,ls_column,ls_colname,ls_type
　　longll_maxlen
　　lb_columns.reset()
　　ls_qualifier=space(255)
　　ls_owner=space(255)
　　ls_column=space(255)
　　ls_colname=space(255)
　　ls_type=space(255)
　　ls_name=space(255)
　　ls_name=this.selecteditem()
　　li_ret=sqlcolumns(hstmt,ls_quanlifier,0,ls_owner,0,ls_name,len(ls_name),ls_column,0)
　　ifli_ret<0then
　　wf_sqlerror()
　　else
　　ls_colname=space(255)
　　ls_type=space(255)
　　ll_maxlen=255
　　sqlbindcol(hstmt,4,1,ls_colname,ll_maxlen,ll_maxlen)
　　sqlbindcol(hstmt,6,1,ls_type,ll_maxlen,ll_maxlen)
　　lb_columns.setredraw(false)
　　dowhilesqlfetch(hstmt)=0
　　lb_columns.additem(ls_colname+"~t"+ls_type)
　　loop
　　lb_columns.setredraw(true)
　　li_ret=sqlfreestmt(hstmt,0)
　　endif

在按钮cb_exit的clicked事件中写入以下代码:

　　　 close(parent)

在应用对象的open事件中写入以下代码：

　 open(w_odbc_data_sources)