Andy.j.chen 说:
Dim j
Set Conn=CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")
Conn.Open "DSN=S7DSQL05;UID=EcomDbo;PWD=Ecom2Dev;APP=QuickTest Professional;WSID=S7DSQL05;DATABASE=SVC2005" Rs.Open "select count(*) FROM dbo.RMAMaster ",Conn
'Rs.PageSize=10
j=Rs.RecordCount
msgbox j
这个返回的怎么总是-1哦
问题解决了 呵呵
Rs.Open "select TOP 50 RMANumber FROM dbo.RMAMaster ",Conn,3