VBÏòÊý¾Ý¿âÖÐдÈë¶àÌõÊý¾ÝʱËÙ¶ÈÔõôÄÜÌá¸ß£¿
ÎÒÏëÏòSQL SERVER 2008ÖÐдÈë´óÁ¿Êý¾Ý£¨¼¸ÒÚÌõ£©£¬Ã»ÌõÊý¾ÝÖ»Óм¸¸ö×Ö½Ú£¬ÈçºÎÄܹ»Ìá¸ßдÈëµÄËÙ¶ÈÄØ£¿ÎÒÏÖÔÚд100ÍòÌõ¾ÍÒª20¶à·ÖÖÓ£¬ÇëÎÊ´ó¼ÒÓÐʲôºÃµÄ½â¾ö°ì·¨ÄØ£¿
Õâ¸ö×îºÃÊÇʹÓÃÅúÁ¿µ¼ÈëµÄ·½Ê½,ºÜ¿ìµÄ,¾ÍÊǺÍDTSÏà¹ØµÄ·½Ê½,ÉõÖÁÄã¿ÉÉú³ÉCSV¸ñʽµÄÎļþ
Ó¡ÏóÖÐ,Ò»°ãÀ´Ëµ±ÈÄãÖ±½ÓÓÃado recordsetÈ¥Á¬½Ó¿ìÖÁÉÙÒ»±¶»¹²»Ö¹(±Ï¾¹ÊǼ¸ÄêǰÕâÑù¸ÉÀ²).¿´Äã˵µÄÕâ¸öÊý¾ÝÁ¿,ÄÇ»¹ÊÇDTS°É,ËûÊÇSQL SERVERÉÏ×Ô´øµÄ¹¤¾ß
ÇëÎÊÊÇʹÓÃÄÄÖÖÊý¾ÝÔ´µ¼ÈëÄØ£¿ÎÒÊý¾ÝÁ¿±È½Ï´ó£¬µ¥±íÒªµ½1ÒÚÐУ¬2.5¸öG
ÎÒVB´úÂ룺
Private Sub Command1_Click()
Dim I As Long
Dim RECORD1 As ADODB.Recordset
Label2.Caption = Now()
Set RECORD1 = New ADODB.Recordset
For I = Text1.Text To Text2.Text Step 10000
K = ""
For J = I To I + 9999
K = K & DigestStrToHexStr(Trim(J))
Next
selestr = "insert into num(word) values ('" & K & "')"
With RECORD1
.ActiveConnection = adoConnection
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open selestr
End With
DoEvents
Label1.Caption = I
Next
Label3.Caption = Now()
Set RECORD1 = Nothing <
Ïà¹ØÎÊ´ð£º
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......