Newsgroup: it.comp.appl.access
Titolo: Importare variabile da un exe VisualBasic in un DB

Salve a tutti
sicuramente quello che chiedo è un pò strano
si presenta fattibile una importazione di una o più variabili
(pubbliche ovviamente) da un applicativo sviluppato in VIsual Basic in
un modulo VBA dentro un DB??
Mi spiego meglio
ho creato un piccolo programmino che fa alcune operazioni, fatte queste
operazioni, tali valori vengono memorizzate in 3 variabili pubbliche
con shell mi apro un mdb  e li faccio altro, però nel lavoro svolto in
questo DB ogni tanto mi torneranno utili queli valori presenti in
quelle tre variabili
come posso importarle e averle sempre a portata di codice :))
grazie
a presto
CLaudio

 CLaudio
Non ho ben capito il programmi no EXE dove stia in questo contesto..?
Non sei stato chiarissimo.
Le variabili le puoi passare come se fossero un CMD(command) e
recuperarle all'apertura del file MDB, oppure se invece di usare
SHELL avessi usato Access.Automation per aprire il DB ed avessi
esposto un metodo Public avresti potuto passare tali valori
direttamente al Metodo.
Spero di essere stato chiaro.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 CLaudio
Scrivile in un file txt
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

direttamente al Metodo
usando Access.Automation come potrei impostarlo??
spero di essere stato chiario io questa volta
Ciao 
CLaudio

>Scrivile in un file txt
cioè, ad ogni avvio dell'eseguibile creare un txt con le variabili
popolate??
Ciao
CLaudio

Claudio ha scritto:

Così su due piedi mi verrebbe da dire file di appoggio,
una applicazione scrive e l'altra legge i dati.
byEz
-- 
Claudio(BS)
L'unico problema per l'uomo non sta nella difficoltà delle sue imprese
ne' nella quantità di denaro necessario per compierle, ma nella durata
della sua esistenza. (Claudio 14.02.2004)
NB. Protezione antispam
Per rispondere aggiungere claudio

A parte il suggerimento del file d'appoggio, che non condivido ma che
può
essere un'idea(meglio l'uso di una Key nel Registry a questo punto), se
apri via Automazione Access e crei una funzione Public nel DB
puoi accedervi attraverso l'oggetto Database ed eseguirla.
Tieni conto che VB6 supporta DAO pertanto è estremamente semplice
crearsi un oggetto database con CreateDatabase.
Dim accApp As Object    ' Dichiara la variabile in cui
                            ' memorizzare il riferimento.
Dim extDB as DAO.Database
Set accApp = CreateObject("access.application")
    ' È necessario impostare la proprietà Visible
    ' su True per visualizzare l'applicazione.
accApp.Visible = True
    ' Utilizza accApp per accedere ad altri oggetti
    ' di Microsoft Access.
 Set extDB=accApp.DBEngine.Workspaces(0).CreateDatabase(......)
 extDB.NomeFunzione Param1,Param2,....
Oppure come ti dicevo passando il Command all'apertura con Shell
Ciao
@Alex

 extDB.NomeFunzione Param1,Param2,....
GRazie Alex
la soluzione penso sia la migliore
il problema però è quello di non capire come impostare questa
funzione
in access mi creo una funzione in un modulo dove dichiaro le variabili
pubbliche??
Function Variabili()
public Archivio
end function
per popolare quella variabile, lo devo fare da Visual Basic
oppure una volta aperto il DB lo faccio le modulo??
Grazie
CLAudio

 CLAudio
Nel DB crei un Modulo cosě:
Option Compare Database
Option Explicit
Public Variabile1 as TuoTipo
Public Variabile2 as TuoTipo
Public Function ExternalVar(value1 as TuoTipo, Value2 as TuoTipo)
   Variabile1=Value1
   Variabile2=Value2
End Function
Sottilizzando si potrebbe usare una Property di tipo Public
dichiarata in un Modulo:
Option Compare Database
Option Explicit
Public Variabile1 as TuoTipo
Public Variabile2 as TuoTipo
Property Let SetVariabile1(Value As TuoTipo)
   Variabile1 = Value
End Property
Property Let SetVariabile2(Value As TuoTipo)
   Variabile2 = Value
End Property
Usa quello che vuoi....!
Dall'esterno poi le chiami sull'oggetto Database.
Ciao


 essere un'idea(meglio l'uso di una Key nel Registry a questo punto)
[CUT]
Senza divagare troppo, posso sapere perchè non condividi la soluzione 
del file (Key se preferisci) di appoggio?
L'idea della property public mi piace, non ci avevo pensato. :-)


 byEz
Ciao ben risentito


 per queste 2 soluzioni che ho proposto.
Sempre molto chiaro e preciso ;-)
Grazie per la spegazione.


Ciao Alex
solo ora sono riuscito a leggere il newsgroup
provo subito le soluzioni suggerite
speriamo bene
 
ti farò sapere
ciauz
Claudio

Private Sub Command1_Click()
Dim accApp As Object
Dim extDB As DAO.Database
Set accApp = CreateObject("access.application")
accApp.Visible = True
 Set extDB =
accApp.DBEngine.Workspaces(0).OpenDatabase("C:\lavori\variabili.mdb")
      extDB.ExternalVar ValoreVariabile1, ValoreVariabile2
End Sub
Così come l'ho impostata, sicuramente male
mi da "impossibile trovare il metodo o il menbro dei dati"
nei riferimenti ho spuntato Microsoft Access librery, giusto???
p.s. ExternalVar è la funzione publica presente nel modulo variabli
all'interno del DB
dove sbaglierò??
Ciuaz