conversion de vb6.0 a 2010 ayuda!!!!!

[rober2010]

hola este codigo es de vb6.0 y quiero convertirlo a vb2010 si me podrian ayudar en verdad me urge:

Private Sub cmdAgregar_Click()
Mensaje$ = "Desea agregar un regsitro a la base de datos"
Ventana = MsgBox(Mensaje$, vbOKCancel, "Agregar Registro")
If Ventana = vbOK Then
TxtNombre.SetFocus
DatConsult.Recordset.AddNew
End If
End Sub

Private Sub CmdBuscar_Click()
Mensaje$ = "Teclee el nombre completo del Paciente"
Buscar$ = InputBox(Mensaje$, "Buscar")
DatConsult.Recordset.Index = "Nombre paciente"
DatConsult.Recordset.Seek "=", Buscar$
If DatConsult.Recordset.NoMatch Then
DatConsult.Recordset.MoveFirst
End If
End Sub

Private Sub cmdEliminar_Click()
Mensaje$ = "Seguro que desea eliminar este registro"
Ventana = MsgBox(Mensaje$, vbOKCancel, "Eliminar registro")
If Ventana = vbOK Then
DatConsult.Recordset.Delete
DatConsult.Recordset.MoveNext
End If
End Sub

Private Sub cmdSalir_Click()
Hide
End Sub

Private Sub Data1_Validate(Action As Integer, Save As Integer)
End Sub

 

[mariosl]

sorry, no le hacemos la tarea a nadie.
pide libros, referencias, pero bla bla.. tu entiendes.
Saludos.

 

[omega96]

vs 2010 tiene una utilidad para facilitar eso busca en la documentcion

 

[chinconkuak]

Mira, casi todo puede ser "traducido" directamente, tu mayor problema son estas instrucciones:

DatConsult.Recordset.Index = "Nombre paciente"
DatConsult.Recordset.Seek "=", Buscar$

Este tipo de acceso a datos ya no existe en .NET, ahora debes saber programar en ADO.NET, que es la tecnología de acceso a datos en el framework de Microsoft. Búscate alguna aplicación de ejemplo, supongo que tu base de datos es Access, así que empieza por ahí.

Saludos.

 

[Maestro-Oscuro]

Private Sub cmdSalir_Click()
Hide
End Sub

como sugerencia, mejor cierra los formularios con un UNLOAD ME, en vez de usar el HIDE, ya que solo los ocultas, pero siguen en memoria