VBA°ÑaccessÖеIJéѯ½á¹û,Ìá½»µ½sql2005ÖеÄÒ»¸ö±íÖÐ
²»ÓÃaccessÖÐ×Ô´øÉý¼¶µ½sqlÖеŦÄÜ,¶øÊÇÓÃVBA
Dim rs1 As ADODB.Recordset
Set rs1 = New ADODB.Recordset
Dim sql1 As String
sql1 = " SELECT a,b,c from tb1" 'tb1ÊÇaccessÖеıí
rs1.Open sql1, CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql, strCn As String
strCn = "Provider=sqloledb;Server=192.168.0.1;Database=abc;uid=sa;pwd=qwe"
conn.Open strCn
sql = "insert into tb_test(a,b,c) values('" & rs1.Fields("a") & "','" & rs1.Fields("b") & "','" & rs1.Fields("c") & "')" 'tb_testÊÇsqlÖеıí
Set rs = conn.Execute(sql)
Set rs = Nothing
Set conn = Nothing
µ«Êǽá¹ûÔÚtb_testÖÐÖ»ÄÜÌí¼ÓÒ»Ìõ¼Ç¼£¬Êµ¼ÊÉÏtb1£¨accessÖÐµÄ±í£©ÖÐÓкܶàÌõ¼Ç¼£¬ÔõÑù°Ñtb1ÖеļǼȫ²¿Ìí¼Óµ½tb_test£¨sqlÖÐµÄ±í£©ÖÐÈ¥
µ«ÊÇÔÚsql2005ÖÐÓøղŵķ½·¨Ìí¼ÓµÄÊý¾ÝÓеÄÊÇÂÒÂëÄØ?
sql2005ÖÐ×Ö¶ÎÀàÐÍÊÇ:nvarchar(50)
accessÖÐ×Ö¶ÎÀàÐÍÊÇ£ºÎı¾
{{---
Ïà¹ØÎÊ´ð£º
³¡¾°ÈçÏ£º
¿Í»§°Ñ±¸·ÝºÃµÄÊý¾Ý¿â£¬·¢¸øÎÒ£¬ÎÒÔÚ±¾»ú»¹Ôºó£¬ÔËÐÐдºÃµÄ´æ´¢¹ý³Ì£¬±È½Ï¿ì£¬²¢ÇÒÔÚʵʩÄDZßÔËÐÐͬÑù±È½Ï¿ì¡£µ«Êǵ±ÊµÊ©ÔÚ¿Í»§ÄDZßÔËÐеÄʱºòËٶȾͷdz£µÄÂý£¬Ê±¼ä³¬³öÁ˳ÌÐòµÄʱ¼äÏÞÖÆ¡£Ô¶³ÌÔÚ¿Í»§ÄÇ ......
ÎÒÓÐÒ»¸ö±í£¬½á¹¹ÊÇÕâÑù¡£
ת³ö µ¥Î» תÈ뵥λ ±ÊÊý ½ð¶î
date(Ö÷) outid(Ö÷) inid(Ö÷) num amt
2009 1 2 1 500 Ϊ 1 µ¥Î» ÔÚ2009Ä ......
¿ÉÄÜÒòΪ¹¤×÷µÄÔÒò ½Ó´¥Êý¾Ý¿âÕâ¿é±È½ÏÉÙ£¬Ö®Ç°¶¼ÊÇ×ö³ÌÐòÕâ¿é£¬Êý¾Ý¿âÕâ¿é¶¼ÓÐרÃŵÄÈËÀ´×ö ·Ö¹¤¶¼ºÜÃ÷ϸ ËùÒÔ¶ÔÊý¾Ý¿âÕâÒ»¿éÍêÈ«²»Á˽⡣ǰ¶Îʱ¼ä È¥ÃæÊÔÁ˼¸¼Ò¹«Ë¾ ¼¸ºõ¶¼ÊÇÔÚÊý¾Ý¿âÕâ¿é¹ÒµôµÄ Á¬¸ö¼òµ¥µÄSQ ......
ÎÒÃÇC#×öÒ»¸ö´°Ìå ÍùÊý¾Ý¿âÀï²åÈëÊý¾Ý
SqlConnection cn = new SqlConnection("Data Source=20090713-1752\\SQLEXPRESS;Initial Catalog=goods;Integrated Security=True");
......
ÏÖÔÚÓÐÁ½ÕÅ±í£ºÎÄÕÂÖ÷±íA(articleId,articleTitle)£¬ÎÄÕÂÆÀÂÛ±íB(commentId,articleId,commentTitle)
ÏÖÔÚÎÒÏëʵÏÖÕâÑùµÄ¹¦ÄÜ£ºÁгöÎÄÕÂÁÐ±í£¬ÆäÖÐÿƪÎÄÕ±êÌâÏÂÃæÁгö´ËÎÄÕµÄǰ2¸öÎÄÕÂÆÀÂÛ£¬ÇëÎÊsqlÓï¾äÔõôд°¡ ......