sql - .NET¼¼Êõ / VB.NET
²éѯ½á¹ûÓ¦¸Ã»áÓÐÁ½Ìõ¼Ç¼£¬ÎÒϱߵĴúÂëÖ»ÄܶÁ³öµÚÒ»ÌõÊý¾Ý£¬ÎªÊ²Ã´£¿
rd.NextResultºÃÏñÎÞЧµÄ£¬ÒªÈçºÎʹÓã¿
VB.NET code:
Dim rd As SqlClient.SqlDataReader = cmd.ExecuteReader()
Dim p As String
p = "--------------------------------------------------------------" & (Chr(13)) & (Chr(10))
Do
rd.Read()
p = p + rd.GetValue(0).ToString & (Chr(13)) & (Chr(10))
Loop While rd.NextResult
While (rd.Read())
rd.Read()
p = p + rd.GetValue(0).ToString & (Chr(13)) & (Chr(10))
rd.NextResult()
End While
NextResult·½·¨ÒªÈçºÎʹÓã¿Ôõô²»»áÒÆ¶¯µ½ÏÂÒ»Ìõ¼Ç¼
Read()·½·¨£ºÊ¹ SqlDataReader ǰ½øµ½ÏÂÒ»Ìõ¼Ç¼¡£
NextResult()·½·¨£ºµ±¶ÁÈ¡Åú´¦Àí Transact-SQL Óï¾äµÄ½á¹ûʱ£¬Ê¹Êý¾Ý¶ÁÈ¡Æ÷ǰ½øµ½ÏÂÒ»¸ö½á¹û¡£
ËùÒÔÄãÕâÑù¸Ä
VB.NET code:
Dim rd As SqlClient.SqlDataReader = cmd.ExecuteReader()
Dim p As String
p = "--------------------------------------------------------------" & (Chr(13)) & (Chr(10))
rd.Read()
Do
Ïà¹ØÎÊ´ð£º
Ö´ÐеÄ˳Ðò£º
1£©Îļþä¯ÀÀ¿ò£¨Ñ¡ÔñÎļþʹÓã©
Ñ¡ÔñºÃÎļþºó
µã»÷Ò»¸öµ¼Èë°´Å¥µÄʱºò £¬°ÑÉÏÃæÉÏ´«¿òÀïµÄcsvÎļþÒÔÒ»¸öIDΪÎļþÃû£¬ÉÏ´«µ½**/**Îļþ¼ÐÏÂ
2£©¶ÁÈ¡Õâ¸öÎļþ¼ÐϵÄcsvµÄÎļþ£¬×ª»»³Ésql
3 ......
¿ÉÄÜÒòΪ¹¤×÷µÄÔÒò ½Ó´¥Êý¾Ý¿âÕâ¿é±È½ÏÉÙ£¬Ö®Ç°¶¼ÊÇ×ö³ÌÐòÕâ¿é£¬Êý¾Ý¿âÕâ¿é¶¼ÓÐרÃŵÄÈËÀ´×ö ·Ö¹¤¶¼ºÜÃ÷ϸ ËùÒÔ¶ÔÊý¾Ý¿âÕâÒ»¿éÍêÈ«²»Á˽⡣ǰ¶Îʱ¼ä È¥ÃæÊÔÁ˼¸¼Ò¹«Ë¾ ¼¸ºõ¶¼ÊÇÔÚÊý¾Ý¿âÕâ¿é¹ÒµôµÄ Á¬¸ö¼òµ¥µÄSQ ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......