Newsgroup: it.comp.appl.access
Titolo: Problemi Modulo con sql

ho un programmino che tramite un modulo mi aggioprna delle tabelle in rete,
in un disco virtuale X,
La mia domanda
-- Se trasferisco le tabelle in SQL, e le collego al programmi access, che
percorso devo dare al programma perche trovi le tabelle ,
Ipotizzando che i file sia nella posizione  X:\msql7\data1\pippo.mdf  ????
Allego copia del modulo che uso
------
Public Sub Aggiungi_prenotazione1()
   Dim Dbs As Database
   Dim TbDati As Recordset
   Dim strPercorso As String
   'Esempio: "x:\dbAllegato_be.mdb" oppure il percorso di rete;
   strPercorso = "x:\prenotazioni\dbpreotazioni.mdb"
   Set Dbs = DBEngine.Workspaces(0).OpenDatabase(strPercorso)  'Apriamo il
Db'
   Set TbDati = Dbs.OpenRecordset("Datialberghi", dbOpenTable)
   TbDati.Index = "codealb"
   TbDati.Seek "=", Forms![prenotazioni]![codealb]
   Select Case Forms![prenotazioni]![tipostanza]
        Case "Doppia"
               TbDati.Edit
               TbDati!doppia = TbDati!doppia - 1
               TbDati.Update
               TbDati.Edit
               If TbDati!doppia < 0 Then MsgBox "Camera non disponibile"
              If TbDati!doppia >= 0 Then MsgBox "Camera  disponibile
Prenotazione effettuata"
             If TbDati!doppia < 0 Then TbDati!doppia = TbDati!doppia + 1
            TbDati.Update
            End
        Case "Matrimoniale"
             TbDati.Edit
            TbDati!matrimoniale = TbDati!matrimoniale - 1
            TbDati.Update
            TbDati.Edit
              If TbDati!matrimoniale < 0 Then MsgBox "Camera non
disponibile"
              If TbDati!matrimoniale >= 0 Then MsgBox "Camera  disponibile
Prenotazione effettuata"
             If TbDati!matrimoniale < 0 Then TbDati!matrimoniale =
TbDati!matrimoniale + 1
            TbDati.Update
            End
        Case "Quadrupla"
            TbDati.Edit
             TbDati!quadrupla = TbDati!quadrupla - 1
            TbDati.Update
            TbDati.Edit
              If TbDati!quadrupla < 0 Then MsgBox "Camera non disponibile"
              If TbDati!quadrupla >= 0 Then MsgBox "Camera  disponibile
Prenotazione effettuata"
             If TbDati!quadrupla < 0 Then TbDati!quadrupla =
TbDati!quadrupla + 1
            TbDati.Update
            End
        Case "Singola"
            TbDati.Edit
            TbDati!singola = TbDati!singola - 1
            TbDati.Update
            TbDati.Edit
              If TbDati!singola < 0 Then MsgBox "Camera non disponibile"
              If TbDati!singola >= 0 Then MsgBox "Camera  disponibile
Prenotazione effettuata"
             If TbDati!singola < 0 Then TbDati!singola = TbDati!singola + 1
            TbDati.Update
            End
        Case "Tripla"
            TbDati.Edit
            TbDati!tripla = TbDati!tripla - 1
            TbDati.Update
              TbDati.Edit
              If TbDati!tripla < 0 Then MsgBox "Camera non disponibile"
              If TbDati!tripla >= 0 Then MsgBox "Camera  disponibile
Prenotazione effettuata"
             If TbDati!tripla < 0 Then TbDati!tripla = TbDati!tripla + 1
            TbDati.Update
            End
        End Select
    End Sub
Grazie a chi potra aiutarmi
Carlo


Il collegamento a SQL Server non avviene direttamente al file, ma tramite il
nome del server, del database, user name e password.

 ha scritto nel messaggio
news:apovtc$3m79t$1...@ID-162989.news.dfncis.de...

ok , questo lo sapevo, e già collego i file con sql, ma il problema è il
modulo  come faccio a far si  che il modulo mi aggiorni i campi nella
tabella???