|
|
方法2.用odbc api编程
odbc(open database connectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(odbc.dll)的动态连接中。应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器反过来通来驱动器(sqlsrvr.dll)把它们送到服务器中。
用odbc api编程，一般要用到以下一些函数。下面列出了常用的函数以及它们的功能。
下面的代码使用上面一些函数先登录到一个服务器数据库，并为随后的工作设置了语句句柄。
global gihenv as long
global gihdb as long
global gihstmt as long
dim myresult as integer
dim myconnection as srting
dim mybuff as string*256
dim mybufflen as integer
if sqla||ocenv(gihenv)<>sql_success then
msgbox"a||ocation couldn’t happen!"
end if
if sql||occonnect(gihenv,gihdb)<>sql_success then
msgbox "sql server couldn’t connect!"
end if
myconnection="dsn=myserver;uid=|c|;pwd=;app=odbctest;ws|d=lcl;
database=sales"
myresult=sqldriverconnect(gihdb,test,form1.hwnd,myconnection
.len(myconnection),
mybuff,256,mybufflen,sql_driver_complete_requied)
myresult=sqla||ocstmt(gihds,gihstmt)
myresult=sqlfreestmt(gihstmt,sql_colse)
rssql="select*from customers where city="wuhan""
myresult=sqlexecdirect(gihstmt,rssql,len(rssql))
|
|
