[VB] Connessione al DB...

[Daniele80]

Ciao,
sono nuovo di questo ambiente. Mi devo imparare ad usare VB6, qualcosina gia la conosco, però ora ho la necessità di connetterim ad un db.
Mi farebbe piacere se mi diciate le varie istruzioni ch devo far per connettermi ad un DB Access e se devo includere qualche libreria nel programma.

Visto che ci stiamo mi potreste far vedere non tanto la query ma il comando per far eseguire la query che io farò?


Grazie a tutti.

[Drocchia]

Ciao per collegarsi a un db ci sono tanti metodi, tra qui il più semplice cioè usando l'oggetto data viene illustrato nella guida di programmazione!

[Daniele80]

ok grazie l'ho appena visto.
Se non ricordo male ci dovrebbe stare anche un metodo tipo:

Dim DB as Database
DIm Rs as Recordset

E poi per aprire il db era una cosa del genere
Set Db = Open.Database(...)

io vorrei utilizzare istruzioni siili e non l'oggetto Data

mi potresti gentilmente far vedere quali sono le istruzioni?

[Daniele80]

ho trovato questo

Dim dbRec As New ADODB.Recordset
Dim dbConn As New ADODB.Connection
Dim strConnectionString As String
Dim strSQL As String

g_strConnectionString = "maia" maia sarebbe il db?che risiede in quale dir?


'Apro una connessione con il database
dbConn.ConnectionString = g_strConnectionString

dbConn.Open


strSQL = "SELECT NomeStrumento FROM Strumenti "

DoEvents
Set dbRec = dbConn.Execute(strSQL)
Do While dbRec.EOF = False
---------> DBcmbStrumento.BoundText=dbRec("NomeStrumento") ----->
dbRec.MoveNext
Loop
dbRec.Close
Set dbRec = Nothing
dbConn.Close
Set dbConn = Nothing


Ho notato che è uguale all'ASP. Per aprire il DB in questo modo devo inserire qualche libreria?

[gighen99]

La cosa più semplice, veloce e gestibile, secondo me... è attivare la libreria ADO e lavorarci.

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strconn As String
Dim rsstr As String

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

strconn = "Stringa di connessione - Puoi anche generarla automaticamente con il data environment e copiarla qui"
conn.Open strconn

rs.ActiveConnection = conn
rsstr = "Select * from **** where ***"
rs.Open rsstr

[Daniele80]

ok grazie

[Daniele80]

scusate ma come attivo la libreria ADO?
Dal menu Project->Refernces? Se è cosi mi dite il nome preciso perchè io non lo vedo.


grazie