vb连接oracle出现错误

Question

dsn是你在odbc中加的服务名,你加了吗?

Answer 1

我用独立启动可以正常启动,输入用户名scott与密码tiger是可以进去的.但是用"登录到Oracle Management Server"输入用户名sysman,密码oem_temp,Management Server是我的主机名image,他显示出:VTK-1000:无法连接到Management Server image.请验证您已输入Oracle Management Server的正确主机名和状态.

Answer 2

vb连接oracle的源程序如下:
Ls_server = "MYWKMAN1"
'联接本地Oracle数据库
Ls_username = "system"
'用户名为 system
Ls_password = "manager"
'密码为 manager
'建立 OraSession 对象
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
'错误处理
On Error GoTo Connect_err:
'建立OraDatabase 对象以联接到Oracle数据库
Set OraDatabase = OraSession.DbOpenDatabase(Ls_server, Ls_username + "/" + Ls_password, 0&)
On Error GoTo 0
Exit Sub
Connect_err:
If InStr(OraSession.LastServerErrText, "ORA-01017") Then
MsgBox "无效的用户名和密码，数据库联接不成功！", vbOKOnly + vbCritical, "提示信息"
Else
MsgBox "数据库联接不成功！请查看下面的出错信息：" + Chr(13) + OraSession.LastServerErrText, vbOKOnly + vbCritical, "提示信息"
End If运行vb,显示:数据库连接不成功!请查看下面的出错信息:
Ora-12560:TNS:协议适配器错误.
注:服务中的OracleOraHome90TNSListener与OracleServiceMYWKMAN1已经启用,注册表中的首选SID也是(mywkman1).