VB数据库程序在别人电脑上运行就无法连接
本人用VB6+SQL2005写了个简单的书籍管理系统,用的ODBCAPI访问数据库,程序写好后在本机运行良好,但是无论是打包后安装在局域网电脑上,还是采用共享,映射网络磁...
本人用VB6+SQL2005写了个简单的书籍管理系统,用的ODBC API访问数据库,程序写好后在本机运行良好,但是无论是打包后安装在局域网电脑上,还是采用共享,映射网络磁盘都不能正常运行,提示“无法获得连接句柄”.
省略前面的声明
'连接数据库
Private Sub Connect()
Dim TmpStat As Long 'SQLConnect()函数的返回值
'如果连接标记为真,则返回。否则会出错
If IsConnect = True Then
Exit Sub
End If
'分配环境句柄,保存在变量Henv中
If SQLAllocEnv(Henv) Then
MsgBox "无法初始化ODBC环境!", , "ODBC API执行错误"
End
End If
'根据环境句柄,分配连接句柄,保存在变量Hdbc中
If SQLAllocConnect(Henv, Hdbc) Then
MsgBox "无法连接ODBC!", , "ODBC API执行错误"
End
End If
'根据连接句柄、数据源、用户名和密码连接指定的数据库
TmpStat = SQLConnect(Hdbc, dsn, Len(dsn), db_user_name, _
Lench(db_user_name), db_password, Len(db_password))
'如果连接不成功则退出程序
If TmpStat <> SQL_SUCCESS And _
TmpStat <> sql_success_with_info Then
MsgBox "无法获得连接句柄!", , "ODBC API执行错误"
IsConnect = True
Disconnect
End
End If
'设置连接标记
IsConnect = True
End Sub
请高手帮忙看看,是需要额外写什么连接的东西,还是说是其他什么问题 展开
省略前面的声明
'连接数据库
Private Sub Connect()
Dim TmpStat As Long 'SQLConnect()函数的返回值
'如果连接标记为真,则返回。否则会出错
If IsConnect = True Then
Exit Sub
End If
'分配环境句柄,保存在变量Henv中
If SQLAllocEnv(Henv) Then
MsgBox "无法初始化ODBC环境!", , "ODBC API执行错误"
End
End If
'根据环境句柄,分配连接句柄,保存在变量Hdbc中
If SQLAllocConnect(Henv, Hdbc) Then
MsgBox "无法连接ODBC!", , "ODBC API执行错误"
End
End If
'根据连接句柄、数据源、用户名和密码连接指定的数据库
TmpStat = SQLConnect(Hdbc, dsn, Len(dsn), db_user_name, _
Lench(db_user_name), db_password, Len(db_password))
'如果连接不成功则退出程序
If TmpStat <> SQL_SUCCESS And _
TmpStat <> sql_success_with_info Then
MsgBox "无法获得连接句柄!", , "ODBC API执行错误"
IsConnect = True
Disconnect
End
End If
'设置连接标记
IsConnect = True
End Sub
请高手帮忙看看,是需要额外写什么连接的东西,还是说是其他什么问题 展开
若以下回答无法解决问题,邀请你更新回答
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询