感觉是不是我的客户端电脑oracle少了什么东西？

主电脑装了oracle 11g   在主电脑可以打开这个EXE   客户端电脑上只装了简单的oracle客户端 打开的时候就报图片上的错

你这里说的主电脑与客户端是不是联网了，如果联网了（应该是局域网），文件【过程1.exe】应该在主电脑（实际叫服务器），客户端调用exe文件。
服务器的exe文件放在一个目录，在服务器共享这个目录，客户端调用这个目录，运行这个exe文件应该就可以了。
如果没有联网，客户端必须安装 Oracle 11g 的主程序，因为 Oracle 11g 的客户端差异比较大，很多功能 Oracle 11g 的客户端没有。

刚好写过：

Option Explicit

Private Sub Command1_Click()
    '需要安装oracle客户端驱动
    Dim t As String
    Dim txt As String
    Dim cn As New ADODB.Connection
    Dim cmd As New
    Dim rs As New ADODB.Recordset
    Me.Caption = "wait..."
    Text1 = ""
    On Error GoTo Er1
    With cn
        If .State = adStateOpen Then
            .Close
        End If
        .CursorLocation = adUseClient
        .ConnectionString = " Provider=OraOLEDB.Oracle;Password=111111;User ID=myuser01;Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP) (HOST =192.168.166.142)(PORT=1521))) (CONNECT_DATA=(SERVICE_NAME=orcl)));Persist Security Info=True "
        .CommandTimeout = 0
        .Open
    End With
    cmd.ActiveConnection = cn
    = "select subsys_no, menuid, subsys_id, funcname, funccode, funcimg, sort_no, issub, btnname, parentfunc from xt_func"
    Set rs = cmd.Execute
    If Not rs.EOF Then
        t = rs("menuid") + "," + rs("funcname")
        txt = txt + t + vbCrLf
    End If
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cmd = Nothing
    Set cn = Nothing
    Text1 = txt
    Me.Caption = "ok"
    Exit Sub
Er1:
    Me.Caption = "error"
    Text1 = Err.Description
    Err.Clear
    Set rs = Nothing
    Set cmd = Nothing
    Set cn = Nothing
End Sub

这个能用

[此贴子已经被作者于2017-7-21 10:45编辑过]

4楼说的对

不能知识把EXE文件考过去，要把里边所有的模块都考过去

用ADO就可以了啊，哪里来的这么费事