Newsgroup: it.comp.appl.access
Titolo: Per Alessandro Baraldi

Riferimento: "considerazioni protezione livello utente".
Rancio ottimo e abbondante ;)
tnx

 tnx
Bene, la prossima volta sarebbe bene proseguire il precedente 3D.
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 tnx
Se hai voglia posta il codice che hai usato per linkare le
tabelle al BE protetto da MDW preparo un articolo e lo
pubblico nel mio sito e nel SitoComune, io sono molto pigro
e non ho molta voglia di riscriverlo da zero, però mi pare
un'argomento interessante, che ne dici..?
Questo è il mio sito:
http://www.mantuanet.it/alessandro.baraldi/


 un'argomento interessante, che ne dici..?
Volentieri, č un prezzo modico per l'aiuto che mi hai dato. Ma il codice č
fondamentalmente il tuo, solo adattato alle mie esigenze.
In ogni caso, č diventata un Function che prende tre argomenti e restituisce
una data a seconda che voglia recuperare la data di prima/ultima esecuzione
dell'applicativo, inoltre č da integrare per il caso che l'applicativo
stesso giri su A00 o A03.
Non ho avvertito il bisogno di linkare tutte le tabelle ogni volta. Lascio
tutti i link nel FE meno quelli di CONTATORE e SERIE e accedo cosě:
Function ContatoreMdw(Tabella As String, Optional First As Boolean, _
                                Optional Last As Boolean) As Date
On Error GoTo ErrHandler
   Dim Cn As ADODB.Connection
   Dim rsw As ADODB.Recordset
   Dim sDbName As String
   Dim sWkGrpFile As String
   Dim sSQLStmt As String
   Dim sRecords As String
   Dim idx As Long
   Set Cn = New ADODB.Connection
   Set rsw = New ADODB.Recordset
   sDbName = PathCorrente & "XX_be.mdb"
   sWkGrpFile = "C:\Documents and Settings\Kronos\Dati
applicazioni\Microsoft\Access\System1.mdw"
   sSQLStmt = "SELECT * FROM " & Tabella
   sRecords = vbNullString
   Cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
   Cn.Properties("Jet OLEDB:System database") = sWkGrpFile
   Cn.Properties("User Id") = "miouserId"
   Cn.Properties("Password") = "miapass"
   Cn.Open "Data Source=" & sDbName & ";"
   If First = False And Last = False Then
       rsw.Open sSQLStmt, Cn, adOpenStatic, adLockReadOnly 'il cursortype č
dvientato adOpenStatic
          'perchč ho bisogno della prop recordcount
       Dim conta As Long, anni As Integer, adesso As Integer
       Dim cmd As ADODB.Command
       Set cmd = New ADODB.Command
            conta = rsw.RecordCount
            Set cmd.ActiveConnection = Cn
            cmd.CommandType = adCmdText
            cmd.CommandText = "INSERT INTO CONTATORE " & _
                              "(ID, DATA) VALUES (""" & (conta + 1) & """,
Now());"
            cmd.Execute
            Set cmd = Nothing
    '---conta aperture-------------
       rsw.Requery
       rsw.MoveLast
       If rsw.Fields(0).Value Like "*0" Then MsgBox "Opportuno esportare le
tabelle.", vbExclamation, "IciMaster"
    ElseIf First = True And Last = False Then
       rsw.Open sSQLStmt, Cn, adOpenStatic, adLockReadOnly
       rsw.MoveFirst
       ContatoreMdw = rsw.Fields(1)
    ElseIf First = False And Last = True Then
       rsw.Open sSQLStmt, Cn, adOpenStatic, adLockReadOnly
       rsw.MoveLast
       ContatoreMdw = rsw.Fields(1)
    End If
ErrHandler:
   If rsw.State = adStateOpen Then rsw.Close:  Set rsw = Nothing
   If Cn.State = adStateOpen Then Cn.Close:  Set Cn = Nothing
   Exit Function
End Function
Spero possa essere utile :)
Ciao

Pensavo/Speravo avessi Linkato le tabelle tramite MDW e non solo il
Recordset.
Vabè appena ho un pò di tempo vedo di raggruppare un pò le cose ed
ottenerne
un Demo fruibile.
Grazie per la disponibilità
@Alex