是程序还是存储过程呢？

[jacky_hou]

存储过程为:
create procedure Hu_test_hu
as
select A.e_tax_no,A.mac_pz,A.pcno,B.offtype into #tmpMac_zj from
(select e_tax_no,mac_pz,(case when charindex(',',mac_pz)>0 then left(mac_pz,charindex(',',mac_pz)-1) else mac_pz end) as PCno from mac_zj)
A,op_table B where a.e_tax_no=b.e_tax_no and a.e_tax_no='440301723000442'
if exists
(select 1 from kf,#tmpMac_zj where kf.type=#tmpMac_zj.pcno)
begin
select top 1 A1.equipment as pc,B1.pcno,B1.mac_pz,B1.offtype from kf A1,#tmpMac_zj B1 where b1.pcno=a1.type
end
else
select top 1 pcno,pcno,mac_pz,offtype from #tmpMac_Zj
'=====================
vb程序为
Dim Rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim cn As New ADODB.Connection
Private Sub Command1_Click()
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=sqlserveradministrator;Initial Catalog=cis;Data Source=192.168.0.100"
Set Rs = New ADODB.Recordset
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = cn
.CommandType = adCmdStoredProc
.CommandText = "hu_test_hu"
.Parameters.Refresh
End With
With Rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockReadOnly
.Open cmd
Debug.Print .RecordCount
End With
End Sub