vbÖÐADOÁ¬½ÓÊý¾Ý¿âµÄÎÊÌâ
³õѧ£¬²»Ì«¶®
ADO·½Ê½Á¬½ÓÊý¾Ý¿â£¬Ò»°ãÌáÈ¡Êý¾ÝʱÓÃ*.recordset=¡°select¡£¡£¡£¡£¡±
Õâ¸örecordsetÊÇʲô¶«Î÷£¬Äܲ»ÄÜͬʱ´´½¨¶à¸ö£¿ÈçºÎ´´½¨£¿
recordsetÊǼǼָÕ룬һ¸öÊý¾Ý±íÀïÖ»¿ÉÒÔÓÐÒ»¸ö£¡
¼Ç¼ָÕë
Â¥Ö÷µÄ´úÂëÔõôдµÄ,¿ÉÒÔ͸¶һÏÂÂð
RecordSetÊǼǼ¼¯ ¿ÉÒÔ¶¨Òå¶à¸öµÄ
°ï¶¥...
ºï×ÓÕý½â¡£
Recordset ¶ÔÏó±íʾµÄÊÇÀ´×Ô»ù±¾±í»òÃüÁîÖ´Ðнá¹ûµÄ¼Ç¼ȫ¼¯¡£ Ò»°ãÅäºÏconnection¶ÔÏóʹÓÃ
set Rs=conn.execute("²éѯÓï¾ä") »ò Rs.open "²éѯÓï¾ä" ,¾ßÌåµÄ¿´ado°ïÖú°É.
ʹÓÃRecordSet¶ÔÏóÀ´²é¿´Êý¾Ý¼Ç¼µÄÏêϸֵ¡£
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......