<% 'Related instructions' -----------------' Features: Copy the data of table TABLE1 in the database TEST1.MDB to the database Table2 in Test2.mdb [Field3], [Field4] '------------------- Dim Conn, cmdset conn = server.createObject ("AdoDb.Connection" ) conn.open "provider = microsoft.jet.Oledb.4.0; data source =" & server.mappath ("test2.mdb")
Set cmd = server.createObject ("adoDb.command") cmd.activeconnection = conncmd.commandtext = "Insert Into Table2 ([Field3], [Field4]) SELECT [Field1], [Field2] from table1 in" "f: / Test / tset1.mdb "" "cmd.executeresponse.write" is ok! "set cmd = nothingconn.closset conn = Nothing%>
