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
Ïà¹ØÎÊ´ð£º
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......