我没有用过oracle数据库,现在要实现客户端连接服务器的orcale数据库,现在程序连接服务器本地好使,客户端连接服务器就不可以。 g_strCnn = " Provider=OraOLEDB.Oracle;" _
& " Password=" & strYdPassWord & ";" _
& " User ID=" & strYdDBName & ";" _
& " Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP) " _
& " (HOST =192.168.3.119)(PORT=1521)))" _
& " (CONNECT_DATA=(SERVICE_NAME=" & strYdSerName & ")));" _
& " Persist Security Info=True "
这个是我的数据源。大家帮忙看看。不胜感激。
& " Password=" & strYdPassWord & ";" _
& " User ID=" & strYdDBName & ";" _
& " Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP) " _
& " (HOST =192.168.3.119)(PORT=1521)))" _
& " (CONNECT_DATA=(SERVICE_NAME=" & strYdSerName & ")));" _
& " Persist Security Info=True "
这个是我的数据源。大家帮忙看看。不胜感激。
解决方案 »
- 请高手帮我看段程序,实在是没弄明白
- 请问这样的效果怎么做?DataCombo显示一个字段name,其值为字段name对应的字段ID
- 如何获取treeview节点的mousemove事件
- 高手,指点一下啊!在线等!至少一个参数未被指定值!!!!!
- ASP调用自制dll中可以使用webbrowser控件吗
- VB当中的颜色代码有什么样的规律,是按照什么编排的????
- 能不能用listbox显示数据库名
- 让很多都头疼的问题。 用VB处理100M以上的大文件如何加快速度?
- 如何用WEBBROWSER控件实现在浏览器中点击超链接时不弹出新窗口,新页面永远在当前窗口显示?
- 关于ADO的问题
- VB用line在picture中画图,如何显示全部内容
- AutoCAD VBA怎么实现这个功能:鼠标左键单击拾取该点的坐标,右键单击结束
linkcn = " Provider=OraOLEDB.Oracle.1;Persist Security Info=true;Data Source=数据源;User ID=Username;Password=Password "
Public Function ReturnRs(ByVal sql As String) As ADODB.Recordset
On Error GoTo errhandle
Dim OraDB As New ADODB.Connection
Set OraDB = New ADODB.Connection
Set ReturnRs = New ADODB.Recordset
With OraDB
.CursorLocation = adUseServer
.Open g_strCnn
Set ReturnRs = .Execute(sql)
m_bln = True
End With
Exit Function
errhandle:
m_bln = False
Call DisplayMessageBox(Err.Description)
End Function