VB访问SQLServer的探讨
gt;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))
方法3.使用VBSQL对DB库API编程
DB库是SQL Server的本地API，SQL Server的Visual Basic库(VBSQL)为Visual Basic程序员提供API。从一定意义上说，VBSQL是连接Visual Basic程序到SQL Server的性能最好最直接的方式。VBSQL包含以下三个文件：
VBSQL.VBX 包含库函数，具有访问重要的消息和处理错误的能力
VBSQL.BI 包括所有的常量和变量说明
VBSQL.HLP Windows帮助文件，使用VBSQL的指南
使用VBSQL时，必需将VBSQL.BI加入到Visual Basic工程文件中，并确保VB程序运行时有
VBSQL.VBX文件。
一个典型的VBSQL对话中，一般要用到以下这些函数。
函数 功能
Sqllnit 在客户机上装载DB库
SqlOpenConnection 打开服务器连接，返回连接句柄
SqlCmd 在客户机上建立批处理命令
SqlExec 向服务器提交批处理命令
Sqlrexu|ts 把客户机定位在第一条(或下一条)结果集的开端
SqlNextRow 驱动每个结果集的行之间的循环
SqlData 访问一个特定列的数据
SqlC|ose 切断特定的连接
SqlExit 切断所有找开的连接
SqlWinExit 卸下DB库
一般的DB库API编程的过程是这样的：先通过调用SqlInit对DB库进行初始化，再调用
SqlConnection打开一个连接，然后就可做一些工作。下面的代码是一个初始化DB库并
登录到服务器的通用例程。
Private Sub |nitia|izeApp|ication()
DBL|B-VERS|ON=Sq||nit()
|f DBL|B_VERS|ON=""Then
MsgBox"Could not initia|ize DBL|B!Exit app|ication.", MB_|CONEXCLAMAT|ON
End
End if
End Sub
Private Function LoginToServer() As integer
loginToServer=SUCCEED
Status%=Sq|SetloginTime%(loginTimeOut)
|f giSq|Conn<>0 Then
Sq|C|ose(giSq|Conn) ''关闭已打开的连接
giSq|Conn=Sq|OpenConnection(gsServerName,gsLogin|D,gsPassword,Progr amName,ProgramName)
|f giSq|Conn<>o Then
|iresu|t=Sq|Use(giSq|Conn,"Sales")
Else
LogintoServer=FA|L
End |f
End Function
性能比较
以上三种访问SQL Server的方法各有各的特点。DAOs方法是基于对象的，因而便于使用，但是它从Visual Basic到SQL Server的最慢的方式。ODBC API和VBSQL方法从本质上讲是基于程序的。ODBC API方法通用性好，允许最强的互操作性，编程简单，但速度慢于VBSQL方法。VBSQL方法通过VBSQL控件，提供了重要的SQL` Server前端应用程序所需的灵活性、强大功能和良好性能。它具有真正的事件驱动及错误处理能力，完全支持异步处理、游标和计算列等。这些都是VBSQL方法超出其它方法的优势，但其编程稍复杂。至于实际使用哪一种接口方式，在很大程度上依赖于用户的应用程序的具体情况而定。
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))
方法3.使用VBSQL对DB库API编程
DB库是SQL Server的本地API，SQL Server的Visual Basic库(VBSQL)为Visual Basic程序员提供API。从一定意义上说，VBSQL是连接Visual Basic程序到SQL Server的性能最好最直接的方式。VBSQL包含以下三个文件：
VBSQL.VBX 包含库函数，具有访问重要的消息和处理错误的能力
VBSQL.BI 包括所有的常量和变量说明
VBSQL.HLP Windows帮助文件，使用VBSQL的指南
使用VBSQL时，必需将VBSQL.BI加入到Visual Basic工程文件中，并确保VB程序运行时有
VBSQL.VBX文件。
一个典型的VBSQL对话中，一般要用到以下这些函数。
函数 功能
Sqllnit 在客户机上装载DB库
SqlOpenConnection 打开服务器连接，返回连接句柄
SqlCmd 在客户机上建立批处理命令
SqlExec 向服务器提交批处理命令
Sqlrexu|ts 把客户机定位在第一条(或下一条)结果集的开端
SqlNextRow 驱动每个结果集的行之间的循环
SqlData 访问一个特定列的数据
SqlC|ose 切断特定的连接
SqlExit 切断所有找开的连接
SqlWinExit 卸下DB库
一般的DB库API编程的过程是这样的：先通过调用SqlInit对DB库进行初始化，再调用
SqlConnection打开一个连接，然后就可做一些工作。下面的代码是一个初始化DB库并
登录到服务器的通用例程。
Private Sub |nitia|izeApp|ication()
DBL|B-VERS|ON=Sq||nit()
|f DBL|B_VERS|ON=""Then
MsgBox"Could not initia|ize DBL|B!Exit app|ication.", MB_|CONEXCLAMAT|ON
End
End if
End Sub
Private Function LoginToServer() As integer
loginToServer=SUCCEED
Status%=Sq|SetloginTime%(loginTimeOut)
|f giSq|Conn<>0 Then
Sq|C|ose(giSq|Conn) ''关闭已打开的连接
giSq|Conn=Sq|OpenConnection(gsServerName,gsLogin|D,gsPassword,Progr amName,ProgramName)
|f giSq|Conn<>o Then
|iresu|t=Sq|Use(giSq|Conn,"Sales")
Else
LogintoServer=FA|L
End |f
End Function
性能比较
以上三种访问SQL Server的方法各有各的特点。DAOs方法是基于对象的，因而便于使用，但是它从Visual Basic到SQL Server的最慢的方式。ODBC API和VBSQL方法从本质上讲是基于程序的。ODBC API方法通用性好，允许最强的互操作性，编程简单，但速度慢于VBSQL方法。VBSQL方法通过VBSQL控件，提供了重要的SQL` Server前端应用程序所需的灵活性、强大功能和良好性能。它具有真正的事件驱动及错误处理能力，完全支持异步处理、游标和计算列等。这些都是VBSQL方法超出其它方法的优势，但其编程稍复杂。至于实际使用哪一种接口方式，在很大程度上依赖于用户的应用程序的具体情况而定。