谁能给我个例子？（要程序） 谢谢！

[quaster]

谁能给我个例子，是关于asp与access的
要求是：利用ASP从一个数据库中读出数据，并把这些数据再存放到另一个数据库里

大家有没有这样的例子，最好是程序！　谢谢谢谢

[quaster]

请再说的详细一些　谢谢！
比如原来有个Database1.mdb,里面有个表Table1，
表里放的是＂姓名＂，＂年龄＂，＂性别＂３个属性
现在我要读出该表的数据放到另一个数据库Database２.mdb,里面有个表Table２里
table2里放的也是那些属性

请大家再详细说明一下～　　万分感谢！

[888228]

Date1Path="Database1.mdb" '数据库1
Date2Path="Database2.mdb" '数据库2

Set connstr1 = Server.CreateObject("ADODB.Connection")
Set connstr2 = Server.CreateObject("ADODB.Connection")

connstr1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Date1Path)
connstr2="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Date2Path)


conn1.Open connstr1
conn2.Open connstr2

Set Rs = Conn1.Execute("Select 姓名,年龄,性别 From Table1")

Do while Not Rs.Eof

Conn2.Execute("insert into(姓名,年龄,性别)values('"&Rs(0)&"',"&Rs(1)&",'"&Rs(2)&"') ")

Rs.Movenext
loop

Rs.Close
Set Rs = Nothing

[madwang1]

看看我这个，我不知道性能如何，感觉应该可以，测试交给你了。
如果有好的方法，各位高手不要吝啬呀。
如果sql server就好了，用存储过程比较好。
'建立连接的代码你自己找吧，我记不住，不好意思，假设conn

sql_data="select field1(,field2,...) from dbTable1 where yourCondition"
set rs=conn.execute(rs)
if not (rs.eof or rs.bof) then
while not rs.eof
field1=rs("fiedl1")
field2=rs("field2")
...
sql_insertdata="insert into dbTable2(field1,field2,...) values
('"&field1&"','"&field2&"')"//注意具体的字段/代码具体写法
conn.execute(sql_insertdata)
rs.movenext
loop
else

..

end if

'关闭rs,conn

[quaster]

谢谢啊～　可是我改了改之后数据还是没有读出来　怎么回事？

[quaster]

谢谢啊～　可是我改了改之后数据还是没有读出来　怎么回事？

[quaster]

有没有高手在呀～

Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''

说的是这两行
conn1.Open connstr1
conn2.Open connstr2