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ÖÐ×Ö¶ÎÀàÐÍÊÇ£ºÎı¾
{{---
Ïà¹ØÎÊ´ð£º
½ñÌì×öÁËÒ»¸ö´æ´¢¹ý³Ì »·¾³ÊÇSQL2000Êý¾Ý¿â
´óÖÂÈçÏÂ
½¨Á¢ÁÙʱ±í
¶¨ÒåÔ±¹¤Óαê
Ñ»·Ô±¹¤£¨ÊôÓÚ1¸ö¹«Ë¾)
......
ÎÊÌ⣱
ÎÒÓÃADOÁ¬½ÓÉèÁËÓû§ÃûÃÜÂëµÄÊý¾Ý¿â
µ«ÊÇÎÒ·¢ÏÖÎÒ²»ÊäÈë Óû§ÃûºÍÃÜÂë ¶¼¿ÉÒÔÁ¬½Ó³É¹¦ ¶øÇÒ»¹ÄܰÑÊý¾Ý¶Á³öÀ´
¼ôÁËÒ»¸öÃûΪtestÊý¾Ý¿â ½¨ÁËÒ»¸öÃûΪpeopleµÄ±í
¼ûÁËÒ»¸ö Óû§Ãû1234 ÃÜÂë1234 µÄ ......
СµÜ£¬×î½üҪתÐÐÈ¥×öoracle¿ª·¢ÁË£¬ÓÉÓÚ´óѧ±Ïҵʱ£¬×ßÁ˸öÍä·£¬ÏÖÔÚºÜСÐÄ£¬ÎÊÏ£¬×öPL/SQLÓÐûÓÐǰ;£¿£¿£¿
µ±È»ÎÒ˵µÄÕâ¸öǰ;ÊÇÖ¸ ÒÔºóÒªÌø²Û£¬Êг¡¶ÔÕâÑùµÄÈ˲ŵÄÐèÇóÁ¿´ó²»´ó£¿£¿
3q ÄÇ¿´À´»¹Ö»ÄÜÏȽӴ ......
ÏÖÔÚÓÐÁ½ÕÅ±í£ºÎÄÕÂÖ÷±íA(articleId,articleTitle)£¬ÎÄÕÂÆÀÂÛ±íB(commentId,articleId,commentTitle)
ÏÖÔÚÎÒÏëʵÏÖÕâÑùµÄ¹¦ÄÜ£ºÁгöÎÄÕÂÁÐ±í£¬ÆäÖÐÿƪÎÄÕ±êÌâÏÂÃæÁгö´ËÎÄÕµÄǰ2¸öÎÄÕÂÆÀÂÛ£¬ÇëÎÊsqlÓï¾äÔõôд°¡ ......
ÎÊÌâÊÇÕâÑùµÄ,ÏÖÔÚÓÐÒ»¸ö¹¤×ʱí,ÊÇEXCELµÄ,ÎÒÒª°ÑËüµ¼ÈëACCESS,ÒòΪ Òª²éѯÿ¸öÈ˵Ť×Ê,¸ù¾Ý²»Í¬µÄ±àºÅ¿ÉÒÔ²éѯµ½Ïà¶ÔµÄÈË,
ÓÃASP Ôõô½«EXCELµ¼Èëµ½ACCESS,¶øÇÒÿÔ¶¼Óв»Í¬µÄ±í,
ÒýÓÃ
Æäʵ¾ÍÊǰÑEXCELµ±³ÉÊý ......