vbÖÐADOÁ¬½ÓÊý¾Ý¿âµÄÎÊÌâ
³õѧ£¬²»Ì«¶® ADO·½Ê½Á¬½ÓÊý¾Ý¿â£¬Ò»°ãÌáÈ¡Êý¾ÝʱÓÃ*.recordset=¡°select¡£¡£¡£¡£¡± Õâ¸örecordsetÊÇʲô¶«Î÷£¬Äܲ»ÄÜͬʱ´´½¨¶à¸ö£¿ÈçºÎ´´½¨£¿
recordsetÊǼǼָÕ룬һ¸öÊý¾Ý±íÀïÖ»¿ÉÒÔÓÐÒ»¸ö£¡ ¼Ç¼ָÕë Â¥Ö÷µÄ´úÂëÔõôдµÄ,¿ÉÒÔ͸¶һÏÂÂðÒýÓà ³õѧ£¬²»Ì«¶® ADO·½Ê½Á¬½ÓÊý¾Ý¿â£¬Ò»°ãÌáÈ¡Êý¾ÝʱÓÃ*.recordset=¡°select¡£¡£¡£¡£¡± Õâ¸örecordsetÊÇʲô¶«Î÷£¬Äܲ»ÄÜͬʱ´´½¨¶à¸ö£¿ÈçºÎ´´½¨£¿ RecordSetÊǼǼ¼¯ ¿ÉÒÔ¶¨Òå¶à¸öµÄ °ï¶¥... ºï×ÓÕý½â¡£ÒýÓà ÒýÓà 4 Â¥ fzx4936 µÄ»Ø¸´: RecordSetÊǼǼ¼¯ ¿ÉÒÔ¶¨Òå¶à¸öµÄ ´´½¨·½·¨ÊÇÏÈÒýÓÃMicrosoft ActiveX Data Objects 2.5£¬È»ºó¶¨Òå Dim rst1 As New ADODB.Recordset Dim rst2 As New ADODB.Recordset Dim rst3 As New ADODB.Recordset . . ¡¡ Recordset ¶ÔÏó±íʾµÄÊÇÀ´×Ô»ù±¾±í»òÃüÁîÖ´Ðнá¹ûµÄ¼Ç¼ȫ¼¯¡£ Ò»°ãÅäºÏconnection¶ÔÏóʹÓà set Rs=conn.execute("²éѯÓï¾ä") »ò Rs.open "²éѯÓï¾ä" ,¾ßÌåµÄ¿´ado°ïÖú°É. ʹÓÃRecordSet¶ÔÏóÀ´²é¿´Êý¾Ý¼Ç¼µÄÏêϸֵ¡£
Ïà¹ØÎÊ´ð£º
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click MouseWait() Dim ClearTempTabelSQL As String 'If Not ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»» Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´ ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?> <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xm ......
¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219) ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿. ¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡¡ ·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð? ÓÑÇéÖ§³Ö »Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡ °ï¶¥ ......