vba连接sqlserver数据库问题

显示全部楼层 · 2008-11-18 16:49:06

我用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
高手都哪里去了??

千问 · 2008-11-18 16:49:06

while( @beginMonth 0 Then conn.ConnectionString = "Driver={SQL Server};server=HKTNSSK-SQ003;database=Microsoft CSS;Trusted_Connection=yes;" conn.Open...