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