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

vb Ô¶³ÌÊý¾Ý¿âÁ´½Ó×Ö·û´®

ÓÃvbÓïÑÔºÍADOÈçºÎ½¨Á¢Ô¶³ÌÊý¾Ý¿âµÄÁ´½Ó£¿
1¡¢ÔÚ¾ÖÓòÍøÄÚ£¬Ò»Ì¨¼ÆËã»úµÄIP:192.192.10.79¡£ÔÚÆäÉÏÓÃIIS½¨Á¢µÄ·þÎñÆ÷£¬Ãû³ÆÎªWGYS-ZH¡£Êý¾Ý¿âÎļþ£ºC:\WGYSDB\ZWZ.mdfºÍC:\WGYSDB\WGYS.mdb.
2¡¢ÓÃVBÓïÑÔ±àдӦÓóÌÐò£¬ÔÚ¿Í»§»úÉÏÔËÐзþÎñÆ÷ÉϵÄÊý¾Ý¿â¡£
3¡¢ÓÃADO·½Ê½²Ù×÷Êý¾Ý¿â¡£
ÎÊÌ⣺Á´½ÓÔ¶³ÌÊý¾Ý¿âµÄÁ´½Ó´úÂëÈçºÎ±àд¡£×îºÃ¸ø³öʵÀý¡£
ÎÒ±àдһ¸öÁ´½Ó×Ö·û´®£¬µ«ÊÇÔËÐÐÊÇÌáʾ£ºÒ»°ãÐÔÍøÂç´íÎó¡£Çë¼ì²éÍøÂçÎļþ¡£²»ÖªºÎÒâ?
´úÂëÈçÏ£º
Server = "192.192.10.79"      '·þÎñÆ÷Ãû
Gdatabase = "ZWZ"            'Êý¾Ý¿âÃû
Uid = "" 
Pwd = ""
Cn.ConnectionString = "Driver={SQL Server};Server=" & Server & ";Database=" & Gdatabase & " ;Uid=" & Uid & ";Pwd=" & Pwd
Cn.Open

´íÎóÌáʾ£ºÒ»°ãÐÔÍøÂç´íÎó¡£Çë¼ì²éÍøÂçÎĵµ¡£
´íÔÚÄÇÀ


ÓÃÁ¬½Ósql serverÊý¾Ý¿âµÄ·½·¨Á¬½ÓaccessÊý¾Ý¿â(.mdb)ÊÇÐв»Í¨µÄ¡£


Á¬½ÓSQL ServerÊý¾Ý¿âÒ²ÊÇÒ»ÑùµÄ¡£

http://topic.csdn.net/t/20041025/03/3486984.html

Á¬2000µÄ:
    cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Êý¾Ý¿âÃû;Data Source=."
Á¬2005µÄ:
    cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Êý¾Ý¿âÃû;Data Source=·þÎñÆ÷Ãû»


Ïà¹ØÎÊ´ð£º

¹ØÓÚASP.net(vb)²¥·Å¼à¿ØÂ¼ÏñµÄÎÊÌâ

ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......

vbÈçºÎµ÷ÓÃIllustrator£¨´ËǰIllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

vbÐÞ¸ÄDTPicker1ÈÕÆÚÎÊÌâ

Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else ......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

ÓÃVB±àдTXTÎĵµ - .NET¼¼Êõ / VB.NET

ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ

googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ

Ö±½Óµ÷²éÓþͿÉÒÔÁË

Ãæ¶ÔÃÀÅ® ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ