Newsgroup: it.comp.appl.access
Titolo: sql e codice

ciao a tutti.
Vorrei trasportare l'sql delle query che ho ed inserirlo all'interno delle
mie maschere. Ho ben capito che fare query-visualizza sql-copy paste non
basta......
Qualcuno mi può spiegare un metodo?
Forse poi anche un esempietto di sql che gira all'interno di un codice non
sarebbe male, per farmi capire come lanciarlo con l'evento su click di un
bottone
grazie

 bottone
Sull'evento click del bottone metti il comando che ti ho detto seguito dalla
stringa sql che vuoi eseguire. Questo se si tratta di query do comando. In
caso di query di selezione devi associarle ad un recordset, ovvero darle
come origine dello stesso.
Saluti.
Luciano
(DOC)

 Saluti.
scusa, una cosa tipo miorecordset = docmd.runsql bla bla bla .....??
oppure recordset? perchè ne creo uno mio? (mi viene istintivo)
una volta avuto un recorset, se voglio fare qualcosa con il campo "uno",
tipo da una form:
miacaselladitesto1=uno+2  come funziona?
(vorrei che in maschera venisse visualizzato il valore di questo campo,
oppure manipolato. Come richiamarlo? dal "miorecordset"??
eh, comunque grazie, faccio fatica io a spiegarmi figuriamoci voi a
rispondere.............
ciao

oppure manipolato. Come richiamarlo? dal "miorecordset"??
miacaselladitesto1=rs!uno+2
Vincenzo Turturro
---------------------------------------------------------
Se no diventiamo tutti **** dai portatili o peggio ancora 
provetti poeti fiorentini come vturturro.
(Così disse 
ivan....@tiscalinet.it
 Ven 25 Aug 2000 09:34:52 +0200)


Private Sub CmdOk_Click()
Dim StrSQL As String
Dim Dbf As Database
Dim RstIn As Recordset
Dim rstout As Recordset
    StrSQL = "SELECT A01DITTA.A01Key_Ditta, A01DITTA.A01_RagSoc,
A01DITTA.A01_TestFiada, " & _
                "D04VERSAMENTI.D04_AnnoRif, D04VERSAMENTI.D04_NoEbret " & _
            "FROM A01DITTA LEFT JOIN D04VERSAMENTI ON " & _
                    "A01DITTA.A01Key_Ditta = D04VERSAMENTI.D04Key_Ditta " &
_
            "WHERE (((A01DITTA.A01_TestFiada) = 'S') And " & _
                    "((D04VERSAMENTI.D04_AnnoRif) = " & Me.TxtAnno & ")) " &
_
            "ORDER BY A01DITTA.A01Key_Ditta, D04VERSAMENTI.D04_AnnoRif, " &
_
                    "D04VERSAMENTI.D04_NoEbret"
    Call CicloCancella
    Set Dbf = CurrentDb
    Set RstIn = Dbf.OpenRecordset(StrSQL, dbOpenDynaset)
    While Not RstIn.EOF
    .
    .
    .
    .
    .
    Wend
    RstIn.Close
    Set Dbf = Nothing
End Sub
Spero che possa aiutarti..... GOIO





basta......
mica ho capito.  ti serve il codice sql di una query?  setta una
querydef sulla query stessa, l'sql lo trovi nella proprietà .sql:
dim dbs as database
dim qdf as querydef
set dbs = currentdb
set qdf = dbs.querydefs("nomequery")
msgbox "Il codice sql della query è: " & qdf.sql
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access

 ha scritto nel messaggio
news:39c9db42...@news.interbusiness.it...


maschere, sotto forma di codice.
dim ssql as string
ssql = "SELECT ..."
docmd.runsql ssql
oppure:
dim dbs as database
dim ssql as string
ssql = "SELECT ..."
dbs.execute ssql
