网络数据库考试题,网络数据库系统( 三 )


下面的代码使用上面一些函数先登录到一个服务器数据库 , 并为随后的工作设置了语句句柄 。
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 SQLAllocEnv(giHEnv)<>SQL_SUCCESS Then
MsgBox"Allocation couldn注释:t happen!"
End If
If SQLAllocConnect(giHEnv,giHDB)<>SQL_SUCCESS Then
MsgBox "SQL Server couldn注释:t connect!"
End If
myConnection="DSN=myServer;UID=LCL;PWD=;APP=ODBCTest;WSID=LCL;DATABASE=sales"
myResult=SQLDriverConnect(giHDB,Test,form1.hWnd,myConnection.len(myConnection),myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQUIED)
myResult=SQLAllocStmt(giHDS,giHStmt)
myResult=SQLFreeStmt(giHStmt,SQL_COLSE)
rsSQL="Select * from Customers Where City = "Hunan""
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文件 。
一般的DB库API编程的过程是这样的:先通过调用SqlInit对DB库进行初始化 , 再调用SqlConnection打开一个连接 , 然后就可做一些工作 。下面的代码是一个初始化DB库并登录到服务器的通用例程

推荐阅读