ÓÃvbÓïÑÔºÍADOÈçºÎ½¨Á¢Ô¶³ÌÊý¾Ý¿âµÄÁ´½Ó£¿
´ËÎÊÌâÒѺܳ¤Ê±¼äûÓнâ¾öÁË£¬ÇëÅóÓѰï°ïæ°¡£¡£¡£¡
ÓÃvbÓïÑÔºÍADOÈçºÎ½¨Á¢Ô¶³ÌÊý¾Ý¿âµÄÁ´½Ó£¿
1¡¢ÔÚ¾ÖÓòÍøÄÚ£¬Ò»Ì¨¼ÆËã»úµÄIP:192.192.10.79¡£ÔÚÆäÉÏÓÃIIS½¨Á¢µÄ·þÎñÆ÷£¬Ãû³ÆÎªWGYS-ZH¡£Êý¾Ý¿âÎļþ£ºC:\WGYSDB\ZWZ.mdf
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
´íÎóÌáʾ£º[DBNETLIB][ConnectionOpen(Connect()).]SQL Server ²»´æÔÚ»ò·ÃÎʱ»¾Ü¾ø¡£
----------------------------------------------------------------------------
----------------------------------------------------------------------------
°´ÍøÓÑÌáʾ£¬²âÊÔÁ˿ͻ§»úÓë·þÎñÆ÷»úµÄÎïÀíÁ¬½Ó£»ÖØÐ¶Կͻ§»úºÍ·þÎñÆ÷»ú×öÁËÍøÂçÅäÖã¬Ò»ÇÐÕý³£¡£ÈÔÈ»ÎÞ·¨Á¬½Ó¡£
°´ÍøÓѸø³öµÄ´úÂ룺
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Êý¾Ý¿âÃû;Data Source=·þÎñÆ÷Ãû»òIPµØÖ·;uid=sa;pw
Ïà¹ØÎÊ´ð£º
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......