pcl

• Oct 23rd, 2006

 

u can use ado object do it.

Code Example:

Dim Conn
Dim Conn2

Dim rs
Dim rs2

Dim Sql
Dim Sql2
      
Set Conn = CreateObject("ADODB.Connection")
Set Conn2 = CreateObject("ADODB.Connection")

Conn.Open "link database string"
Conn2.Open "link other database string"

Sql = "select * from TableName1"
sql2="select * from TableName2"

Set rs = CreateObject("ADODB.Recordset")

rs.Open Sql, Conn, 2, 2
rs2.Open Sql2, Conn, 2, 2

Do while not rs.eof
   if rs.fields(i)=rs2.filds(i) then
      rs.MoveNext
      rs2.MoveNext
      i=i+1
   else
      exit
      "do want"
   endif
loop

rs.close
rs1.close
conn.close
conn1.close

set rs=nothing
set rs2=nothing
set conn=nothing
set conn2=nothing