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
Ïà¹ØÎÊ´ð£º
access ÖÐÖ´ÐÐsql updateÓï¾äʱÓÐʱºò³É¹¦ÓÐʱºò²»³É¹¦£¬µ«ÊÇaccessÖв»³ö´íÎóÐÅÏ¢£¬²»ÖªµÀÊÇʲôÔÒò£¬ÓÐÄÄλ´óÏÀÖªµÀ£¬Çë°ïæ°¡
ÌùSQLÓï¾ä£¬¼ì²é±í¡¢×ֶεÄÓÐЧÐÔÉèÖÃ
sql ÔÚ²éѯ·ÖÎöÆ÷ÀïÃæ Ö´ÐкÜÕý³£
ÊÇ ......
ÎÒµÄÊý¾Ý¿âÊǼòÌåsqlserver2000 ,ÎÒÏëÔÚ·±ÌåaccessÏÂÁ¬½Ó,ͨ¹ýodbcÊÇ¿ÉÒÔÁË,µ«ÔÚaccessϳöÏÖ´ò¿ªµÄ±íÈ«ÖÐ"#ÒÑɾ³ý"
²»ÖªµÀÒªÔõô²Ù×÷²Å¿ÉÒÔÓÃACCESS·±ÌåÁ¬½Ó¼òÌåsqlserver2000.лл!!!
´ó¼Ò¶¼ ......
×î½ü×¼±¸Îª¹«Ë¾ÍøÕ¾ÓÃVB×ö¸ö²úƷչʾÉú³É£¬Éú³É²¿·Ö»ù±¾Ã»ÎÊÌ⣬
ÎÊÌâ³öÏÖÔÚ²éѯ²¿·Ö£¬Ê¹ÓÃÁËMSHFelxGrid(DATAGrid²»ÄÜÂú×ã²Ù×÷ÐèÇó)£¬±¾À´ÒÔΪÊÕ¹¤ÁË£¬×òÌìÔٴβâÊÔµÄʱºò·¢ÏÖÁËÒÔÏÂÎÊÌâ
µ±Êý¾Ý¿â×Ö¶ÎΪ¡ ......
±í½á¹¹£º
ProductSeriesID ×Ô¶¯±àºÅ
ProductSeriesName Îı¾
ProductSeriesRemark ±¸×¢
Ö´ÐÐǰ
ProductSeriesID ProductSeriesName ProductSeriesRemark
2 LVϳµ¶ÏµÁÐ LVϳµ¶ÏµÁÐ
3 ÎÙ¸ÖÉá ......
ÎÒÓÃÁËÒ»°ãµÄ²éѯÓï¾ä³öÀ´,,,ÍÛºÃÂý°¡................
ʹÓÃ×é¼þ
DBgrid ADOQuery DATASOurce
¿ì²»ÁË£¬Ö»Äܾ¡¿ÉÄܵÄÓÅ»¯°É
ÓÅ»¯Êý¾Ý½á¹¹£¬½¨Ë÷Òý£¬²»¹ý½¨Òé²»ÒªÒ»´Î¶Á³öËùÓ ......