Inner Join 2 tra database

[Partisan75]

Per cortesia mi aiutate a fare una inner join tra 2 database della stessa cartella?

ho provato così ma mi da erorre:

sql = "SELECT TABELLA_A.userID, TABELLA_B.USE_ID FROM DATABASE1.TABELLA_A a inner join DATABASE2.TABELLA_B b ON TABELLA_A.userID=TABELLA_B.USE_ID"

Set RS = Conn.Execute(SQL)

Grazie mille

[vic53]

nel forum c'è un articolo
http://forum.html.it/forum/showthread/t-1407033.html
guarda se ti può essere utile
ciao

[Partisan75]

si ho visto ma non riesco a capire perche non va e soprattutto non capisco se devo fare le 2 connessioni ai db!

in questa pagina ho la connessione di cui sotto:

<%
session("referer")= session("pagina")
session("pagina")= "http://"&request.ServerVariables("HTTP_HOST")&request.ServerVariables("PATH_INFO")&"?"&request.QueryString()
Dim Conn
Dim strConnect

Set Conn = Server.CreateObject("ADODB.Connection")
StrConnect = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & server.mappath("/mdb-database/Newsletter.mdb") & ";Persist Security Info = False" 

Conn.open StrConnect
%>

devo farne un'altra simile anche per il secondo db?
scusate ma non lho mai fatto e non so come proseguire.
Grazie in anticipo

[marino51]

da una prova fatta tempo fa usando MSSQL PDO,
ho aperto una sola connessione ad uno dei due db,
poi nella select ho specificato nomedb.nometabella
ottenendo i risultati,

ciò che posso aggiungere è che l'utente e psw davano accesso ad entrambi i db

[Partisan75]

grazie sono riusctito a risolvere così:

<%
                    Dim rs2
                    Set rs2 = Server.CreateObject("ADODB.Recordset")
                    
                    sql2 = "Select UTENTI.Mail FROM [C:\inetpub\wwwroot\mdbdatabase\db1.mdb].UTENTI INNER JOIN Users ON UTENTI.Mail = XXXX"
                    rs2.Open sql2, conn

                    %>

ora devo solo capire come ciclare e tirare fuori dei dati dal secodo db...

[marino51]

se ti interessa questo è l'esempio, funziona con entrambe le connection string, con 3 possibilità di lettura del risultato (molto simili se non uguali)
si, è scritto in php ma ... se non è zuppa è pan bagnato

$conn = new COM("ADODB.Connection") or die("Cannot start ADO");
$connStr = "Driver={SQL Server};Server=".$dbHOST."; Database=".$dbNAMEa."; Uid=".$dbUSER."; Pwd=".$dbPASS;
//$connStr = "PROVIDER=SQLOLEDB;SERVER=".$dbHOST."; UID=".$dbUSER."; PWD=".$dbPASS."; DATABASE=".$dbNAMEa; 
$conn->open($connStr);

$sql = "
select top 5 1 as id, TOTenergy as valore from ".$dbNAMEa.".dbo.inverter_meter
union
select top 5 2 as id, caf_lim1 as valore from ".$dbNAMEb.".dbo.carform
";

if ( true ) {
  print "<br />-------------------- 1st solution : recordset->open<br />";
  $recordset = new COM("ADODB.RecordSet");
  $recordset->open($sql, $conn, 3);
  //$recordset->movefirst();
  while(!$recordset->EOF){
    print
      $recordset->Fields['id']->value.
      " -- ".
      $recordset->Fields['valore']->value.
      "<br />";
    $recordset->movenext();
  }
  $recordset->close();
  $recordset = null;
  print "<br />";
}

if ( true ) {
  print "<br />-------------------- 2nd solution : conn->execute<br />";
  $recordset = $conn->execute($sql);
  //$recordset->movefirst();
  while(!$recordset->EOF){
    print
      $recordset->Fields['id']->value.
      " -- ".
      $recordset->Fields['valore']->value.
      "<br />";
    $recordset->MoveNext();
  }
  $recordset->Close();
  $recordset = null;
  print "<br />";
}

if ( true ) {
  print "<br />-------------------- 3rd solution : recordset->open -> rs_array[]<br />";
  $recordset = new COM("ADODB.RecordSet");
  $recordset->open($sql, $conn, 3);
  $selected_fields = array("id", "valore");
  $rs_array = array();
  while(!$recordset->EOF){
    $temp_record = array();
    foreach($selected_fields as $key => $fieldname){
      $temp_record[$fieldname] = $recordset->Fields[$fieldname]->value;
      print $temp_record[$fieldname]." -- ";
    }
    print "<br />";
    $rs_array[] = $temp_record;
    $recordset->movenext();
  }
  print "<br />";
} 

[Partisan75]

Risolto grazie a tutti

[optime]

fa' vedere come

[Partisan75]

fa' vedere come

ciao, ho messo sopra il codice funzionante...