Newsgroup: it.comp.lang.visual-basic
Titolo: sql e vb

salve ragazzi, sto lavorando su un progetto ed utilizzo un database creato
con access 97
con le funzioni classiche di vb riesco ad ibnteragire ocn esso, ma arei
bisogno di utilizzare dei comandi sql, solo che non riesco a trovare una
guida decente che jmi spieghi come farlo
non č ke qualkuno mi puň spiegare cortesemtne come fare?????
mi fareste un esempio??  ancke una semplice select...
grazie mille
dangerdvd

Non č per niente semplice imparare l'SQL, soprattutto con una select..
Ti consiglio di acquistare qualche libro di sql.
Se vuoi un'infarinatura puoi seguire questa guida on line:
http://www.html.it/sql/
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 dangerdvd
dato che parli di mdb97 suppongo usi dao. comunque anche con ado non cambia
moltissimo.
' nella prima sub, maindb e' dichiarato as database e rs as recordset.
' ssql e' una stringa.
' tutti e tre a livello di dichiarazioni.
' se ti servono solo temporaneamente, dichiarali nella funzione.
' chiudili e annullali quando non ti servono piu'.
select dao
Private Sub cmdSearch_Click()
    If Trim(txtSearch) = "" Then Exit Sub
    On Error GoTo errman
    Screen.MousePointer = 11
    DoEvents
    Dim s As String, n As Long
    s = Replace(Trim(txtSearch), "'", "''")
    If optIniz Then
        sSql = "select * from catalogo where ints like '" & s & "*' order by
ints, pathname, filename"
    Else
        sSql = "select * from catalogo where ints like '*" & s & "*' order
by ints, pathname, filename"
    End If
    Set rs = mainDb.OpenRecordset(sSql, dbOpenDynaset)
    Data1.Caption = " (" & GetRecNo(rs) & ")"
    Set Data1.Recordset = rs
    DBG.ReBind 'dbgrid connessa al datacontrol
    Screen.MousePointer = 0
    Exit Sub
errman: Screen.MousePointer = 0: MsgBox Error
End Sub
Private Function GetRecNo(rs As dao.Recordset) As String
    With rs
        If .BOF And .EOF Then
            GetRecNo = 0
        Else
            .MoveLast
            GetRecNo = .RecordCount
            .MoveFirst
        End If
    End With
    GetRecNo = Format(GetRecNo, "###,##0")
End Function
'command dao
Private Sub cmdSQLexport_Click()
    If txtSQL = "" Then Exit Sub
    MainDB.Execute txtSQL 'stringa sql in un textbox
End Sub
'command ado
Public Sub dbLowerCase()
    If MsgBox("Set fields to lower case ?", _
     vbYesNoCancel) <> vbYes Then Exit Sub
    Dim aCmd As New adodb.Command, sSql As String
    sSql = "update movies set "
    sSql = sSql & "makerfirst=trim(lcase(makerfirst)), "
    sSql = sSql & "makerlast=trim(lcase(makerlast)), "
    sSql = sSql & "movie=trim(lcase(movie)), "
    sSql = sSql & "tradus=trim(lcase(tradus)), "
    sSql = sSql & "tradit=trim(lcase(tradit)), "
    sSql = sSql & "thread=trim(lcase(thread)), "
    sSql = sSql & "notes=trim(lcase(notes))"
    With aCmd
        .CommandText = sSql
        .CommandType = adCmdText
        .ActiveConnection = mainDB
        .Execute
    End With
    Set aCmd = Nothing
    MsgBox "ok"
End Sub
spero che per cominciare possa servirti. ma stai chiedendo mica poco, non si
risolverebbe in qualche centinaio di post...
-- 
hth, ciao, j.
http://www.sundaysw.com

 mi fareste un esempio??  ancke una semplice select...
Scrivi sempre cosě?
Alberto

 mi fareste un esempio??  ancke una semplice select...
selekt kampo1, kampo2 from tab

 selekt kampo1, kampo2 from tab
ROTFL!
Saluti
GianfraH
-- 
La Bellezza delle cose ama nascondersi.
Per trovarla, bisogna saperla cercare o
attendere che qualcuno ce la riveli.

 dangerdvd
scrivi più lentamente, la prossima volta, e vedrai che non ti scapperanno
così tanto lettere fuori posto.
:-)))
cmq, a parte tutti i siti che puoi trovare e che ti hanno consigliato, io
personalmente ti consiglio di acquistare uno di quei libri economici, mi
pare Mondadori. Ce n'è uno dedicato a SQL, costa solo 10 euro.
good coding!!!
-- 
Alletun
"Io lo so che accadrà. La voce sussurra nei miei pensieri di Jair, Rone,
Allanon e soprattutto nelle Mortombre.
Sussurra segreti che mi sono tenuti nascosti, nella grigia oppressione
di questo giorno e nell'oscurità caliginosa di quello che mi aspetta.
Saremo distrutti. Tutti."
Brin Ohmsford - La Canzone di Shannara - T. Brooks

 selekt kampo1, kampo2 from tab
ma rotfl! (e il "ma" ci va...)  ;-)


 ha scritto nel messaggio
news:c1ceu0$1ft0b2$1...@ID-174464.news.uni-berlin.de...

Come al solito solo l'aspetto godereccio,
il fattore umano ? ^__^
diamo al kontadino quello k'è der kontadino:
selekt kampo1, kontadino1, kampo2, kontadino2  from tab
Ave
giuseppeD