首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

初学者有关问题-(2010.3.11)

2012-01-29 
菜鸟问题-(2010.3.11)Private Sub Command1_Click()Dim strS As String 定义变量Dim adoconn As New ADOD

菜鸟问题-(2010.3.11)
Private Sub Command1_Click()

Dim strS As String '定义变量
Dim adoconn As New ADODB.Connection 'Connection 对象代表了打开和数据源连接
Dim adocomm As New ADODB.Command 'Command 对象定义了将对数据源执行指定命令
Dim ReturnValue As Integer '存储过程返回值
Dim rs As New ADODB.Recordset

adoconn.ConnectionString = "DRIVER=SQL Server;SERVER=(local);UID=sa;PWD=sa;DATABASE=CHENWEI" 'Adodc1为窗体中ADOControl控件并已成功连接数据库
adoconn.Open

Set adocomm.ActiveConnection = adoconn '指示指定 Command对象当前所属 Connection对象
adocomm.CommandText = "info_test" '设置Command对象源
adocomm.CommandType = adCmdStoredProc '通知提供者CommandText属性有什么它可能包括Command对象源类型设置这个属性优化了该命令执行

rs = adocomm.Execute


MsgBox rs.RecordCount
'ReturnValue = adocomm.Parameters(0) '存储过程返回值返回0则成功执行

End Sub

--------------------------------------------------------------------
---存储过程---------------------------
CREATE PROCEDURE info_test AS

select name,salary from INFO_USER
GO


--------------------------------------------------------------------


写了这么一个超简单的例子,结果rs.RecordCount一直是-1


[解决办法]

VB code
'''    adoconn.ConnectionString = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=CHENWEI;Data Source=."      adoconn.CursorLocation = adUseClient    adoconn.Open'''
[解决办法]
不奇怪,默认是服务器端游标,你做为客户端当然没有数据了。

热点排行