Database 版 (精华区)

发信人: Banana_Chen@bbs.ustc.edu.cn (想和你去吹吹风), 信区: cndatabase
标  题: 如何用VB5.0实现对foxpro3.0数据库的访问？
发信站: 中国科大BBS站 (Sun Dec 14 20:41:00 1997)
转信站: Lilac!ustcnews!ustcnews!ustcbbs

请问需要安装哪些组件。
如何配置运行环境。


 我抄袭了一个例子，但编译时说SQLAllocEnv函数没定义。
 不知怎搞！


以下是该程序： 

Public Sub CheckDataValidity()
 
Dim rc As Integer, henv As Long
Dim hdbc As Long
Dim Dlen As Integer, DSN As String
'Dim hstmt As Long

'allocate the environment handle
rc = SQLAllocEnv(henv)

'Allocate a connection handle
rc = SQLAllocConnect(ByVal henv, henv, hdbc)

DSN = "/cj/dbf/Password.dbf"
UID = ""            'use Windows NT 's UID
PWD = ""            'use Windows NT 's PWD

'connect using the arguments provided
rc = SQLConnect(hdbc, DSN$, Len(DSN$), UID, Len(UID), PWD, Len(PWD))

'Test for a successful connection
If rc = SQL_SUCCESS Or rc = SQL_SUCCESS_WITH_INFO Then
 ok = "connect ok"
 Else 
 ok = "not connect"
 End If
 

End Sub



 

--
※ 来源: 中国科大BBS站 [bbs.ustc.edu.cn]