下面的代码使用上面一些函数先登录到一个服务器数据库 , 并为随后的工作设置了语句句柄 。
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库并登录到服务器的通用例程
推荐阅读
- 如何确定绩效考核的内容 如何确定绩效考核的分值
- 网络赌博与实体赌博不一样地方在哪里?怎么去制止赌博?
- 边界不设防 网络安全中,边界防范的根本作用?
- 免费网络电话软件,免费网络电话无限打
- 在网络上赌博输了几万或者几十万,可以报警拿回来吗?
- 笔记本电脑怎么安装无线网络适配器 笔记本电脑如何安装无线网络适配器及程序
- 考勤管理系统操作方法 免费考勤系统软件APP
- 笔记本电脑怎么连接网线上网,笔记本怎么连网络步骤
- 石家庄自学考试网站,石家庄自学考试专业
- 报名考研需要什么条件,考研要求条件