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ÖÐ×Ö¶ÎÀàÐÍÊÇ£ºÎı¾
{{---
Ïà¹ØÎÊ´ð£º
ÎÒÓÐÒ»¸ö±í£¬½á¹¹ÊÇÕâÑù¡£
ת³ö µ¥Î» תÈ뵥λ ±ÊÊý ½ð¶î
date(Ö÷) outid(Ö÷) inid(Ö÷) num amt
2009 1 2 1 500 Ϊ 1 µ¥Î» ÔÚ2009Ä ......
´ÓÊý¾Ý¿âÖвéѯһÕűíµÄÊý¾Ý
select ²¿ÃÅ,ÐÕÃû from tb
ÈçºÎ²ÅÄÜÉú³ÉÏÂÃæµÄxml¸ñʽ
XML code:
<folder state="unchecked" label="È«²¿">
¡¡¡¡ <folder state="unchecked&qu ......
ÎÒÃÇC#×öÒ»¸ö´°Ìå ÍùÊý¾Ý¿âÀï²åÈëÊý¾Ý
SqlConnection cn = new SqlConnection("Data Source=20090713-1752\\SQLEXPRESS;Initial Catalog=goods;Integrated Security=True");
......
ÎÒÊÇÔÚtoadÖÐÊäÈë϶Îsql
declare
TYPE test_rec IS record(
code varchar(10),
name varchar(30)
);
v_book test_rec;
......
ÏëÓÃSQL CLR×öÈçϵĴ洢¹ý³Ì,µ«ÊÇ·¢ÏÖ±¨´í:
{ÓÉÓÚ´úÂëÒѾ¹ýÓÅ»¯»òÕß±¾»ú¿ò¼ÜλÓÚµ÷ÓöÑÕ»Ö®ÉÏ£¬ÎÞ·¨¼ÆËã±í´ïʽµÄÖµ¡£}
¶øÇÒÈç¹ûÊý¾Ý´Ócase 1ͨ¹ýʱ¾ÍÊÇÕýÈ·µÄ,´Ócase 2ͨ¹ýʱ´íÎó
²¢ÇÒÔÚc ......