什么客户端都不需要. Dim curConnection As ADODB.Connection Dim rs As ADODB.Recordset Dim strds As String Dim strconn As String strds = Chr(34) & "(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.1.3)(PORT=1521)))(CONNECT_DATA=(SERVICE_NAME=CWGL)))" & Chr(34) strconn = "Provider=MSDAORA.1;Password=manager;User ID=system;Data Source=" & strds & ";Persist Security Info=True" Set curConnection = New ADODB.Connection Set rs = New ADODB.Recordset curConnection.Open strconnrs.Open "select count(*) from tabs", curConnection, adOpenStatic, adLockReadOnly MsgBox rs.Fields(0).Value rs.Close curConnection.Close 我用的是ADODB.
注册表部分用小程序改不行吗?
让不懂的客户弄可费尽了
Dim curConnection As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strds As String
Dim strconn As String
strds = Chr(34) & "(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.1.3)(PORT=1521)))(CONNECT_DATA=(SERVICE_NAME=CWGL)))" & Chr(34)
strconn = "Provider=MSDAORA.1;Password=manager;User ID=system;Data Source=" & strds & ";Persist Security Info=True"
Set curConnection = New ADODB.Connection
Set rs = New ADODB.Recordset
curConnection.Open strconnrs.Open "select count(*) from tabs", curConnection, adOpenStatic, adLockReadOnly
MsgBox rs.Fields(0).Value
rs.Close
curConnection.Close 我用的是ADODB.