1个回答
--调用数据库范例dbType:="Microsoft Access Driver (*.mdb)"--定义数据库类型dbList:="DSN=自动配置数据源;"--设置新建的数据源名为"示例"。dbList:=dbList^"Description=My ODBC DSN;"--对数据源说明。dbList:=dbList^"FIL=MS Access;"--说明数据源的类型是"Access"数据库。dbList:=dbList^"DBQ="^FileLocation^"data\\wxck.mdb;"--与数据源相连接的数据库名为"wxck.mdb"。result:=tMsDBRegister(4,dbType,dbList)--创建一个新的系统数据源。DataSourceName:="自动配置数据源"ODBCError:=""ODBCHandle:=ODBCOpen(WindowHandle,ODBCError,DataSourceName,"","")--调用ODBCOpen函数打开数据源 MC Access Driver，返回数据库句柄存放在自定义变量ODBCHandle中。--如果出错,错误信息存放于自定义变量ODBCError中。SQLString:="SELECT ID,smmc,zz,cbs,bc FROM wxsm ORDER BY ID"SQLData:=ODBCExecute(ODBCHandle,SQLString)--调用ODBCExecute函数 执行由自定义变量SQLString表示的SQL命令，--返回的结果存 放在自定义变量SQLData中if ODBCError "" then SQLData:="ODBC出错"^ODBCErrorend if--判断自定义ODBCError是否为空，如果不为空--则表示ODBC出错，会将具体的错误信息返回--给自定义变量ODBCData。--移除刚自动配置的数据源DBRReqType:=6ODBCSourceInstalled:= tMsDBRegister(DBRReqType,dbType,dbList)