@russellDec 11.2006 — #easiest to use export/import in msaccess. if u MUST use ASP, this will work. <i> </i><% main
Sub main() Dim ar ar = getOriginalData()
<i> </i>If isArray(ar) Then <i> </i> Upload ar <i> </i> Response.Write "ok" <i> </i>Else <i> </i> Response.Write "No Data" <i> </i>End If End Sub
Sub Upload(ar) Dim i Dim sql Dim cmd
<i> </i>Set cmd = Server.CreateObject("ADODB.Command") <i> </i>[color=green] <i> </i>'' need to declare variables and assign them here <i> </i>'' for values to be inserted into db. for example, if our select statement <i> </i>'' was select id, name, address from originalTable: <i> </i>[/color] <i> </i>id = ar(0, i) <i> </i>name = ar(1, i) <i> </i>address = ar(2, i)
<i> </i> For i = 0 to ubound(ar, 2) <i> </i> sql = "INSERT INTO newTable (id, name, address) " &_ <i> </i> "Values (" & id & ", '" & name & "', '" & address & "')"
<i> </i> .Execute <i> </i> Next <i> </i>End With
<i> </i>Set cmd = Nothing End Sub
Function getOriginalData() Dim cmd Dim rs Dim sql
<i> </i>sql = "SELECT id, name, address FROM originalTable"