Public MyCommand As New ADODB.Command
Public cn As New ADODB.ConnectionPrivate Sub 统计_Click()
MyCommand.CommandText = "SP_ContractYearTemTable"
MyCommand.CommandType = adCmdStoredProc
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Password=77646;User ID=sa;Server=B5-NWGTJVF3TY;Database=DFGR"
cn.Open
YearData = "2005"
MyCommand.ActiveConnection = cn
MyCommand.Parameters.Append MyCommand.CreateParameter("@MyYearTime ", adVarChar, adParamInput, 20, YearData)
Dim rs As New ADODB.Recordset
'//rs = MyCommand.Execute
set rs = MyCommand.Execute
Text1.Text = rs.Fields(1) 结果为6
Text1.Text = rs.RecordCount 怎么为-1
Public cn As New ADODB.ConnectionPrivate Sub 统计_Click()
MyCommand.CommandText = "SP_ContractYearTemTable"
MyCommand.CommandType = adCmdStoredProc
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Password=77646;User ID=sa;Server=B5-NWGTJVF3TY;Database=DFGR"
cn.Open
YearData = "2005"
MyCommand.ActiveConnection = cn
MyCommand.Parameters.Append MyCommand.CreateParameter("@MyYearTime ", adVarChar, adParamInput, 20, YearData)
Dim rs As New ADODB.Recordset
'//rs = MyCommand.Execute
set rs = MyCommand.Execute
Text1.Text = rs.Fields(1) 结果为6
Text1.Text = rs.RecordCount 怎么为-1
解决方案 »
- 找能够求出一个文件夹下有多少个文件的API函数
- 打印初级问题
- Doevents 和 timer 冲突问题
- 第一次有vb,多多帮助小弟,高手请进,谢谢!
- 关于设计一个小车的模拟运动(满分) VB2008 切记是VB2008
- 在VB中如何将一个数组(数组的每一个元素是一个字符串)传给VC写的DLL?
- 各位,想请教下commondialog中filename和filetetle两个属性的区别在那?
- 望大侠能指点一、二,在此先行谢过!
- 如和实现当我点击list控件里的一行,用鼠标上下移动,就可以实现文件的上移一位或下移一位!
- FlatButt的一个问题,急用!拜托了!
- 做过POS机的各位高手,如何用VB编写代码,打开钱箱?
- 如何把数据库备份到服务器?
Text1.Text = rs.Fields(1)'//=6
Set vsflexGird.DataSource = rs.RecordCount但这个使不行,说要求对象
vsflexGird.Refresh
谁能帮帮我