¡¾ÐÂÊÖ¡¿VBÈçºÎÁ¬½ÓSQL Sever2000.
×¼±¸Ìí¼Ó¶Î´úÂ뵽ģ¿éÀï¡£
µ«ÊDz»ÖªµÀÔõôд¡£
ÕâÊÇÀÏʦ¸øµãÀý×Ó¡£
¸ßÊÖ°ï¿´¿´¡£
VB code:
Public CONN As ADODB.Connection
Public RS As ADODB.Recordset
Function ConnOpen()
Dim ASTR As String
Set CONN = New ADODB.Connection
ASTR = "f:\Library_Data.MDF"
CONN.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;DataSource=" & ASTR & ";Persist Security Info = False"
CONN.Open
Set RS = New ADODB.Recordset
With Rs Do
ActiveConnection = CONN
CurosorType = adOpenDynamic
LockType = adLockOptimistic
End With
End Function
ÊÔһϣ¬¿´ÓÐʲôÎÊÌâ
VB code:
dim conn as new connection
With conn
If .State = adStateOpen Then .Close
.ConnectionString = "driver=SQL Server;server=¼ÆËã»úÃû»òIPµØÖ·;uid=SA;pwd=SAµÄÃÜÂë;database=Êý¾Ý¿âÃû"
.CommandTimeout = 0
.Open
End With
www.conneectionstring.com
²ésql server
VB code:
Private Sub Form_Load()
Call my.ConnOpen
End Sub
×¼±¸ÕâÑù¡£
µ«ÊÇÒ»ÔËÐоͳö´í¡£
ÄãÕâ¸öÁ¬½Ó×Ö·û´®Ã²ËƲ»¿ÉÒÔ
Ó¦¸ÃÀàËÆ
&
Ïà¹ØÎÊ´ð£º
Ö´ÐеÄ˳Ðò£º
1£©Îļþä¯ÀÀ¿ò£¨Ñ¡ÔñÎļþʹÓã©
Ñ¡ÔñºÃÎļþºó
µã»÷Ò»¸öµ¼Èë°´Å¥µÄʱºò £¬°ÑÉÏÃæÉÏ´«¿òÀïµÄcsvÎļþÒÔÒ»¸öIDΪÎļþÃû£¬ÉÏ´«µ½**/**Îļþ¼ÐÏÂ
2£©¶ÁÈ¡Õâ¸öÎļþ¼ÐϵÄcsvµÄÎļþ£¬×ª»»³Ésql
3 ......
´ó¼Ò°ïæ¿´¿´Õâ2¸ösqlÓï¾äÄĸö²éѯµÄËٶȸü¿ìµã¡£Ð»Ð»°ïæ¡£±È½Ï׿±¡£ÔÚ×öÐÔÄܲâÊÔ¡£
select * from
±íA LEFT OUTER JOIN ±íB ON (±íA.id || ' ' =±íB.id) ,±íC , ±íD, ±íE
WhereÆäËûÌõ¼þ
select * ......
³¡¾°ÈçÏ£º
¿Í»§°Ñ±¸·ÝºÃµÄÊý¾Ý¿â£¬·¢¸øÎÒ£¬ÎÒÔÚ±¾»ú»¹Ôºó£¬ÔËÐÐдºÃµÄ´æ´¢¹ý³Ì£¬±È½Ï¿ì£¬²¢ÇÒÔÚʵʩÄDZßÔËÐÐͬÑù±È½Ï¿ì¡£µ«Êǵ±ÊµÊ©ÔÚ¿Í»§ÄDZßÔËÐеÄʱºòËٶȾͷdz£µÄÂý£¬Ê±¼ä³¬³öÁ˳ÌÐòµÄʱ¼äÏÞÖÆ¡£Ô¶³ÌÔÚ¿Í»§ÄÇ ......
ÎÒÓÐÒ»¸ö±í£¬½á¹¹ÊÇÕâÑù¡£
ת³ö µ¥Î» תÈ뵥λ ±ÊÊý ½ð¶î
date(Ö÷) outid(Ö÷) inid(Ö÷) num amt
2009 1 2 1 500 Ϊ 1 µ¥Î» ÔÚ2009Ä ......
¿ÉÄÜÒòΪ¹¤×÷µÄÔÒò ½Ó´¥Êý¾Ý¿âÕâ¿é±È½ÏÉÙ£¬Ö®Ç°¶¼ÊÇ×ö³ÌÐòÕâ¿é£¬Êý¾Ý¿âÕâ¿é¶¼ÓÐרÃŵÄÈËÀ´×ö ·Ö¹¤¶¼ºÜÃ÷ϸ ËùÒÔ¶ÔÊý¾Ý¿âÕâÒ»¿éÍêÈ«²»Á˽⡣ǰ¶Îʱ¼ä È¥ÃæÊÔÁ˼¸¼Ò¹«Ë¾ ¼¸ºõ¶¼ÊÇÔÚÊý¾Ý¿âÕâ¿é¹ÒµôµÄ Á¬¸ö¼òµ¥µÄSQ ......