Pregunta sobre recordset en Visual Basic 6, anexo código.

[feivelfabiola]

''''''' 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

[Insomnia]

Hola

No se si hay algo especial que no consigo ver, pero en principio simplemente declara una variable tipo string (si lo que contiene es texto) e igualalo al contenido del combo.

Código:

Variable = combo1.text

P.D.: Viendo que has establecido una conexión a BD, creo que esta respuesta es muy simple, seguro que hay algo que no he comprendido bien, incluye el código de la parte en la que intentas guardar el valor del combo.

--Saludos--

[feivelfabiola]

Private Sub Combo3_Click()
Dim cadena As String
cadena = Me.Combo3.Text
MsgBox = "Elegiste la seccion: " & cadena
End Sub

Aqui pongo el código de mi combo3 en otros programas ya lo había hecho asi y no marcaba error, es por el tipo de dato de la base de datos, pero no se como sacar su equivalente, al menos no todavía, tendré que preguntar en el foro de BDs. Ya que vea que es lo escribo, gracias.

[Insomnia]

Hola

Has probado a poder ese mismo código en el evento Change en lugar de en el clic?

--Saludos--

[feivelfabiola]

Si tambien probé con change() y marcar error igual, lo que pasa es que el recordset te regresa una tabla con dos columnas uno con el indice y el otro con los valores de la tabla que mando llamar, los valores son del tipo integer estandar, voy a ver si puedo guardar los valores en una matriz no se si servira que sea de tipo variant o string, porque recordset es un objeto, pero en cuanto sepa lo escribo.

[feivelfabiola]

Bueno aqui esta lo que hice espero que le sirva a alguien:


Option Explicit

Dim MiConexion As ADODB.Connection
Dim MiRecordset As ADODB.Recordset

Dim arreglocombo1() As String
Dim arreglocombo2() As String
Dim i As Integer
Dim ruta As String




Private Sub Form_Load()
Combo1.Clear
List1.Clear

i = -1

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 LIMLOC_DTTO_SECC Where DISTRITO = 1 Order by SECCION", MiConexion, adOpenDynamic, adLockOptimistic

While Not MiRecordset.EOF
i = i + 1
ReDim Preserve arreglocombo1(i)
arreglocombo1(i) = MiRecordset.Fields("SECCION")
MiRecordset.MoveNext
Wend
For i = 0 To UBound(arreglocombo1)
Combo1.List(Combo1.ListIndex) = Combo1.List(Combo1.ListIndex) & arreglocombo1(i)
Next i

MiRecordset.Close
MiConexion.Close

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 NOMBRE FROM LIMLOC_DTTO_SECC Order by SECCION ", MiConexion, adOpenDynamic, adLockOptimistic

i = -1
While Not MiRecordset.EOF
i = i + 1
ReDim Preserve arreglocombo2(i)
arreglocombo2(i) = MiRecordset.Fields("NOMBRE")

MiRecordset.MoveNext
Wend

Me.Combo2.ListIndex = Me.Combo1.ListIndex

For i = 0 To UBound(arreglocombo2)

Combo2.List(Combo2.ListIndex) = Combo2.List(Combo2.ListIndex) & arreglocombo2(i)

Next i


MiRecordset.Close
MiConexion.Close

End Sub



'Public Event TextChanged As EventHandler
'End Sub


'BYE.