146.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 40 行

直接通过 ODBC API 访问 SQL 数据库   
 
*********************************
ODBC - Open DataBase Connectivity
*********************************

Basic Steps

Connecting to the SQL Server DataBase for retrieving information from tables


*************************************************************
The steps 1 - 3 are for connecting to the SQL Server Database
*************************************************************


1. Allocate ODBC Environment Handle

If SQLAllocEnv(glEnv) <> 0 Then
　　MsgBox "Unable to initialize ODBC API drivers!"
　　End
End If
______________________________________________________________

2. Allocate ODBC Database Handle

Dim iStatus As Integer

If SQLAllocConnect(glEnv, glDbc) <> 0 Then
　　MsgBox "Could not allocate memory for connection Handle!"
　　ODBCInit = False

　　' Free the Environment
　　iStatus = SQLFreeEnv(lEnv)

　　If iStatus = SQL_ERROR Then
　　　　MsgBox "Error Freeing Environment From ODBC Drivers"
　　End If

　　' Quit the