工程--->引用--->Microsoft ActiveX Data Object 2.5(版本号) Dim CN As New ADODB.Connection '定义数据库的连接 Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=sqloledb;Data Source=客户端数据库;Initial Catalog=northwind;User Id=sa;Password=xxx;" CN.Open cn.Execute "insert into 你的表1..." cn.Execute "insert into 你的表2 ..."
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=客户端数据库;Initial Catalog=northwind;User Id=sa;Password=xxx;" CN.Open
cn.Execute "insert into 你的表1..."
cn.Execute "insert into 你的表2 ..."
'在网站上存放getinfo.asp
<%@ Language=VBScript %>
<%
set conn=Server.CreateObject("ADODB.connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Downloadlist.mdb")
dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from 表",conn
rs.save response,1
rs.close
%>'在vb中:
Set rs = New ADODB.Recordset
rs.Open "http://www.XXX.com/getinfo.asp"
Set MSHFlexGrid1.DataSource = rs' 取得记录集,就可以随便搞了。