Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

Access 如何引用SQL 存储过程所得的数据

陈诺  发表于:2013-06-17 16:14:42  
复制

SQL 存储过程:sp_userlogininfo

在SQL运行(exec sp_userlogininfo)时得到的结果如下:

 

字段 userid        username             login_count

值     001                A                    3

        002                B                    6

        003                C                    8

        004                D                    5

         ...                 ...                    ...

 

Access创建一个窗体 frmUserinfo

打开窗体时得到结果如下:

 

 

Top
陈诺 发表于:2013-06-17 16:18:37


陈诺 发表于:2013-06-19 16:22:23
有没有哪位高手知道怎么实现吗??? 窗体上显示SQL存储过程所得到的记录。

煮江品茶 发表于:2013-06-19 16:33:46
ADO应该可以读存储过程,查查帮助文档。

陈诺 发表于:2013-06-20 21:20:17

Private Sub Form_Load()

Dim mRst As ADODB.Recordset
Dim conn As ADODB.Connection
Dim sp As ADODB.Command
Dim connStr As String
Set conn = New ADODB.Connection
Dim I As Integer

connStr = "Provider=SQLOLEDB.1;User ID=sa;Password=;Initial Catalog=<数据库名>;Data Source=<服务器名>\SQLEXPRESS;"
conn.Open connStr

Set sp = New ADODB.Command
sp.ActiveConnection = conn
sp.CommandType = adCmdStoredProc
sp.CommandText = "sp_userlogininfo"

'Set mRst = New ADODB.Recordset
Set mRst = sp.Execute

Set Me.Form.Recordset = mRst

mRst.Close
Set mRst = Nothing
conn.Close
DoCmd.Hourglass False
End Sub



陈诺 发表于:2013-06-20 21:22:48

执行上面语句, 出现如下错误:



总记录:5篇  页次:1/1 9 1 :