[vb6] Software che deve girare in rete

[axsw]

Ciao raga
Ho intallato il prg su una macchia e funziona dopodihè dovendo girare in rete ho reso la cartela dove gira condivisa anche un altra macchina client.
Aquesto punto quando vado sul client vedo la cartela e l'exe lo apro
e siccome il prg legge e scrive su alcuni database access sul client ho creato un DNS.
Ebbene quando cerco di accedere al dtabase mi dà questo errore
"Il modulo di gestione Jet non in grado di trovare la query di imput
"clienti" unsomma non trova la tabella.

option explicit

Set mydata = OpenDatabase(App.Path + "\" + "DBclienti.mdb")
    Set myrecord = mydata.OpenRecordset("clienti")

Il prg gira su win xp
Ciao e grazie a tutti coloro che vorranno aiutarmi.

[axsw]

Scusate sopra mi sono dimenticato di scrivere che i database
sono Access 2000

[axsw]

Aiuto vi prego
Sarà miCa perchè in alcume form non usato nessuno dei 2 oggetti
DAO o ADO ?

[axsw]

Reintegro una 2°à domanda
Dovendo sviluppare un'applicazione che usa DB access e sapendo che deve girare in rete locale quale dei 2 oggetti è meglio usare?
DAO oppure ADO.
Sperando che qualche buon cuore mi risponda vi saluto.

[axsw]

Ciao Raga odio essere invadente ed insistente ma davvero non sò a che santo rivolgermi, sono andato a comprarmi un libro
"ACCESSO AI DATI CON Visual basic 6.0" Mondadori.
Quasi tutto il libro spiega ADO, se qualcuno di voi conosce un link
o un libro che tratta materia magari almeno postarmi il link.
Spiegazione il mio prg. deve girare su 2 macchine "Client/Server"
ho circa 20 file .mdb(Access 2000).
Sono ben accetti trucchi e scorciatoie e magari l'eperienza che voi avete fatto avendo avuto a che fare con quste tematiche.
Grazie e ciao.

[arcadia]

Scusa ma io non ho capito il primo post...
Cioè tu hai installato il programma sul server, hai condiviso la cartella e lo lanci dal Client?
E poi scusa a che ti serve il DSN se punti al DataBase in modo diretto?

[allejo]

Ma scusa ma il database è sul server?
Quindi tutti gli utenti usano un database che è su un server solo????

[anatroccolo]

Io mi sono orientato in altro modo ossia sul Server metto solamente l'archivio, accessibile a tutti i client, mentre su ogni client installo il programma (.exe) che per conoscere il percorso dove si trova l'archivio (.mdb) legge un file txt/ini nel quale trova i riferimente (eventualmete modificabili).

Naturalmente il file di testo viene distribuito, e si trova, con il programma principale.

Ciao spero di esserti stato utile.

[axsw]

Risposte x arcadia:
Esatto prima ho installato solo l'exe sul client ed ho creato il DSN
ma non andava!, poi ho provato a condividere la cartella dove risiedono i database e l'exe, e non andava lo stesso.
A questo punto ho installato una versione più aggiornata di MDAC_TYP rispetto a quella che la che azione guidata di vb6 mi inserisce nel pacchetto che è la 25.o.4403.12
E adesso funziona (avrei stappato una bottiglia di champagne)
Risposte x allejo:
Esatto, ma sono solo un server ed un client.
Anatroccolo:
Difatti è proprio quello che avrei voluto fare io ma non ci sono riuscito, dalle ricerche che ho fatto avrei dovuto usare ADO probabilmente è il componente che gestisce meglio i database condivisi in rete ma io purtroppo non lo ho usato (anche quì poi sono pareri molto discordanti) ma tant'è.
Ora nasce un piccolo errore che non centra nulla coi database ed è questo: tra l'altro solo sul client.
In pratica su alcuni form faccio scomparire dei command button

Private Sub optclient_Click(Index As Integer)
MousePointer = vbHourglass
'FINESTRE
 frmcalcolo.cmdpreventiva.Visible = False
 frmcalcolo.cmdsalvaprev.Enabled = False
 frmcalcolo.cmdaggiungi.Caption = "&Calcola"
 frmcalcolo2.cmdpreventiva.Visible = False
 frmcalcolo2.cmdsalvaprev.Enabled = False
 frmcalcolo2.cmdaggiungi.Caption = "&Calcola"
 frmcalcolo3.cmdpreventiva.Visible = False
 frmcalcolo3.cmdsalvaprev.Enabled = False
 frmcalcolo3.cmdaggiungi.Caption = "&Calcola"
 frmcalcolo4.cmdpreventiva.Visible = False
 frmcalcolo4.cmdsalvaprev.Enabled = False
 frmcalcolo4.cmdaggiungi.Caption = "&Calcola"
 frmcalcolo5.cmdpreventiva.Visible = False
 frmcalcolo5.cmdsalvaprev.Enabled = False
 frmcalcolo5.cmdaggiungi.Caption = "&Calcola"
 frmcalcolo6.cmdpreventiva.Visible = False
 frmcalcolo6.cmdsalvaprev.Enabled = False
 frmcalcolo6.cmdaggiungi.Caption = "&Calcola"
'CANCELLI
 frmcalcoloC1.cmdpreventiva.Visible = False
 frmcalcoloC1.cmdsalvaprev.Enabled = False
 frmcalcoloC1.cmdaggiungi.Caption = "&Calcola"
 frmcalcoloC2.cmdpreventiva.Visible = False
 frmcalcoloC2.cmdsalvaprev.Enabled = False
 frmcalcoloC2.cmdaggiungi.Caption = "&Calcola"
'PERSIANE
 frmcalcoloP.cmdpreventiva.Visible = False
 frmcalcoloP.cmdsalvaprev.Enabled = False
 frmcalcoloP.cmdaggiungi.Caption = "&Calcola"
 frmcalcoloP2.cmdpreventiva.Visible = False
 frmcalcoloP2.cmdsalvaprev.Enabled = False
 frmcalcoloP2.cmdaggiungi.Caption = "&Calcola"
 frmcalcoloP3.cmdpreventiva.Visible = False
 frmcalcoloP3.cmdsalvaprev.Enabled = False
 frmcalcoloP3.cmdaggiungi.Caption = "&Calcola"
 frmcalcoloP4.cmdpreventiva.Visible = False
 frmcalcoloP4.cmdsalvaprev.Enabled = False
 frmcalcoloP4.cmdaggiungi.Caption = "&Calcola"
 frmcalcoloP5.cmdpreventiva.Visible = False
 frmcalcoloP5.cmdsalvaprev.Enabled = False
 frmcalcoloP5.cmdaggiungi.Caption = "&Calcola"
 frmcalcoloP6.cmdpreventiva.Visible = False
 frmcalcoloP6.cmdsalvaprev.Enabled = False
 frmcalcoloP6.cmdaggiungi.Caption = "&Calcola"
'AVVOLGIBILI
 frmDBavvol.cmdpreventiva.Visible = False
 frmDBavvol.cmdsalvaprev.Enabled = False
 frmDBavvol.cmdaggiungi.Caption = "&Calcola"
'PORTE 1
 frmDBporte1.cmdpreventiva.Visible = False
 frmDBporte1.cmdsalvaprev.Enabled = False
 frmDBporte1.cmdaggiungi.Caption = "&Calcola"
'PORTE 2
 frmDBporte2.cmdpreventiva.Visible = False
 frmDBporte2.cmdsalvaprev.Enabled = False
 frmDBporte2.cmdaggiungi.Caption = "&Calcola"
'PORTE 3
 frmDBporte3.cmdpreventiva.Visible = False
 frmDBporte3.cmdsalvaprev.Enabled = False
 frmDBporte3.cmdaggiungi.Caption = "&Calcola"
'PORTE 4
 frmDBporte4.cmdpreventiva.Visible = False
 frmDBporte4.cmdsalvaprev.Enabled = False
 frmDBporte4.cmdaggiungi.Caption = "&Calcola"
'PORTE bl 1
 frmDBporteBL1.cmdpreventiva.Visible = False
 frmDBporteBL1.cmdsalvaprev.Enabled = False
 frmDBporteBL1.cmdaggiungi.Caption = "&Calcola"
'PORTE bl 2
 frmDBporteBL2.cmdpreventiva.Visible = False
 frmDBporteBL2.cmdsalvaprev.Enabled = False
 frmDBporteBL2.cmdaggiungi.Caption = "&Calcola"
'ZANZARIERE
 frmDBzanza.cmdpreventiva.Visible = False
 frmDBzanza.cmdsalvaprev.Enabled = False
 frmDBzanza.cmdaggiungi.Caption = "&Calcola"
 MousePointer = 0 - Default
End Sub

Mi solleva errore di runtime (non ricordo il numero)errore sconosciuto.
Probabilmente sul pc non è installato il cursore vbHourglass

Ciao e grazie di cuore a tutti.

[allejo]

Ma il db è su un server e tutti gli utenti usano un db di quel server?