Public Sub seleccionaOpcion(idTexto As String, textoConfirmacion As String)
Dim connString2 As String = "server=;Port=; user id=; password=; database="
Dim sqlConn2 As New MySqlConnection(connString2)
Dim sqlQuery1 As String = "SELECT etiqueta,id,cont,cliente,capacidad,sacar FROM privado"
Using sqlConn2
Using sqlComm As New MySqlCommand()
With sqlComm
.Connection = sqlConn2
.CommandText = sqlQuery1
.CommandType = CommandType.Text
End With
Try
sqlConn2.Open()
Dim sqlReader As MySqlDataReader = sqlComm.ExecuteReader()
Dim contsacar = 0
While sqlReader.Read()
Dim cont = sqlReader("cont").ToString()
Dim capacidad = sqlReader("capacidad").ToString()
Dim cliente = sqlReader("cliente").ToString()
Dim sacar = sqlReader("sacar").ToString()
If sacar = "si" Then
contsacar = Val(contsacar) + 1
End If
End While
sqlConn2.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
End Try
End Using
End Using