Function GetSql1(strSQL) Dim objConn set objConn=Server.CreateObject("ADODB.Connection") objConn.Open "PROVIDER=SQLOLEDB;Data Source=192.168.0.2;uid=saiko;pwd=saiko;database=dataname" set GetSql=Server.CreateObject("ADODB.Recordset") GetSql.Open strSQL,objConn,3,2 End Function
2、Global Const G_ADO_ConStr As String = _ "Provider=SQLOLEDB.1;User ID=aaa;Password=bbb;Persist Security Info=True;Initial Catalog=XXX_MIS;Data Source=XXX-SERVER"用下列程序测试没问题: '' spOption Public Function spOption(First As Integer, _ Optional Second As Integer, _ Optional Third As Integer _ ) As ADODB.Recordset
On Error GoTo ErrorProcess
Dim Conn As ADODB.Connection Dim p_RS As ADODB.Recordset Dim p_X As ADODB.Connection Dim sTmp As String
Dim p_Cmd As Command Dim p_Param As ADODB.Parameter
m_SuccessOrNot = False
'sTmp = "Sp_spOption " & SeqNo
'' Open ADO connection Set Conn = New ADODB.Connection Set p_RS = New ADODB.Recordset
Set p_Cmd = New Command Set p_Param = New ADODB.Parameter
p_Cmd.Parameters("@third") = Third 'p_Cmd.Parameters("@First") = First p_Cmd.Parameters("@Second") = Second
'' Get the data from DB Set p_RS = p_Cmd.Execute
Debug.Print p_RS(0), ",", p_RS(1), ",", p_RS(2)
Set spOption = p_RS m_SuccessOrNot = True
Exit Function
ErrorProcess: Set spOption = Null m_SuccessOrNot = False Exit Function End Function
存储过程代码为:CREATE PROCEDURE aaa.spOption @first int = NULL, -- NULL default value @second int = 2, -- Default value of 2 @third int = 3 -- Default value of 3 AS-- Display values. SELECT @first, @second, @third GO没时间仔细看你的连接串,但感觉是有问题。
另在SQL Server客户端网络实用工具中启用TCP/IP协议。
db_string ="Provider=SQLOLEDB.1;PassWord=密码;Persist Security Info=False;User ID=sa;Initial Catalog=" & db_name & ";Data Source=192.168.0.2"
另在SQL Server客户端网络实用工具中启用TCP/IP协议。
Dim objConn
set objConn=Server.CreateObject("ADODB.Connection")
objConn.Open "PROVIDER=SQLOLEDB;Data Source=192.168.0.2;uid=saiko;pwd=saiko;database=dataname"
set GetSql=Server.CreateObject("ADODB.Recordset")
GetSql.Open strSQL,objConn,3,2
End Function
我将 Persist Security Info=False
SQL Server客户端网络实用工具中启用TCP/IP协议之前我就启用了啊,现在还是找不到服务器!
而且我如果将 SERVER=SAIKO\SAIKO_SQL就不会有问题了!!
本人用如下 ADO 连接:
1、Global Const G_ADO_ConStr As String = _
"Provider=SQLOLEDB.1;User ID=aaa;Password=bbb;Persist Security Info=True;Initial Catalog=XXX_MIS;Data Source=192.9.200.83"
2、Global Const G_ADO_ConStr As String = _
"Provider=SQLOLEDB.1;User ID=aaa;Password=bbb;Persist Security Info=True;Initial Catalog=XXX_MIS;Data Source=XXX-SERVER"用下列程序测试没问题:
'' spOption
Public Function spOption(First As Integer, _
Optional Second As Integer, _
Optional Third As Integer _
) As ADODB.Recordset
On Error GoTo ErrorProcess
Dim Conn As ADODB.Connection
Dim p_RS As ADODB.Recordset
Dim p_X As ADODB.Connection
Dim sTmp As String
Dim p_Cmd As Command
Dim p_Param As ADODB.Parameter
m_SuccessOrNot = False
'sTmp = "Sp_spOption " & SeqNo
'' Open ADO connection
Set Conn = New ADODB.Connection
Set p_RS = New ADODB.Recordset
Set p_Cmd = New Command
Set p_Param = New ADODB.Parameter
p_Cmd.ActiveConnection = G_ADO_ConStr
p_Cmd.CommandText = "spOption"
p_Cmd.CommandType = adCmdStoredProc
p_Cmd.Parameters.Refresh
p_Cmd.Parameters("@third") = Third
'p_Cmd.Parameters("@First") = First
p_Cmd.Parameters("@Second") = Second
'' Get the data from DB
Set p_RS = p_Cmd.Execute
Debug.Print p_RS(0), ",", p_RS(1), ",", p_RS(2)
Set spOption = p_RS m_SuccessOrNot = True
Exit Function
ErrorProcess:
Set spOption = Null
m_SuccessOrNot = False
Exit Function
End Function
存储过程代码为:CREATE PROCEDURE aaa.spOption
@first int = NULL, -- NULL default value
@second int = 2, -- Default value of 2
@third int = 3 -- Default value of 3
AS-- Display values.
SELECT @first, @second, @third
GO没时间仔细看你的连接串,但感觉是有问题。