[VB6] connettermi a db access, come?

[MissRachele]

ERRATA CORRIGE:

quando vai a capo devi mettere _ oppure scrivilo nella solita riga: meglio)

tuo_recordset.Open "SELECT * FROM tabella WHERE Cod = 1", _
Connescio2, , , adCmdText


ok?

[valezero]

Io riesco a conettermi ad una Datagrid con queste righe di codice:
Nella parte relativa alle dichiarazioni generali del Form inserisci:
Dim Connessione As New ADODB.Connection
Dim Recprova As New ADODB.Recordset
Dim ConnString As String

nell'evento Click inserisci:
ConnString = "Driver={Microsoft Access Driver (*.mdb)}; DefaultDir=TUADIRDELDATABASE; DBQ=TUADIRENOMEFILE.MDB"
Connessione.Open ConnString
Recprova.Open "NOMETABELLA", Connessione, adOpenStatic, adLockReadOnly, adCmdTable
Set DataGrid1.DataSource = Recprova

nell'evento Unload del Form:

Recprova.Close
Set Recprova = Nothing
Connessione.Close
Set Connessione = Nothing

In progettazione, nelle proprietà della Datagrid, alla voce Colonne, in DataField inserisci i nomi dei campi del database che vuoi visualizzare.
Spero di esserti stato di aiuto. A me funziona.
Con cordialità

[Laufer]

Originariamente inviato da Delas
[B]col tuo metodo non sono riuscito, allora ho provato così: in un modulo:

Sub Connetti()

'    Dim miaConn As ADODB.Connection
'    Dim mioSet As ADODB.Recordset
    Dim miaStringaConn As String
'
'    Set miaConn = New ADODB.Connection
'    Set mioSet = New ADODB.Recordset


	

		

			

			
				' e' la stessa cosa, ma cosi pulisci il codice :bubu: 

    Dim miaConn As new ADODB.Connection
    Dim mioSet As new ADODB.Recordset
			
		
	

    percorsoDb = App.Path & "\sgp97.mdb"
    miaStringaConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
    miaStringaConn = miaStringaConn & "Data Source="
    miaStringaConn = miaStringaConn & percorsoDb
    miaStringaConn = miaStringaConn & ";Persist Security Info=False"
        
        
    miaConn.ConnectionString = miaStringaConn

End Sub

nell'evento form_load:

Connetti
    
Set objRS = New ADODB.Recordset
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockOptimistic

objRS.Open "SELECT * FROM famiglie ORDER BY famiglie.famiglia", _
miaConn, , , adCmdText

Metti la stringa di query in una variabile:
dim strSQL as string
strSQL="SELECT * FROM famiglie ORDER BY famiglie.famiglia"

Poi assegni al recorset il risultato della tua query cosi:
set objRS= miaConn.execute(strSQL)

Poi ti carichi il tuo recorset nel datagrid o flexgrid.

Consiglio:
Le variabili di connessione dichiarale globali al documento cosi non devi ridichiararle ogni volta che effettui una connessione.



Spero di esserti stato d'aiuto

Laufer