怎麼把數組裏數據導入數據庫

[sono_yin]

我在網上提取出了一段需要的代碼.

聽高人指說要用SPIT()分離出來．然後成了一個數組．我不明白．
數組如何導入數據庫．

請高人指點．

[viaivi]

用数组为数据库里的每个字段赋值
update 表 set 字段1=A(1),字段2=A(2),字段3=A(3)

[CutBug]

<%
'arrList：你的数组
ReDim arrList(2)
arrList(0)="1" '这里举个类子
arrList(1)="2"
Set objCn = Server.CreateObject("ADODB.Connection")
str1 = Application("DBString") 'DBString：你的连接字符串
objCn.Open str1
For i= to ubound(arrList)
sql = "insert into T_Test(column) values('" & arrList(i) & "')" 'T_Test：表名 column：字段名
objCn.Execute(sql)
Next
objCn.Close()
Set objCn = Nothing
%>

[木头是猫]

再组合起来呗 然后入库

[hbjmdx008]

循环得到SQL字符串，然后运行这个字符串。

[sono_yin]

我得到的數組是一個二維的數組呀.那個怎麼才能存呀.

[CutBug]

<%
'arrList：你的数组
ReDim arrList(2,2)
arrList(0,0)="00"
arrList(0,1)="01"
arrList(1,0)="10"
arrList(1,1)="11"

For i=0 to 2
sql = "insert into T_Test(column1,column2) values('" & arrList(i,0) & "'," & arrList(i,1) & "')"
Response.Write sql & "<br>"
objCn.Execute(sql)
Next

%>

[sono_yin]

CutBug

高手,我的QQ:63598355

加我做個朋友好不好.

[CutBug]

QQ 上班不能开的啊
MSN: [e-mail]

[sono_yin]

CutBug


高手,我在網上提出來的數據.處理後如下: Rus.hockeyleague
10.00 ChabarovskAmur Ufa 4.09 4.77 1.53
Cro.Cup
13.30 HNKZagreb SlavenBelupo 1.34 4.22 7.39
Rus.hockeyleague
14.00 Omsk VitiazChehov 1.26 5.90 7.20
16.30 Yaroslavl Cheljabinsk 1.54 4.70 4.08
Cze.handballleague M
16.30 DuklaPraha Plzen 1.01 14.75 12.75
Rus.hockeyleague
17.00 Niznekamsk Novosibirsk 2.22 4.21 2.35
Kazan Novokuzneck 1.21 6.51 8.17
KryliaSovetovMoscow Togliatti 2.83 4.40 1.89
KhimikMytishi CSKAMoscow 1.78 4.44 3.07
Svk.1.liga
17.00 Poprad SlovanBratislava 2.31 4.13 2.28
Skalica Zvolen 2.67 4.21 1.99
Martin Nitra 1.70 4.34 3.38
Cze.Extraliga
17.00 Vsetin SpartaPraha 3.46 4.43 1.68
Pol.hockeyleague
17.00 UniaOsvetim Janow 1.86 4.73 2.74
Torun Tychy 2.14 4.58 2.31
KrynicaKTH Sanok 1.40 5.74 4.35
Krakow StoczniowiecGdansk 1.61 5.16 3.30
PodhaleNowyTarg ZaglebieSosnowiec 1.84 4.82 2.73
Pol.handballleague M
17.00 ElblagDarad OlimpiaPiekarySl. 1.86 9.84 1.98
Fin.SM liiga
17.30 AssatPori Karpat 3.92 4.48 1.60
Hameenlinna KalpaKuopio 1.26 5.87 7.33
LukkoRauma LahtiPelicans 2.01 4.24 2.70
TPSTurku JokeritHelsinki 2.28 4.13 2.34
IFKHelsinki Saipa 1.60 4.49 3.91
JypJyvaskyla IlvesTampere 2.11 4.17 2.53
TapparaTampere BluesEspoo 1.98 4.24 2.75
Svk.1.liga
17.30 Kosice Tren?in 1.80 4.24 3.09
Zilina LiptovskyMikulas 1.83 4.23 3.02
Cze.Extraliga
17.30 CeskeBudejovice Plzen 1.57 4.48 4.01
Znojmo Kladno 1.77 4.35 3.17
Litvinov Zlin 2.01 4.25 2.65
Aus.hockeyleague
18.00 Salzburg Innsbruck 1.52 4.77 4.22
Cro.Cup
18.00 DinamoZagreb InterZapresic 1.12 6.41 12.74
Cze.Extraliga
18.00 Pardubice Vitkovice 1.58 4.45 3.97
Nor.hockeyleague
18.30 Lillehammer ValerengaOslo 5.46 5.34 1.36
Cze.Extraliga
18.30 Liberec T?inec 1.50 4.51 4.51
Swe.Elitserien
19.00 SkellefteaAIK DjurgardenIF 2.02 4.32 2.68
BrynasGavle LuleaHF 1.84 4.40 3.03
Farjestad Frolunda 1.56 4.66 4.07
Aus.ErsteDivision
19.00 Admira/WackerModling LASKLinz 4.45 3.41 1.68
Schwanenstadt HartbergTSV 1.38 4.06 6.90
LustenauFC LeobenDSV 2.26 3.18 2.79
FCGratkorn AustriaWien(Am.) 1.52 3.64 5.51
KarntenFC Parndorf 1.57 3.52 5.16
KapfenbergerSV AustriaLustenau 3.10 3.21 2.08
Cze.Extraliga
19.00 SlaviaPraha KarlovyVary 1.54 4.47 4.22
Dan.hockeyleague
19.00 SonderjyllandIK Fredrikshavn 1.56 4.70 3.96
Herlev Aalborg 3.50 4.62 1.68
Ger.DEL
19.30 Norimberg Dusseldorf 2.22 4.30 2.36
Krefeld Duisburg 1.35 5.32 5.70
Koln IngolstadtERC 2.14 4.33 2.44
Aus.handballleague M
19.30 AlplaHCHard UHCGanserndorf 1.05 15.85 9.36
Swi.NationalligaA
19.45 BaselEHC Langnau 1.86 4.43 2.85
Lugano SCZurich 1.73 4.48 3.24
AmbriPiota Davos 2.77 4.38 1.91
Bern Rapperswill 1.67 4.52 3.40
Kloten Zug 1.96 4.37 2.68
20.00 ServetteGE Fribourg 1.58 4.53 3.81
Dan.hockeyleague
20.00 RodovreKobenhavn Odense 1.96 4.36 2.70
Herning Rungsted 1.42 4.70 4.99
Eng.LDVTrophy
20.30 Darlington Mansfield 1.81 3.30 3.83
Eng.LeagueChampionship
20.45 Stoke Cardiff 2.28 3.16 2.83
Wolves CrystalPalace 1.91 3.23 3.65
Preston Coventry 1.72 3.34 4.42
Norwich Leicester 1.89 3.23 3.70
Colchester Hull 1.88 3.22 3.74
Barnsley Southend 1.92 3.22 3.60
Burnley Leeds 1.88 3.25 3.71
Plymouth Luton 1.83 3.25 3.92
SheffieldWednesday WestBromwich 2.60 3.14 2.46
Ita.Cup
20.45 Livorno Arezzo 1.31 4.45 8.36
Sco.Cup
20.45 Queen'sParkFC Brechin 2.56 3.32 2.34
Eng.LDVTrophy
20.45 Doncaster AccringtonStanley 1.60 3.46 4.88
Cheltenham Shrewsbury 1.82 3.30 3.78
Millwall Brighton 2.28 3.20 2.74
Spa.handballleague M
20.45 CajaEspanaAdemar AragonCAIBM 1.10 14.23 7.35
Eng.PremierLeague
21.00 Watford SheffieldUnited 2.19 3.16 3.13
Eng.LeagueChampionship
21.00 Q.P.R. Sunderland 2.28 3.16 2.82
Ita.Cup
21.00 Brescia MilanAC 4.01 3.06 1.87
Parma Napoli 2.20 2.85 3.28
GenoaFC EmpoliAC 2.30 2.91 3.33
NBA
23.55 Denver Memphis 1.23 14.80 4.27
WashingtonWiz. AtlantaHawks 1.42 13.35 3.05
Portland Indiana 2.23 11.80 1.72
NewOrleans TorontoRaptors 1.38 13.78 3.20
Houston Minnesota 1.31 14.10 3.59
Sacramento L.A.Clippers 1.73 12.00 2.22
NewJerseyNets Charlotte 1.25 14.85 4.04
L.A.Lakers Milwaukee 1.37 13.80 3.20
ChicagoBulls NewYork 1.36 13.95 3.32
NHL
23.55 TampaBay Washington 1.94 4.19 2.78
Calgary Colorado 2.08 4.11 2.57
St.Louis SanJose 2.78 3.71 2.06
NYRangers Atlanta 2.11 4.11 2.52
Toronto Boston 1.92 4.20 2.80
Vancouver Columbus 1.76 4.34 3.16
Montreal Florida 1.85 4.26 2.90
Pittsburgh NYIslanders 2.17 4.09 2.45
Carolina Ottawa 2.17 4.08 2.46
Edmonton Anaheim 2.26 4.08 2.36
AHL
23.55 HamiltonBulldogs MilwaukeeAdmirals 1.83 4.25 2.90


他們存在一個變量BODY裏.我想把他們存入數據庫,不知道怎麼寫代碼.
請指教.

[CutBug]

下面分别对应于的表中的字段是几个，哪几个？

23.55 TampaBay Washington 1.94 4.19 2.78
Calgary Colorado 2.08 4.11 2.57
St.Louis SanJose 2.78 3.71 2.06
NYRangers Atlanta 2.11 4.11 2.52
Toronto Boston 1.92 4.20 2.80
Vancouver Columbus 1.76 4.34 3.16
Montreal Florida 1.85 4.26 2.90
Pittsburgh NYIslanders 2.17 4.09 2.45
Carolina Ottawa 2.17 4.08 2.46
Edmonton Anaheim 2.26 4.08 2.36
AHL

[sono_yin]

23.55 對應表中的 matchDate
Rus.hockeyleague matchType
TampaBay Home
Washington Away
1.94 hodd
4.19 aodd
2.78 draw

[CutBug]

<%
'那你就用"@"将每行隔开,","将每列隔开：
sBody = "10.00,Chabarov,skAmur,Ufa,4.09,4.77,1.53@"_
& "12.00,dhabarov,skAmur,Ufa,4.09,3.67,1.43"
t = split(sBody,"@")
vl = ubound(t)
ReDim arrList(vl,7)
'转成二维数组
For i=0 to vl
For j=0 to 6
Response.Write split(t(i),",")(j) & ","
arrList(i,j)=split(t(i),",")(j)
Next
Response.Write "<br>"
Next


For i=0 to vl
sql = "insert into TableName(matchDate,matchType,Home,Away,hodd,aodd,draw) "_
& "values('" & arrList(i,0) & "'," _
& "'" & arrList(i,1) & "'," _
& "'" & arrList(i,2) & "'," _
& "'" & arrList(i,3) & "'," _
& "'" & arrList(i,4) & "'," _
& "'" & arrList(i,5) & "'," _
& "'" & arrList(i,6) & "')"


Response.Write sql & "<br/>"
objCn.Execute(sql) '你的connection objCn
Next


%>