Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Visual Basic e SQL

Hai problemi con i file Zip, vuoi formattare l'HD, non sai come funziona FireFox? O magari ti serve proprio quel programmino di cui non ricordi il nome! Ecco il forum dove poter risolvere i tuoi problemi.

Moderatori: Dylan666, hydra, gahan

Visual Basic e SQL

Postdi ILBELLA » 13/11/02 14:06

Ciao, sto tentando di fare un programmino in visual basic che interagisca con una tabella di un database Access.
Vorrei, da programma, costruirmi l'istruzione sql (insert,delete,select) e farla eseguire.
Come posso fare, dove posso trovare qualche programma di esempio in cui VB interagisce con Access?

Grazie mille,
Ciao.
ILBELLA
Utente Junior
 
Post: 14
Iscritto il: 09/01/02 01:00
Località: milano

Sponsor
 

Postdi kadosh » 13/11/02 14:36

Ti basta instanziarti una variabile, come ad esempio SQL e assergnarle l'istruzione necessaria, del tipo:

sql = "SELECT * FROM nome_tabella WHERE classe = 1"

poi alla fine di tutte le righe sql richiamate usi il comando SQL EXECUTE per farle eseguire in un'unica riga di comando.
Cmq trovi le spiegazioni nel MSDN di MS ;)
Ch®is ˜˜ www.glgroup.it˜˜ {~Up You® Life~}™ Semper Fidelis
Avatar utente
kadosh
Moderatore
 
Post: 3791
Iscritto il: 24/09/01 01:00
Località: Roma

Postdi zello » 13/11/02 17:05

Vabbè, uso DAO perché me lo ricordo un po' meglio (è qualche annetto che non uso vb, ormai). Ti consiglio di cercare materiale su ADO (Active Data Object), è più - come dire - moderno...
Questo crea un database, inserisce una tabella, un record, poi lo estrae con una query
Codice: Seleziona tutto
Option Explicit
Sub createDb()
    Dim db As Database
    Set db = Workspaces(0).CreateDatabase("c:\temp\prova.mdb", dbLangGeneral)
    Dim tbl As New TableDef
    tbl.Name = "Tabella"
    Dim fld As New DAO.Field
    fld.Type = dbLong
    fld.Name = "Id"
    fld.Attributes = dbAutoIncrField
    tbl.Fields.Append fld
    Set fld = New DAO.Field
    fld.Name = "Stringa"
    fld.Type = dbMemo
    tbl.Fields.Append fld
    db.TableDefs.Append tbl
    Dim rs As Recordset
    Set rs = tbl.OpenRecordset(dbOpenDynaset)
    With rs
        .AddNew
        !Stringa = "Zello was here"
        .Update
    End With
    Set rs = Nothing
    Set rs = db.OpenRecordset("Select * from Tabella;", dbOpenSnapshot)
    Dim s As String
    If (rs.BOF = False) Then
        Do
            s = Str(rs!ID)
            s = s + " - " + rs!Stringa
            MsgBox s, vbOKOnly + vbInformation, "Zello!"
            rs.MoveNext
        Loop Until rs.EOF
    End If
    db.Close
End Sub

Il faut être toujours ivre. Tout est là : c'est l'unique question. Pour ne pas sentir l'horrible fardeau du Temps qui brise vos épaules et vous penche vers la terre,il faut vous enivrer sans trêve...
Avatar utente
zello
Moderatore
 
Post: 2351
Iscritto il: 06/05/02 13:44


Torna a Software Windows


Topic correlati a "Visual Basic e SQL":


Chi c’è in linea

Visitano il forum: Nessuno e 8 ospiti