Collegare due Dbase

[momi]

Salve a Tutti mi chiedevo se è possibile collegare due diversi database (ovviamente creati tutti e due con OpenOffice), nel senso due database con in comune alcune informazioni posso attingere da uno all'altro ?.
Esempio database 1 della ditta XX con tabelle Clienti e prodotti
databese 2 della ditta YY con tabella Clienti e prodotti (diversi ma con elementi comuni)

per non caricare due volte le stesse informazioni posso metterle in comune

[momi]

mi sa che questa volta ho esagerato con la fantasia, l'unica cosa che mi viene in mente, ma anche qui non sono riuscito ad attuarla è quella tramite query estrarre i dati che mi interessano creando un file di foglio elettronico e poi importarlo nel altro db ma non so come aggiungere appunto i dati nella tabella già popolata
qualcuno mi segue in questa follia.

[charlie]

Mah! E utilizzare un unico database con più tabelle duplicate (ma con nome diverso)?

[momi]

Ciao Charlie; il fatto è che i due archivi sono nati in tempi diversi con e esigenze specifiche, ma oggi per alcune parti, i progetti convergono o meglio hanno alcuni dati comuni

[vladboscaneanu]

Quello che vuoi ottenere si può fare solo tramite Basic.
Si,è fattibile....anche come...

[momi]

Ciao Viadboscaneanu è un ottima notizia, ma riesci a darmi qualche altro elemento .
Basic ? con delle macro inserite nei db o basic per conto suo... esempi ?

[vladboscaneanu]

La strada è lunga,occorre scrivere (e sistemare)un bel po di codice in basic(macro).
Nel database 1 c'è un formulario,con un campo di testo e un pulsante;una volta premuto inserisce il primo valore del Campo1 della Tabella1,del DataBase2.
Entrambi database si devono trovare nella stessa cartella .
Ciao

[momi]

Ok Si,
è quello che cercavo, ma se chiudi le macro come faccio a capire i meccanismi e a provare a scrivere qualcosa di simile ?

comunque grazie

[vladboscaneanu]

Codice: Seleziona tutto

Sub Main(oEvent)
On Error GoTo MyError
ResultSet=CreateUnoService("com.sun.star.sdb.DatabaseContext").GetByName(Split(ThisDataBaseDocument.URL,ThisDataBaseDocument.Title)(0) & "DataBase2.odb").GetConnection("","").createStatement.ExecuteQuery("SELECT ""Campo1"" FROM ""Tabella1"" WHERE ""ID"" = 0") 
ResultSet.Next()
oEvent.Source.Model.Parent.GetByName("Campo di testo 1").Text=ResultSet.GetString(1)
beep
Exit Sub
MyError:
MsgBox error,48,"Errore"
End Sub