網絡數據庫考試題,網絡數據庫系統( 三 )


下面的代碼使用上面一些函數先登錄到一個服務器數據庫 , 并為隨后的工作設置了語句句柄 。
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庫并登錄到服務器的通用例程

推薦閱讀