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
Ïà¹ØÎÊ´ð£º
ÎÒÓÐÒ»¸ö±í£¬½á¹¹ÊÇÕâÑù¡£
ת³ö µ¥Î» תÈ뵥λ ±ÊÊý ½ð¶î
date(Ö÷) outid(Ö÷) inid(Ö÷) num amt
2009 1 2 1 500 Ϊ 1 µ¥Î» ÔÚ2009Ä ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
tab1 ×Ö¶Î:billdate,goodsid,incount,inmoney,outcount,outmoney,endprice,endcount,endamt
tab2 ×Ö¶Î:goodsid,goodskind£¨ÉÌÆ·ÀàÐÍ£©
tab3 ×Ö¶Î:goodskind£¨ÉÌÆ·ÀàÐÍ£©,kindname
½á¹û£º
µÃµ½ÉÌÆ·ÀàÐÍÔÚÒ»¶Îʱ¼ä ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......