massimo007 (Normal User)
Newbie
Messaggi: 14
Iscritto: 18/11/2010
|
Questo topic č stato chiuso dal moderatore Ciao non riesco come detto sopra ad ottenere il risultato di un campo chiaramente contenente cifre di una tabella
la mia connessione al db e la seguente:
Private Sub Form_Load()
ApriConnessione App.Path & "\*.mdb"
End Sub
e un modulo
Option Explicit
Public Conn As Connection
Public Sub ApriConnessione(NomeFileDatabase As String)
Set Conn = New Connection
Conn.ConnectionTimeout = 30
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & NomeFileDatabase
Conn.Open
End Sub
Public Function ApriRecordSet(ComandoSQL As String)
Dim rs As Recordset
Set rs = New Recordset
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.Open ComandoSQL, Conn, , , adCmdText
Set ApriRecordSet = rs
End Function
Public Sub ChiudiConnessione()
Conn.Close
End Sub
bene come per aggiungere una lista ad un combo vedi dopo pensavo di sommare i dati che so leggi rs e memorizzalo, poi leggi il successivo, sommalo e memorizzalo cosi via fino alla fine.
Dim cmdSql As String
Dim rs As Recordset
'Carica i dati dal DB
cmdSql = "select distinct **from **"
Set rs = ApriRecordSet(cmdSql)
'Mette i dati nella combo
Do While rs.EOF = False
Combo1.AddItem rs.Fields("**")
rs.MoveNext
Loop
grazie ciao
|