access rs.recordcount£¬Ôõô»áµÃµ½-1£¿
Dim ebfs
Set ebfs = Server.CreateObject("ADODB.Recordset")
ebfs.ActiveConnection = conn
ebfs.Source = "SELECT id from goods where lei=1 ORDER BY ID DESC"
ebfs.CursorType = 0
ebfs.CursorLocation = 2
ebfs.LockType = 1
ebfs.Open()
if not ebfs.eof then
response.write ebfs.recordcount
maxnum=ebfs.RecordCount
end if
Ϊʲô×ÜÊÇÊä³ö £1£¿£¿
thanks
Ïà¹ØÎÊ´ð£º
×î½ü×¼±¸Îª¹«Ë¾ÍøÕ¾ÓÃVB×ö¸ö²úƷչʾÉú³É£¬Éú³É²¿·Ö»ù±¾Ã»ÎÊÌ⣬
ÎÊÌâ³öÏÖÔÚ²éѯ²¿·Ö£¬Ê¹ÓÃÁËMSHFelxGrid(DATAGrid²»ÄÜÂú×ã²Ù×÷ÐèÇó)£¬±¾À´ÒÔΪÊÕ¹¤ÁË£¬×òÌìÔٴβâÊÔµÄʱºò·¢ÏÖÁËÒÔÏÂÎÊÌâ
µ±Êý¾Ý¿â×Ö¶ÎΪ¡ ......
±í½á¹¹£º
ProductSeriesID ×Ô¶¯±àºÅ
ProductSeriesName Îı¾
ProductSeriesRemark ±¸×¢
Ö´ÐÐǰ
ProductSeriesID ProductSeriesName ProductSeriesRemark
2 LVϳµ¶ÏµÁÐ LVϳµ¶ÏµÁÐ
3 ÎÙ¸ÖÉá ......
ÎÒÓÃÁËÒ»°ãµÄ²éѯÓï¾ä³öÀ´,,,ÍÛºÃÂý°¡................
ʹÓÃ×é¼þ
DBgrid ADOQuery DATASOurce
¿ì²»ÁË£¬Ö»Äܾ¡¿ÉÄܵÄÓÅ»¯°É
ÓÅ»¯Êý¾Ý½á¹¹£¬½¨Ë÷Òý£¬²»¹ý½¨Òé²»ÒªÒ»´Î¶Á³öËùÓ ......
ÎÒµÄÒ»¸öaccessÊý¾Ý¿âÖеÄphoto×Ö¶ÎÖеÄÄÚÈÝÊÇÕâÑùµÄ£º
|/UpFiles/Picture/admin/200910162300187612.jpg|/UpFiles/Picture/admin/200910162300187612.jpg||||/UpFiles/Picture/admin/200910162300187612.jpg ......