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ÖÐ×Ö¶ÎÀàÐÍÊÇ£ºÎı¾
{{---
Ïà¹ØÎÊ´ð£º
select convert(varchar(50),cast(convert(numeric(18,2),1275674000000/100000000)as real))+'ÒÚ'
select cast(convert(numeric(18,2),1275674000000/100000000)as real)
ΪʲôÉÏÒ»¸öÓÃvarcharת»»ºó¾ÍÖ»±£ÁôÁËÒ ......
³¡¾°ÈçÏ£º
¿Í»§°Ñ±¸·ÝºÃµÄÊý¾Ý¿â£¬·¢¸øÎÒ£¬ÎÒÔÚ±¾»ú»¹Ôºó£¬ÔËÐÐдºÃµÄ´æ´¢¹ý³Ì£¬±È½Ï¿ì£¬²¢ÇÒÔÚʵʩÄDZßÔËÐÐͬÑù±È½Ï¿ì¡£µ«Êǵ±ÊµÊ©ÔÚ¿Í»§ÄDZßÔËÐеÄʱºòËٶȾͷdz£µÄÂý£¬Ê±¼ä³¬³öÁ˳ÌÐòµÄʱ¼äÏÞÖÆ¡£Ô¶³ÌÔÚ¿Í»§ÄÇ ......
½ñÌì×öÁËÒ»¸ö´æ´¢¹ý³Ì »·¾³ÊÇSQL2000Êý¾Ý¿â
´óÖÂÈçÏÂ
½¨Á¢ÁÙʱ±í
¶¨ÒåÔ±¹¤Óαê
Ñ»·Ô±¹¤£¨ÊôÓÚ1¸ö¹«Ë¾)
......
´ÓÊý¾Ý¿âÖвéѯһÕűíµÄÊý¾Ý
select ²¿ÃÅ,ÐÕÃû from tb
ÈçºÎ²ÅÄÜÉú³ÉÏÂÃæµÄxml¸ñʽ
XML code:
<folder state="unchecked" label="È«²¿">
¡¡¡¡ <folder state="unchecked&qu ......
ÏÖÔÚÓÐÁ½ÕÅ±í£ºÎÄÕÂÖ÷±íA(articleId,articleTitle)£¬ÎÄÕÂÆÀÂÛ±íB(commentId,articleId,commentTitle)
ÏÖÔÚÎÒÏëʵÏÖÕâÑùµÄ¹¦ÄÜ£ºÁгöÎÄÕÂÁÐ±í£¬ÆäÖÐÿƪÎÄÕ±êÌâÏÂÃæÁгö´ËÎÄÕµÄǰ2¸öÎÄÕÂÆÀÂÛ£¬ÇëÎÊsqlÓï¾äÔõôд°¡ ......