access������--
ËùÊô·ÖÀࣺ Êý¾Ý¿âÁ¬½Ó ×÷Õߣº ÀîÑ°»¶ ¸üÐÂÈÕÆÚ£º2003-10-6 16:24:38 ÔĶÁ´ÎÊý£º513

Ò»¸ö¼òµ¥µÄAdoÓ÷¨Ê¾Àý


'ÒÔÏ´úÂëʾÀýÈçºÎ´ò¿ªÒ»¸öÃûΪ¡°±í1¡±µÄ±í£¬²¢°ÑËüµÄµÚ¶þ¸ö×Ö¶ÎÖðÒ»ÏÔʾÔÚÁ¢¼´´°¿Ú£¬×îºó¹Ø±Õ¼Ç¼¼¯¼°AdoÁ¬½Ó¡£
Dim cn As New ADODB.Connection '¶¨ÒåÒ»¸öAdoÁ¬½Ó
Dim rs As New ADODB.Recordset '¶¨ÒåÒ»¸öAdo¼Ç¼¼¯
Dim sql As String '¶¨ÒåÒ»¸ö×Ö·û´®±äÁ¿
Set cn = CurrentProject.Connection '¶¨ÒåcnµÈÓÚµ±Ç°Á¬½Ó
sql = "select * from ±í1" '¸ø×Ö·û´®¸³Öµ
rs.Open sql, cn, adOpenKeyset, adLockPessimistic, 1 '´ò¿ªÒ»¸ö¼Ç¼¼¯²¢¸³¸ørs
Do While Not rs.EOF 'µ±²»ÊǼǼ¼¯µÄ½áÊø¾ÍÑ­»· Debug.Print rs.Fields(1) 'ÔÚÁ¢¼´´°¿ÚÏÔʾ³öµÚ¶þ¸ö×ֶεÄÖµ rs.MoveNext '¼Ç¼¼¯ÏÂÒÆÒ»Ìõ£¬Èç¹ûûÓÐÕâÌõ¾Í»áËÀÑ­»· Loop 'Ñ­»· rs.Close '¹Ø±Õ¼Ç¼¼¯ cn.Close '¹Ø±ÕÁ¬½Ó
Set cn = Nothing


--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ

SQL SERVER»ù±¾¸ÅÄîѧϰӡÏó 2004-1-1 21:23:13
ERwin--¼ò»¯µÄÊý¾Ý¿âÉè¼Æ¹¤¾ß 2003-12-15 12:41:40
ÔÚºêÌõ¼þÖÐÅжϴ°Ìåβ¼Ç¼ 2003-11-20 16:25:48
Á˽â Microsoft Access °²È«ÐÔ 2003-11-13 11:21:08
²»µ±±àдSQLÓï¾äµ¼ÖÂϵͳ²»°²È« 2003-11-13 10:55:26
ʹÓà Jet UserRoster ¼ì²éÊÇË­µÇ¼µ½Êý¾Ý¿âÖÐ 2003-10-18 9:54:42
´´½¨ÍêÃÀ±¨±í 2003-10-17 19:37:17
SQL SERVER ÓëACCESS¡¢EXCELµÄÊý¾Ýת»» 2003-10-17 19:12:00
¶¯Ì¬Ìí¼Ó»òɾ³ýÒýÓà 2003-10-17 19:01:02
MS Jet SQL for Access 2000Öм¶Æª(IV) 2003-10-17 18:52:20
MS Jet SQL for Access 2000Öм¶Æª (III) 2003-10-17 18:51:47
MS Jet SQL for Access 2000Öм¶Æª (II) 2003-10-17 18:51:01
MS Jet SQL for Access 2000Öм¶Æª (I) 2003-10-17 18:47:38
ʹÓÃADOÁ¬½Óµ½·À»ðǽºóµÄSQL Server 2003-10-17 18:43:57
ADOÁ¬½ÓÊý¾Ý¿â×Ö·û´®´óÈ« 2003-10-17 18:40:47
VBAÖгõʼ»¯ADOÁ¬½ÓµÄ¼¸ÖÖ·½·¨ 2003-10-14 8:46:43
ÓÃADOÀ´Ñ¹ËõÊý¾Ý¿â 2003-10-14 8:46:12
ADOÈý´ó¶ÔÏóµÄÊôÐÔ¡¢·½·¨¡¢Ê¼þ¼°³£Êý£¨¶þ£© 2003-10-14 8:45:33
ADOÈý´ó¶ÔÏóµÄÊôÐÔ¡¢·½·¨¡¢Ê¼þ¼°³£Êý£¨Èý£© 2003-10-14 8:44:20
ADOÈý´ó¶ÔÏóµÄÊôÐÔ¡¢·½·¨¡¢Ê¼þ¼°³£Êý£¨Ò»£© 2003-10-14 8:43:26
ÈçºÎÕï¶Ï/ÐÞ¸´Ëð»µµÄ Jet 4.0 Êý¾Ý¿â 2003-10-14 8:31:26
ÌáÉýÇ°ºǫ́ģʽ³ÌÐòµÄËÙ¶È 2003-10-10 10:17:08
»ñÈ¡Ö¸¶¨±íËùÓÐ×Ö¶ÎÃûµÄº¯Êý 2003-10-6 16:44:38
Êý¾Ý¿âÓ¦ÓóÌÐòÐè×¢ÒâµÄÎÊÌâ 2003-10-6 11:11:06

ϵͳÓÅ»¯
¿Ø¼þʹÓÃ
Êý¾Ý¿âÉè¼Æ
Êý¾Ý¿âÁ¬½Ó
ϵͳ°²È«
OLE×Ô¶¯»¯
³£¼ûÎÊÌâ
ʵÓôúÂë
ÊôÐÔÏê½â
ÍøÂçÏà¹Ø
ʵÓÃAPI
¾­Ñé·ÖÏí
¾«Ñ¡½Ì³Ì
×Ö·û´¦Àí
ADPÏà¹Ø



ÎÄÕÂËÑË÷



ÖÆ×÷ά»¤£ºÀîÑ°»¶     Mail:[email protected]

¹ØÓÚ±¾Õ¾ -- ÍøÕ¾·þÎñ -- °æȨÌõ¿î -- ÁªÏµ·½·¨ -- ÍøÕ¾°ïÖú
access°®ºãõß°æȨËùÓÐ Copyright 2003-2005 All Rights Reserved δ¾­Ðí¿É²»µÃµÁÁ´