vb我不会,你自己看吧!///////Dao Set qdserver=dbserver.CreateQueryDef( " ") strSQL="EXEC [SP] @CODE_IN = 'BATCHEXCHANGE' " With qdserver .Connect="odbc;driver={SQL Server};database=datqbase;server=servername;pwd=123 " .ReturnsRecords=True .SQL = strSQL Set rsBatch=.OpenRecordset(dbOpenSnapshot,dbSQLPassThrough) End With
////Ado Dim StrCon As String StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _ & "Initial Catalog=你的数据库名称;Data Source=" & 你的IP地址 & ";" _ & "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _ & "Use Encryption for Data=False;Tag with column collation when possible=False"
dim AcSys as new adodb.connection With AcSys If .State = adStateOpen Then .Close .NonnectionString = StrCon .ConnectionTimeout = 30 .Open End With
看来这是对ADO的问题了,不知能否再次赐教?
create procedure 名
begin
declare @aa table(a int)
insert @aa values(1)
insert @aa values(2)
select * from @aa
end
Set qdserver=dbserver.CreateQueryDef( " ")
strSQL="EXEC [SP] @CODE_IN = 'BATCHEXCHANGE' "
With qdserver
.Connect="odbc;driver={SQL Server};database=datqbase;server=servername;pwd=123 "
.ReturnsRecords=True
.SQL = strSQL
Set rsBatch=.OpenRecordset(dbOpenSnapshot,dbSQLPassThrough)
End With
Dim StrCon As String
StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _
& "Initial Catalog=你的数据库名称;Data Source=" & 你的IP地址 & ";" _
& "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
& "Use Encryption for Data=False;Tag with column collation when possible=False"
dim AcSys as new adodb.connection
With AcSys
If .State = adStateOpen Then .Close
.NonnectionString = StrCon
.ConnectionTimeout = 30
.Open
End With