Temas

[SIEMPRE]

Hola tengo un sistema de bingo es el de 75 Bolillas

El Bingo a 75 bolas se juega con cartones que tienen una cuadrícula de 5 filas y 5 columnas. Cada fila tiene 5 números y no hay casillas en blanco como en el bingo de 90 bolas. Los números se reparten de la siguiente forma:


http://snag.gy/dvzzh.jpg

La primera columna contiene números del 1 al 15,
la segunda, del 16 al 30,
la tercera del 31 al 45,
la cuarta del 46 al 60,
y la quinta del 61 al 75.

El primero que complete los 25 aciertos gana el premio.

Ejemplo de algunos cartones que yo genere y me han funcionado perfectamente.


http://snag.gy/ZygAU.jpg

Bueno el problema que tengo es quiero Generar la matriz de los cartones pero que SOLO AYA UN GANADOR SIEMPRE con 25 aciertos

Por que con los numero que yo genero a VECES hay mas de 1 ganador, el problema surge cuando el premio no es en EFECTIVO, por ejemplo si es un auto no puede ser divisible.

Tengo conectado el celular por medio de USB utilizo el puerto COM19 para enviar el SMS con este código.
Ahora como hago para leer lo recibido en el Celular

Código (vbnet) [Seleccionar] Expandir


Imports System.IO.Ports
Imports System.Threading

Public Class Form1

   Sub enviarSMS(ByVal numero As String, ByVal mensaje As String, ByVal puerto As String)

       Dim serialport As IO.Ports.SerialPort

       Try
           serialport = New IO.Ports.SerialPort

           With serialport
               .PortName = puerto ' Puerto de comunicaciones COM1, COM2...
               .BaudRate = 9600 ' velocidad del puerto
               .Parity = Parity.None ' Paridad
               .StopBits = StopBits.One ' Bit de para
               .DataBits = 8 ' Bits de datos

               If .IsOpen = False Then ' Si el puerto no esta abierto
                   .Open() ' Abrir el puerto
               End If

               .Write("ATZ0" & vbCr)
               .WriteLine("AT+CMGF=1" & vbCr) ' Configurando envio de SMS modo texto
               Thread.Sleep(1000) ' Esperar 1 segundo
               .Write("AT+CMGS=" & Chr(34) & numero & Chr(34) & vbCr) ' Numero al que se envia el SMS
               .Write(mensaje & Chr(26) & vbCr)
               Thread.Sleep(1000) ' Esperar 1 segundo

               .Close()
               MsgBox("Mensaje enviado")

           End With

       Catch Ex As IO.IOException
           Console.WriteLine(Ex.Message)
       End Try

   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       enviarSMS("+595971888222", "Mensaje de prueba", "COM19")
   End Sub

End Class

[frmReportes]

Uso vb.net 2010

Estoy usando un MDI. desde el MDI llamo a un form (frmReportes) desde frmReportes llamo a otro form (frmAlta) lo llamo como frmArticuloAlta.ShowDialog(). Como puedo hacer para que no me bloquee el MDI por que quiero abrir otro formulario mientras esta el frmReporte y frmAlta.

Ejemplo.


PROYECTO
https://dl.dropbox.com/s/gquvd3a55edx1i1/EjemploMDI.rar?token_hash=AAHqYaEv5oKP6FchnmQlpEGgMIbsqSej47IBAh66f1ighw&dl=1

Tengo este código para recuperar imágenes de una bd access.

Código (vbnet) [Seleccionar] Expandir

    Sub RECUPERAR()
        ImageList1 = New ImageList
        ImageList1.ImageSize = New Size(100, 100)
        ImageList1.ColorDepth = ColorDepth.Depth32Bit

        LF.LargeImageList = ImageList1
        LF.Items.Clear()

        strSQL = "SELECT * FROM juegos"
        Dim daEmp As New OleDbDataAdapter(strSQL, strConexion)
        Dim dtEmp As New DataTable
        daEmp.Fill(dtEmp)

        For i = 0 To dtEmp.Rows.Count - 1

            Dim img_buffer As Byte()
            img_buffer = DirectCast(dtEmp.Rows(i)("imagen"), Byte())
            Dim img_stream As New MemoryStream(img_buffer, True)

            img_stream.Write(img_buffer, 0, img_buffer.Length)
            ImageList1.Images.Add(dtEmp.Rows(i)("id").ToString(), New Bitmap(img_stream))
            img_stream.Close()

            Dim item As New ListViewItem(Strings.Left(dtEmp.Rows(i)("titulo").ToString, xTitulo))
            item.SubItems.Add(dtEmp.Rows(i)("plataforma").ToString)

            item.ImageKey = dtEmp.Rows(i)("id").ToString
            LF.Items.Add(item)
        Next i

    End Sub

Pero me tira este error:

Utilizo este método para guardar una imagen una base datos access. me guarda perfectamente.

Código (vbnet) [Seleccionar] Expandir

Dim fsreader As New FileStream("c:\carpeta\foto1.jpg", FileMode.Open, FileAccess.Read)
Dim breader As New BinaryReader(fsreader)
Dim imgbuffer(fsreader.Length) As Byte
breader.Read(imgbuffer, 0, fsreader.Length)
fsreader.Close()
'closes the current stream and releases any resources

strSQL = "INSERT INTO juegos (titulo,imagen) values (@titulo,@imagen)"
strComando.CommandText = strSQL
strComando.Connection = strConexion

strComando.Parameters.AddWithValue("@titulo", "nuevo metodo")
strComando.Parameters.AddWithValue("@imagen", imgbuffer)
strComando.ExecuteNonQuery()
strComando.Dispose()
MsgBox("Saved")

Pero ahora surgió un problemita. tengo un PictureBox en donde le pego el contenido del Clipboard.

Código (vbnet) [Seleccionar] Expandir

If Clipboard.GetDataObject.GetDataPresent("Bitmap") Then
PictureBox1.Image = CType(Clipboard.GetDataObject.GetData("Bitmap"), Bitmap)
End If

y no se como decirle aca en que ruta esta el archivo por que no esta en el disco.

Código (vbnet) [Seleccionar] Expandir

Dim fsreader As New FileStream("el-problema-esta-aca-que-poner", FileMode.Open, FileAccess.Read)

No conocen de algún control similar a este:

Tengo un WebBrowser en donde busca unos imágenes, hay laguna manera de mostrar el resultado de la búsqueda en un lista de PictureBox.

Ejemplo: se busca imagen de Zapatos y que traiga esta forma:

Hay alguna manera de leer el contenido de un txt que esta alojado en una web por ejemplo:

www.enterpy.net/texto1.txt

Y mostrar en un caja de texto.

Si como el titulo dice como se puede saber si un programa esta instalado desde VB6

Específicamente quiero saber si el WampServer esta instalado en el Windows, pero mejor si se puede comprobar cualquier programa esta o no instalado.

[SCREEN]

Bueno acá ya termine la primera versión de mi OCX, . El control es similar al que usa TuneUP, Registry Mechanic y varios programas como estos.

SCREEN

Este es en tiempo de diseño.


Acá ya en tiempo de ejecución.


ACA EL SOURCE
http://www.mediafire.com/?5s2l8auaasi4tli

[ActiveX Chilkat XML]

Bueno amigo acá aportando algo para la comunidad. Es un pequeño programa que sirve para saber que se posteo en las paginas donde mas frecuento al haber un nuevo post te salta en la pantalla un mensaje igual que el messenger, y te da la opción si te interesa el post para abrir desde ahi.

Usa una BD MySQL para almacenar los post anterior. Revisa cada 1 minuto ustedes van a cambiar cada cuanto quieren.

Y tienen que instalar el ActiveX Chilkat XML, que se encuentra en el RAR y asegurarse si se cargo la referencia.



Screen del Programa










Aca la Source
http://www.mediafire.com/?77lk8ihls44qq7s

Si no funciona el Scrip del MySQL aca dejo para que puedan crear manualmente.

Código [Seleccionar] Expandir

CREATE DATABASE /*!32312 IF NOT EXISTS*/`rss_lector` /*!40100 DEFAULT CHARACTER SET utf8 */;

USE `rss_lector`;

CREATE TABLE `tbl_rss` (
  `titulo` VARCHAR(200) DEFAULT NULL
) ENGINE=INNODB DEFAULT CHARSET=utf8;


ACLARO, no todo el source es mio lo tome algunas cosas de varios foros y lo adapte a mi gusto. Y acá comparto con ustedes.

Tengo un picture cargado con una imagen me gustaria dibujar sobre la imagen unos cuadritos o puntitos sobre la imagen que cargo y poder elegir el color que quiera del cuadrito o puntitos.

[Asi es como quiero que quede]

Hola amigos HACKERs estoy creando un programita que se conecta con el servidor del juego Call of Duty 4, lo que quiero hacer es para manejar el servidor desde el programa que estoy haciendo. Ya logre conectar con el servidor y recibir el estado y lista de player.

Ahora como puedo meter esos datos en un control ListView. Dejo aca una imagen de como me trae los datos del servidor.

Asi es como quiero que quede

Aca dejo mi code:

Código [Seleccionar] Expandir



Private Sub cmdConectar_Click()
   
    Winsock1.Close
    Winsock1.Protocol = sckUDPProtocol
    Winsock1.RemoteHost = "190.210.70.77"
    Winsock1.RemotePort = 28964
   
    Winsock1.Connect
   
End Sub


Private Sub cmdStatus_Click()
    rcon = "lugano"
    Winsock1.SendData Chr(255) & Chr(255) & Chr(255) & Chr(255) & "rcon " & rcon & " " & "status"
End Sub

Private Sub winsock1_DataArrival(ByVal bytestotal As Long)

    'Dim strdata As String
    'Winsock1.GetData strdata, vbString, bytestotal
    'txtOutput = strdata

    Dim temp As String
    Dim posG, posD, i As Integer
    Dim tabJoueurs() As String

    Winsock1.GetData strdata, vbString
   
        strdata = Replace(strdata, "^0", "")
        strdata = Replace(strdata, "^1", "")
        strdata = Replace(strdata, "^2", "")
        strdata = Replace(strdata, "^3", "")
        strdata = Replace(strdata, "^4", "")
        strdata = Replace(strdata, "^5", "")
        strdata = Replace(strdata, "^6", "")
        strdata = Replace(strdata, "^7", "")
 
    strdata = Replace(strdata, Chr(255) & Chr(255) & Chr(255) & Chr(255) & "print" & vbLf, "")
    strdata = Replace(strdata, vbLf, vbCrLf)
   
    'txtOutput = txtOutput & vbCrLf & Time & vbCrLf & strdata
    txtOutput = txtOutput & strdata
     
    txtOutput.SetFocus
    txtOutput.SelStart = Len(txtOutput)
   
End Sub




[Ya dentro del formulario]

Yo lo tenia así en VB 6.0



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

Código [Seleccionar] Expandir

'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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

Para cargar una tabla en un ListView utilizo este codigo...

Código [Seleccionar] Expandir



Imports System.Data.OleDb



Código [Seleccionar] Expandir

    Private Sub Cargar_ListView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim CNN As New OleDb.OleDbConnection
        Dim DT As New DataTable
        Dim DA As New OleDb.OleDbDataAdapter
        Dim CMD As New OleDb.OleDbCommand

        CNN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CONTROL_SERVICENTRO\COMBUSTIBLES.mdb"
        CNN.Open()

        CMD.Connection = CNN
        CMD.CommandText = "SELECT * FROM PERSONAL"
        CMD.CommandType = CommandType.TableDirect
        DA.SelectCommand = CMD
        DA.Fill(DT)

        For Each DR As DataRow In DT.Rows
            Dim item As ListViewItem
            item = New ListViewItem(DR("CODIGO").ToString)
            item.SubItems.Add(DR("NOMBRE").ToString)
            item.SubItems.Add(DR("TURNO").ToString)
            ListView1.Items.Add(item)
        Next

    End Sub


'Este aca me carga todo se necesita cerrar la base de datos ahi???

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

'//Este Utilizo para cargar un registro en TextBox

Código [Seleccionar] Expandir

    Private Sub cmdCargar_en_TextBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim cnn As New OleDb.OleDbConnection
        Dim dt As New DataTable
        Dim da As New OleDb.OleDbDataAdapter
        Dim cmd As New OleDb.OleDbCommand

        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CONTROL_SERVICENTRO\COMBUSTIBLES.mdb"
        cnn.Open()

        cmd.Connection = cnn
        cmd.CommandText = "SELECT * FROM PERSONAL WHERE CODIGO='10'"
        cmd.CommandType = CommandType.TableDirect
        da.SelectCommand = cmd
        da.Fill(dt)

        TextBox1.Text = CStr(dt.Rows(intFile)("CODIGO"))
        TextBox2.Text = CStr(dt.Rows(intFile)("NOMBRE"))
        TextBox3.Text = CStr(dt.Rows(intFile)("TURNO"))

    End Sub

'Este aca me carga todo se necesita cerrar la base de datos ahi???

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

'Esta parte es lo que mas me interesa Guardar varios registro al mismo tiempo, En un control ListView tengo unos registro tiene que guardar todo el contenido

Código [Seleccionar] Expandir

    Private Sub Guardar_todo_el_contenido_de_un_ListView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim I As Integer = 0

        For I = 0 To ListView2.Items.Count - 1

            Dim cnx As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CONTROL_SERVICENTRO\COMBUSTIBLES.mdb")
            Dim SQLGuardar As String

            SQLGuardar = "INSERT INTO PERSONAL VALUES(@CODIGO,@NOMBRE,@TURNO)"

            Dim cmd As New OleDbCommand(SQLGuardar, cnx)
            cmd.CommandType = CommandType.Text

            cmd.Parameters.AddWithValue("@CODIGO", ListView2.Items(I).Text)
            cmd.Parameters.AddWithValue("@NOMBRE", ListView2.Items(I).SubItems(1).Text)
            cmd.Parameters.AddWithValue("@TURNO", ListView2.Items(I).SubItems(2).Text)

            cmd.CommandType = CommandType.Text
            cnx.Open()
            cmd.ExecuteNonQuery()
            cnx.Close()

        Next I

    End Sub

Pueden ayudarme a optimizar o mejorar o como estoy usando esta bien, gracias

[En un Modulo declaro las conexiones y otras variables]

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