Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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 °¡¡£¡£¡£ÓôÃÆ ´úÂëÎÒÒ²¿´ÁËÏ ¸Ð¾õûɶ´íÎó

ÔÚ ¹¤³Ì-²¿¼þ-Éè¼Æ Ìí¼ÓÊý¾Ý¿âµÄ²¿¼þ¡£

¿ÉÒÔÁË Ò²Ã»¸Äʲô¶«Î÷ °¦

·Ö¸øÄãÁË


Ïà¹ØÎÊ´ð£º

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

VBµ÷ÓÃEXCEL»æÍ¼£¬ÈçºÎÐÞ¸ÄXÖá×ø±ê - VB / »ù´¡Àà

СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ