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 <
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......