vba连接sqlserver数据库问题

来源：百度知道 编辑：UC知道 时间：2024/05/12 07:05:55
我用VBA连接SQLSERVER2005数据库,虽然连接成功,但我做一个查询时查出的数据集却为-1,明明数据库里面这个表是有数据的,我这查询语句在数据库那边也能查到数据出来,究竟是为什么呢???
我的代码:
Sub Test()
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim odb As New ADODB.Recordset

conn.ConnectionString = "Driver={SQL Server};server=HKTNSSK-SQ003;database=Microsoft CSS;Trusted_Connection=yes;"
conn.Open

Set cmd.ActiveConnection = conn
With cmd
.CommandText = "SELECT * from SampleReport"
.CommandType = adCmdText
.Execute
End With
Set rs.ActiveConnection = conn
rs.Open cmd
If rs.RecordCount > 0 Then
rs.MoveFirst
End If
conn.Close: Set rs = Nothing
End Sub
高手都哪里去了??

while( @beginMonth<=@endMonth)
begin
select
Execute
End With
Set rs.ActiveConnection = conn
rs.Open cmd
If rs.RecordCount > 0 Then
conn.ConnectionString = "Driver={SQL Server};server=HKTNSSK-SQ003;database=Microsoft CSS;Trusted_Connection=yes;"
conn.Open