Una Solucion para todos (Base de Datos en VB.NET)

[enterariel]

Hola soy 1 mas que programo en VB6 y al qurerer pasar en .NET es otro mundo.
Alguien puede ayudarme con este tema yo asi tenia mis proyectos en VB6

en Proyectos cargaba las referencias asi:



En un Modulo declaro las conexiones y otras variables

Código [Seleccionar] Expandir

Public ADOConexion As ADODB.Connection
Public ComandoSQL As String

Public DB As Database
Public RS As Recordset

Public StrSQL As String

'----------------------------------------------------------------------------------------------------------------------------------------------------------------------
'//Este es para Conectar con la base de datos.

Public Sub ConectarADO()
    Set ADOConexion = New ADODB.Connection
    ADOConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CONTROL\BDATOS.MDB;Persist Security Info=False"
    ADOConexion.Open
End Sub

'// Este es para cerrar la base de datos.

Public Sub CerrarADO()
    ADOConexion.Close
    Set ADOConexion = Nothing
End Sub
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------

'----------------------------------------------------------------------------------------------------------------------------------------------------------------------
'//El DAO utilizo para hacer mis reportes segun por lo que ley en algunos foros es mas rapido solo por eso uso.

'//Este es para conectar con la base de datos
Public Sub ConectarDAO()
    Set DB = OpenDatabase("C:\CONTROL\BDATOS.MDB", True, False)
    Set RS = DB.OpenRecordset(StrSQL)
End Sub

'//Este es para Cerrar la BaseDatos

Public Sub CerrarDAO()
    DB.Close
    Set DB = Nothing
    Set RS = Nothing
End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------------------------------

Ahora para guardar los datos tengo asi mi formulario



Este en el boton guardar

Código [Seleccionar] Expandir

Private Sub cmdGuardar_Click()
           
    Dim Prg
    Prg = MsgBox("Esta seguro que quiere guardar el registro", vbOKCancel + vbInformation, "Guardar registro")
   
    If Prg = vbOK Then
           
        V01 = "'" & txtCodigo.Text & "'"
        V02 = "'" & txtNombre.Text & "'"
        V03 = "'" & txtTurno.Text & "'"
       
        '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
        '// Conectar la Base Datos con ADO
            Call ConectarADO
        '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

            ComandoSQL = "INSERT INTO PERSONAL (CODIGO, NOMBRE, TURNO) VALUES (" & V01 & "," & V02 & "," & V03 & ")"
            ADOConexion.Execute ComandoSQL
       
        '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
        '// Cerrar la base de datos y liberar la memoria
            Call CerrarADO
        '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

    End If
   
End Sub

Código [Seleccionar] Expandir

Private Sub cmdEliminar_Click()

    Dim Prg
    Prg = MsgBox("Esta seguro que quiere eliminar el registro", vbOKCancel + vbInformation, "Eliminar registro")
   
    If Prg = vbOK Then
       
        '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
        '// Conectar la Base Datos con ADO
            Call ConectarADO
        '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

            ComandoSQL = "DELETE FROM PERSONAL WHERE CODIGO = '" & ListView1.SelectedItem.Text & "'"
            ADOConexion.Execute ComandoSQL
           
        '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
        '// Cerrar la base de datos y liberar la memoria
            Call CerrarADO
        '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

    End If

End Sub


'//Este utilizo para cargar la tabla en el control ListView

Código [Seleccionar] Expandir

Sub Cargar_Personal()

    ListView1.ListItems.Clear
    StrSQL = "SELECT * FROM PERSONAL ORDER BY NOMBRE"
       
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Conectar a la Base de Datos
        ConectarDAO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
               
        Do Until RS.EOF
           
            Set TLS = ListView1.ListItems.Add()
            TLS.Text = RS.Fields("CODIGO") & ""
            TLS.SubItems(1) = RS.Fields("NOMBRE") & ""
            TLS.SubItems(2) = RS.Fields("TURNO") & ""
           
            RS.MoveNext
           
        Loop
       
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Cerrar la base de datos y liberar la memoria
        CerrarDAO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

End Sub


Se puede hacer esto en Visual Basic 2008 pero conectar toda las base de datos por medio de codigo

[odeONeSs]

Esta muy bien, pero prueba a poner esto a ver que pasa:
en el txtnombre pon una comilla ' y dale a guardar.

Saludos!

[enterariel]

odeONeSs gracias por responder creo que no me entendiste yo esto ago en visual basic 6.0, lo quiero hacer es algo igual en Visual Basic 2008 .NET

[odeONeSs]

Cierto perdon no te entendi bien! 
mira este enlace:

http://www.elguille.info/net/adonet/ejemploAccess.htm