Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

programa de vb6 a vb.net

03/08/2006 - 10:55 por tonid | Informe spam
Ayuda Hacer una pregunta
hola gente

he migrado un programa de vb6 a vb.net y ejecutando el programa me da
la siguiente excepcion

Dim recperiodo As Object

'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del
objeto recperiodo.Fields.


lblPeriodo.Text = recperiodo.Fields("Dato")


error: La conversión del tipo 'Field' en el tipo 'String' no es
válida.
email Siga el debateRespuesta 8 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 tonid
03/08/2006 - 11:18 | Informe spam
en vb6 el codigo era

Private Sub Form_Activate()
Set dbdatos = OpenDatabase(Path & "datos.mdb")
Set recperiodo = dbdatos.OpenRecordset("SELECT * FROM Datos_Grupo
WHERE Tema='Jugada'")
Set recGrupo = dbdatos.OpenRecordset("SELECT * FROM Datos_Grupo
WHERE Tema='Grupo'")
lblPeriodo = recperiodo.Fields("Dato")
recperiodo.Close
lblGrupo = recGrupo.Fields("Dato")
recGrupo.Close

dbdatos.Close
End Sub




y en vb.net

Dim recGrupo As Object
Dim recperiodo As Object
Dim dbdatos As Object

dbdatos = DAODBEngine_definst.OpenDatabase(Path & "datos.mdb")
recperiodo = dbdatos.OpenRecordset("SELECT * FROM Datos_Grupo WHERE
Tema='Jugada'")
recGrupo = dbdatos.OpenRecordset("SELECT * FROM Datos_Grupo WHERE
Tema='Grupo'")
lblPeriodo.Text = recperiodo.Fields("Dato")

recperiodo.Close()
lblGrupo.Text = recGrupo.Fields("Dato")
recGrupo.Close()

Preguntas similares

 

Busqueda sugerida :