''''''' Tengo el siguiente codigo que hace lo siguiente:
''''''' Declarar variable de conexion y variable recordset para una bd y
''''''' crearlas con new,
''''''' entonces creo una variable string donde guardo el path de la bd, abro la
''''''' conexion y en la variable recordset hago que seleccione el registro SECCION
''''''' de la tabla SECCION y las ordeno, y luego utilizo MSHFlexGrid1 y un
''''''' combobox para mostrar los datos,
lo que quiero saber es como guardar en
''''''' una variable temporal el dato que se selecciono en el combo box, lo
''''''' intente guardar en un String y me dio error dice que debe guardarse en
'''''''' variant o en un objeto y luego utilice un objeto pero igual
''''''' me da error, quisiera que me dijeran que es exactamente lo que pasa con el
''''''' recordset cuando realiza la consulta de la BD Access 2007 y manda estos
''''''' valores con additem al combo box combo3, gracias de antemano por la ayuda '''''''
Private Sub Form_Load()
Set MiConexion = New ADODB.Connection
Set MiRecordset = New ADODB.Recordset
ruta = App.Path & "\bd1.mdb"
MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ruta & ";Persist Security Info=False"
MiConexion.CursorLocation = adUseClient
MiConexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta
MiRecordset.Open "SELECT SECCION From SECCION order by SECCION ", MiConexion, adOpenDynamic, adLockOptimistic
While Not MiRecordset.EOF
Combo3.AddItem MiRecordset!SECCION
MiRecordset.MoveNext
Wend
End Sub