7,762
社区成员
发帖
与我相关
我的任务
分享急!!!储存过程使用临时表时如何用ADO取得结果.
我要 VB sample: (NT SP 5 + SQL Server SP2 + VB 6 SP4)
SP:
Create MySp as
create table #m_tmp(code char(10), name char(10), age integer)
insert into #m_tmp (code, name, age) values ( 'oo', 'pp', 1)
select * from #m_tmp
使用 Query分析器可以看到结果, 但是 VB 的 Ado.Command 总是返回 关闭的 Recordset
SP:
Create MySp as
create table #m_tmp(code char(10), name char(10), age integer)
insert into #m_tmp (code, name, age) values ( 'oo', 'pp', 1)
select * from #m_tmp
使用 Query分析器可以看到结果, 但是 VB 的 Ado.Command 总是返回 关闭的 Recordset
...全文
请发表友善的回复…
发表回复
solomon 2000-10-23
- 打赏
- 举报
To: zhq2000
adoCnn.Open "dsn=pubs", "sa", "" '改为你自己的连接串
能写清楚些吗?
adoCnn.Open "dsn=pubs", "sa", "" '改为你自己的连接串
能写清楚些吗?
zhq2000 2000-10-22
- 打赏
- 举报
试试这个
Dim adoCnn As New ADODB.Connection
Dim adoCmd As New ADODB.Command
Dim adoRst As ADODB.Recordset
Text1.Text = ""
adoCnn.Open "dsn=pubs", "sa", "" '改为你自己的连接串
adoCmd.ActiveConnection = adoCnn
adoCmd.CommandText = "MySp"
adoCmd.CommandType = adCmdStoredProc
Set adoRst = adoCmd.Execute
Text1.Text = adoRst.Fields(0).Value
Dim adoCnn As New ADODB.Connection
Dim adoCmd As New ADODB.Command
Dim adoRst As ADODB.Recordset
Text1.Text = ""
adoCnn.Open "dsn=pubs", "sa", "" '改为你自己的连接串
adoCmd.ActiveConnection = adoCnn
adoCmd.CommandText = "MySp"
adoCmd.CommandType = adCmdStoredProc
Set adoRst = adoCmd.Execute
Text1.Text = adoRst.Fields(0).Value
bryan 2000-10-22
- 打赏
- 举报
关注
