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

VB ÍøÂç·ÃÎÊAccessµÄÎÊÌ⣿£¿

ÎÒÏÖÔÚÓÃVB·ÃÎÊÊý¾Ý¿â£¬Êý¾Ý¿âÊÇ·ÅÔÚ¾ÖÓòÍøµÄ·þÎñÆ÷ÉÏ£¨»òÕß¾ÖÓòÍøÖеÄһ̨»ú×ÓÉÏ£©¡£ÎÒÏÖÔÚÏëÈþÖÓòÍøÖÐµÄÆäËû»ú×Ó¶¼ÄÜ·ÃÎÊÕâ¸öÊý¾Ý¿â¡£¸ÃÈçºÎ½¨Á¢Á´½Ó¡£
ÎÒʵÏֵķ½·¨ÊǰÑÊý¾Ý¿âÊÇ·ÅÔÚ¾ÖÓòÍøÖеÄÒ»¸ö¹²ÏíĿ¼Ï£¨ÎÒÖ¸¶¨µÄһ̨»ú×Ó
Public cn As ADODB.Connection 
Set cn = New ADODB.Connection 

Dim db As String 
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=true;Data Source=\\MyName\Êý¾Ý¿â\Êý¾Ý¿â.mdb" 
cn.CursorLocation = adUseClient 
cn.Open db 
Set rs = New ADODB.Recordset 
Set rst = New ADODB.Recordset 
µ«ÕâÑùÒªÉèÖù²ÏíµÄȨÏÞ¡£Ôì³ÉÁËÊý¾Ý¿âµÄºÜ²»°²È«
ÇëÎÊ´ó¼Ò£¬²»Óù²ÏíÎļþ¸ÃÈçºÎ·ÃÎÊ£¿
Çë»áµÄÅóÓѰï°ï棬Íò·Ö¸Ð¼¤£¡
²»¹ÜÊÇsql»¹ÊÇaccess£¬Êý¾Ý¿â¶¼¿ÉÒÔÉèÖÃÃÜÂë¡£
Ô¶³ÌÓ¦¸Ã¿ÉÒÔ¿ª¸ö¶Ë¿Ú°É£¬²»Óù²Ïí¡£ÎÒÖ»Óùý±¾µØµÄ

ÉèÖÃÃÜÂëÊÇ¿ÉÒԵġ£µ«ÎÒÖ÷ÒªÏëµÄÊDz»ÈÃÕâ¸öÎļþ¹²Ïí!ÕâÑùÊý¾Ý¿âÌ«²»ÍêÈ«À²£¡¿ÒÇë»áµÄÅóÓѰï°ïæ

¸üÕýһϣ¬ÉÏÃæÒ»¾ä»°´ò´íÁË£¬Ó¦¸ÃÊÇ¡°ÕâÑùÊý¾Ý¿âÌ«²»°²È«À²£¡£¡¡±

Òª½«ACCESSÎļþËùÔÚĿ¼ÉèÖóÉÍêÈ«¹²Ïí£¬ÔÚ´úÂëÖÐÕâÑùд£ºData Source=\\¼ÆËã»úÃû»òIPµØÖ·\¹²ÏíĿ¼Ãû\Êý¾Ý¿â.mdb"  


ÒýÓÃ
Òª½«ACCESSÎļþËùÔÚĿ¼ÉèÖóÉÍêÈ«¹²Ïí£¬ÔÚ´úÂëÖÐÕâÑùд£ºData Source=\\¼ÆËã»úÃû»òIPµØÖ·\¹²ÏíĿ¼Ãû\Êý¾Ý¿â.mdb"

´ó¸ç£¬ÓÃÎļþÍêÈ«¹²ÏíµÄ·½·¨Îһᣬ¶øÇÒҲʵÏÖÁË¡£ÎÊÌâÊÇÎÒ²»ÏëÓÃÕâÖÖ·½·¨°¡£¡
ÎÒµÄÒâ˼ÊÇʹÊý¾Ý¿â²»ÉèÖÃΪÍêÈ«¹²Ïí£¡Õâ¸ö¸ÃÈçºÎÉèÖã¿£¿

ÓлáµÄÅóÓÑÂð£¿ÔÚÏߵȡ


Ïà¹ØÎÊ´ð£º

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

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

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

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

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úÄØ£¿ - VB / ¶àýÌå

ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË

Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ