vb Ò»¸öÎÊÌâ - VB / »ù´¡Àà
Option Explicit
Public conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
'Public Cnt As Integer 'Õâ¸öCntÊÇÓÃÀ´±íʾÊý¾Ý¿âÊý¾Ý×ÜÁ¿µÄ£¬¶ÔÁ´½Ó¹ý³ÌÎÞ¹Ø
Public Sub connect()
'Á¬½ÓÊý¾Ý¿âµÄ´úÂë¶Î
Set conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
conn.CursorLocation = adUseClient 'ÒÔConnΪÁ´½ÓÃû½¨Á¢Á´½Ó£¬ÕâÀïÊÇÉèÖÃÊý¾ÝÓα꣨¿Í»§¶ËÊý¾ÝÓα꣩£¬¼´É趨¶ÁÈ¡Êý¾Ý¿âÊý¾ÝÖ®·½Ê½£¨Ò»ÐÐÒ»ÐеضÁ£©
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\renshi.mdb;Persist Security Info=False"
conn.Open
'×Ô¼º¸Ä¶¯Ò»ÏÂÉÏÃæµÄ·¾¶ºÍÎļþÃû¼´¿É£¬ÆäËûµÄ´úÂëÄã²»Àí½âÕÕÕ³ÌùÎÞ·Á
Debug.Print Rs.State
End Sub
Rs.State ×ÜÊÇ0 °¦¡£ ÀÏÁ¬½Ó²»³É¹¦¡£¡£¡£
×ÜÊÇΪ0 °¡¡£¡£¡£ÓôÃÆ ´úÂëÎÒÒ²¿´ÁËÏ ¸Ð¾õûɶ´íÎó
ÔÚ ¹¤³Ì-²¿¼þ-Éè¼Æ Ìí¼ÓÊý¾Ý¿âµÄ²¿¼þ¡£
¿ÉÒÔÁË Ò²Ã»¸Äʲô¶«Î÷ °¦
·Ö¸øÄãÁË
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......