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

ÐÂÊÖÎÊÒ»ÏÂÓÃVBÁ¬½ÓSQL ServerµÄÎÊÌâ

ÐÂÊÖѧ×öÊý¾Ý¿â£¬×öÁ˸öС³ÌÐò£¬ÊÇÓÃVBÁ¬µÄAccessÊý¾Ý¿â£¬ÎÒÏÖÔÚÏë¸Ä³ÉÁ¬½ÓSQLÊý¾Ý¿â£¬²»´úÂëÐÞ¸ÄÉÏÓ¦¸Ã×¢ÒâÄÄЩÖ÷񻂿±ð¡£±ÈÈç Á¬½ÓSQLÁ¬½Ó×Ö·û´®ÈçºÎд£¿
1, "Provider=SQLOLEDB;Data Source=Your_Server_Name;Initial Catalog= Your_Database_Name;UserId=Your_Username;Password=Your_Password;"
2, Èç¹ûʱ¼äÓÃÁË "#" Òª È¥µô£¬ ¸Ä³É format
¾ÍÖªµÀÕâô¶à£¬¶àµ÷ÊÔ¡£

VB code:
With g_strDBConn
.State = adStateOpen Then .Close
.ConnectionString = "driver=SQL Server;server=¼ÆËã»úÃû»òIPµØÖ·;uid=SA;pwd=SAµÄÃÜÂë;database=Êý¾Ý¿âÃû"
.CommandTimeout = 0
.Open
End With


if .State = adStateOpen Then .Close

²»ÒªÃÜÂë
    Cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
                        & "Persist Security Info=False;User ID=sa;" _
                        & "Initial Catalog= wy_sysl;Data Source= localhost"
ÓÃÃÜÂë
    Cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
                        & "Persist Security Info=False;User ID=sa;" _
 


Ïà¹ØÎÊ´ð£º

sql ´æ´¢¹ý³Ì

ÎÒÒª×öÒ»¸ö¶¨µãʼþ£¬ÊÇÿÌìÍíÉÏ12µã¾Í°ÑÈý¸ö±íÀïµÄÐÅÏ¢·ÅÈëÒ»¸ö±íÀÎÒÏëÓô洢¹ý³ÌÀ´Ð´£¬ÔõÃ´Ð´ÄØ£¿£¬ÄÇλ¸ßÊÖ°ï°ïæ°É£¬·Ç³£¸Ðл£¡

Óû§ÃûÊÇΨһµÄ
±íA  ×Ö¶Î
Óû§Ãû£ºName  ,ÓÊÏ䣺Ema ......

ÇóÒ»sql¡¾Ð»Ð»¡¿ - MS-SQL Server / »ù´¡Àà

ÐèÇóÈçÏ£º
a±í:
 p_id status  
  1 0
  2 0
b±í
rec_id pid purchase_qty receive_qty flag
1 1 10 10 0
2 ......

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ