elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Conectar de esta forma en vb.NET una Base de Datos
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Conectar de esta forma en vb.NET una Base de Datos  (Leído 3,310 veces)
enterariel

Desconectado Desconectado

Mensajes: 29


Ver Perfil
Conectar de esta forma en vb.NET una Base de Datos
« en: 5 Julio 2010, 21:43 »

Yo lo tenia así en VB 6.0



'-----> En un Módulo con las referencias que necesita

Código:
'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
Public CNADO As ADODB.Connection   '// Conexion ADO
Public RSADO As ADODB.Recordset    '// RecordSet ADO
Public SQLADO As String            '// Parametro para SQL

'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

Public Sub ConectarADO()
    Set CNADO = New ADODB.Connection    '// Crear la nueva conexion
    Set RSADO = New ADODB.Recordset     '// Crear nuevo recordset
    RSADO.CursorLocation = adUseClient  '// Tipo de cursor a utilizar
    CNADO.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=control_servicios; User=root;Password=;Option=3;"
    CNADO.Open                          '// Abrir la nueva conexion
End Sub

'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

Public Sub CerrarADO()
    CNADO.Close            '// Cerrar la conexion
    Set CNADO = Nothing    '// Liberar conexion de la memoria
    Set RSADO = Nothing    '// Liberar recorset de la memoria
End Sub

'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+



Ya dentro del formulario

Guardar registro en la tabla Factura

Código:
Private Sub cmdGuardar_Factura_Click()
    
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Conectar la Base Datos con ADO
        Call ConectarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    
        For I = 1 To ListView1.ListItems.Count
        
            V01 = Val(txtNFactura.Text)
            V02 = "#" & txtFecha.Text & "#"
            V03 = "'" & ListView1.ListItems.Item(I).Text & "'"
            V04 = Val(Format(ListView1.ListItems.Item(I).SubItems(1), ""))
            
            ComandoSQL = "INSERT INTO FACTURA (nfactura,fecha,servicio,cantidad) VALUES (" & V01 & "," & V02 & "," & V03 & "," & V04 & ")"
            CNADO.Execute ComandoSQL
        
        Next I
    
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Cerrar la base de datos y liberar la memoria
        Call CerrarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    
End Sub


Crear un Reporte en el Control ListView solo me interesa crear en este control "ListView"


Código:
Private Sub cmdReporte_Click()
    
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Conectar la Base Datos con ADO
       Call ConectarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

        ListView2.ListItems.Clear
        
        SQL = "SELECT * FROM FACTURA WHERE nfactura = '1000'"
        RSADO.Open SQL, CNADO, adOpenStatic, adLockOptimistic, adCmdText
        
        Do Until RSADO.EOF
            
            Set TLS = ListView2.ListItems.Add()
            With RSADO
            
                TLS.Text = cnServicios
                TLS.SubItems(1) = .Fields("nfactura") & ""
                TLS.SubItems(2) = .Fields("fecha") & ""
                TLS.SubItems(2) = .Fields("servicio") & ""
                TLS.SubItems(3) = Format(.Fields("cantidad"), "##,###") & ""
                RSADO.MoveNext
                
            End With
            
        Loop
    
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Cerrar la base de datos y liberar la memoria
        Call CerrarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

End Sub


Alguien seria tan amable de crear un tutorial de esta forma en VB.NET yo estoy procurando hacer en Visual Studio 2010


En línea

[D4N93R]
Wiki

Desconectado Desconectado

Mensajes: 1.647


My software never has bugs. Its just features!


Ver Perfil WWW
Re: Conectar de esta forma en vb.NET una Base de Datos
« Respuesta #1 en: 6 Julio 2010, 05:13 »

Acá en el foro hay muchos temas de .Net muy buenos, además google te ayuda, te recomiendo también, algo más específico: MSDN, y la web del Guille...


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines