[VB6] Un comando per più progetti

[angillieri]

buon pomeriggio
avrei due domande da fare
prima domanda
o fatto un piccolo programma per gestire un conto corrente
bancario "versamenti-assegni-saldo"
siccome o rapporti con 3 banche non vorrei fare tre progetti
uguali per gestirli tutte e tre
si potrebbe con il form di apertura mettendo 3 commandbutton
e lo stesso programma potendo all'inizio gestire i comandi
data per gestire il database della banca selezionata col commandbutton

seconda domanda
avendo delle variabili uguali per tutti i form
si potrebbe gestire queste variabili in un solo form

scusate se non sono abbastanza chiaro nel scrivere le domande
ma non sono tanto pratico
grazie

[alka]

Anche se in generale potrebbe risultarti più scomodo, è sempre meglio trattare in ogni discussione un solo argomento: in questo modo, il forum risulta consultabile più facilmente.

Ciao!

[ladyBlu]

Per fare ciò che chiedi devi crearti una variabile globale nella quale memorizzi il nome o l'id della Banca per la quale si è scelto di eseguire il progetto.
Ad esempio, se hai queste banche:
- San Paolo
- Unicredit
- Banca di Roma
puoi fare un form iniziale contenente una combobox con in elenco i 3 nomi delle banche e un command button per far partire il programma.
L'utente sceglierà una banca dall'elenco e cliccando sul bottone potrà iniziare a gestire il conto corrente relativo.
Nel modulo (.bas) del progetto dichiari una variabile

Public str_Nome_Banca As String

così ad avere nel form:

Private Sub Form_Load()
    Combo1.AddItem "San Paolo"
    Combo1.AddItem "Unicredit"
    Combo1.AddItem "Banca di Roma"
End Sub

Private Sub Command1_Click()
    str_Nome_Banca = Combo1
   'qui parte il programma per la banca selezionata
End Sub

da qui in poi bisogna vedere come hai gestito l'interazione con il database.

spero di essere stata chiara.

[mgmg]

prima domanda
o fatto un piccolo programma per gestire un conto corrente
bancario "versamenti-assegni-saldo"
siccome o rapporti con 3 banche non vorrei fare tre progetti
uguali per gestirli tutte e tre
si potrebbe con il form di apertura mettendo 3 commandbutton
e lo stesso programma potendo all'inizio gestire i comandi
data per gestire il database della banca selezionata col commandbutton

Sì è fattibile. E' possibile anche richiedere con un form di apertura su quale database vuoi lavorare.

seconda domanda
avendo delle variabili uguali per tutti i form
si potrebbe gestire queste variabili in un solo form

Anche questo è possibile. Se i tracciati record (nomi dei campi e tipo sono uguali) che devi gestire nel form sono uguali e cambia solamente il database, puoi associare il controllo data, alla tabella ed al database che vuoi.

Non specifichi se hai scritto il programma in DAO o in ADO, mi è difficile dirti anche se gli oggetti data sono simili dove devi operare.
Ciao

[maurorog]

Non trovi sia esagerato avere 3 db differenti per tre banche, quando puoi identificare ogni record dei movimenti con l'ID della banca ( es. 1 san paolo, 2 Banca di roma etc ).
In questo modo, con un unico DB puoi gestire tutte le banche che vuoi.

[angillieri]

scusate il ritardo di risposta
il programma e scritto in dao
se possibile mi sarebbe piu comodo con 3 db potendo all'inizio
associando al controllo data con qualche stringa a quale banca si riferisce il controllo stesso
grazie

[mgmg]

Se nel controllo data hai impostato nelle proprietà DataBaseName o RecordSource fisse le devi rimuovere.
Quando farai click sul comando associerai l'apertura del database (banca) e, quando deciderai di visualizzare i dati nella DBGrid dovrai fare:

Data1.DatabaseName = db.name 'percorso e nome del database (banca) aperto
Set Data1 = Dbnow.OpenRecordset("Select * from Tabella order by campo1,campo2")
Set dbgrid1.Recordset = Data1

Ciao

[angillieri]

scusate a me interesserebbe potendolo fare
avendo come stringa x l'apertura del db
nome = "C:\Programmi\Microsoft Visual Studio\VB98\gestione conti correnti\napoli.mdb"

ed avendo nel form principale tre commandbutton chiamati
command1="napoli"
command2="roma"
command3="carime"
pigiando sul command2 modificare la stringa in
nome = "C:\Programmi\Microsoft Visual Studio\VB98\gestione conti correnti\roma.mdb"
cosi che questa stringa varrebbe per tutti i controlli data del progetto corrente

cosi avendo tre db napoli.mdb,roma.mdb,carime.mdb e lo stesso progetto
valevole per tutti e tre

ciao

[mgmg]

Sì va bene, dichiari la variabile nome public come stringa in un modulo, in questo modo tutti i form la riconosceranno.

Puoi eventualmente fare così:

Private Sub Command1_Click()
  nome = "C:\Programmi\Microsoft Visual Studio\VB98\gestione conti correnti\napoli.mdb" 
  me.Hide ' nasconde il form
  Load Formx
  Formx.Show 1
End Sub

Private Sub Command2_Click()
  nome = "C:\Programmi\Microsoft Visual Studio\VB98\gestione conti correnti\roma.mdb" 
  me.Hide ' nasconde il form
  Load Formx
  Formx.Show 1
End Sub

Private Sub Command3_Click()
  nome = "C:\Programmi\Microsoft Visual Studio\VB98\gestione conti correnti\carime.mdb" 
  me.Hide ' nasconde il form
  Load Formx
  Formx.Show 1
End Sub


'nel formx (form di gestione conti correnti) a form load apri il database 
Private Sub Form_Load()

  Set Db = OpenDatabase(Nome, False, False, Pass)
'esegui le tue operazioni
End Sub
'bottone di chiusura del formx 
Private Sub BtnStop_Click()
    Unload Me
End Sub
'chiudi il data bese e ritorni al form iniziale
Private Sub Form_Unload(Cancel As Integer)
   db.close
   set db = Nothing
   set Form1.show ' ripristini il primo form con i pulsanti
End Sub

[angillieri]

grazie domani provo e ti faccio sapere
ciao