[求助]请问怎么用ODBC连接数据库????
我使用的是VB+SQL2000,现在出现了一个连接问题,请问怎么用ODBC连接数据库???越详细越好,谢谢了~~~~~~
Dim myResult As integer?
Dim myConnection As Srting?
Dim myBuff As String*256
Dim myBufflen As Integer?
If SQLA||ocEnv(giHEnv)<>SQL_SUCCESS Then
MsgBox"A||ocation couldn't happen!"
End if
if SQL||ocConnect(giHEnv,giHDB)<>SQL_SUCCESS Then
MsgBox "SQL Server couldn't connect!"
End if
myConnection="DSN=.;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="SQL语句"
myResult=SQLExecDirect(giHStmt,rsSQL,Len(rsSQL))
其中
SQLALLocEnv 初始化ODBC环境,返回环境句柄?
SQLALLocConnect 为连接句柄分配内存并返回连接句柄?
SQLConnect 连接一个SQL数据资源?
SQLDriverConnect 连接一个SQL数据资源,允许驱动器向用户询问信息
SQLALLocStmt 为语句句柄分配内存并返回语句句柄?
SQLExecDirect 把SQL语句送到服务器?
SQLFetchAdvances 到结果集的下一行(或第一行)?
SQLGetData 从结果集的特定的一列取回数据?
SQLFreeStmt 释放与语句句柄相关的资源?
SQLDisconnect 切断连接?
SQLFreeConnect 释放与连接句柄相关的资源?
SQLFreeEnv 释放与环境句柄相关的资源?