Mensajes

usa apis, SendKeys apesta....

móbiles va con "v" 

es que no se usa asi, tenes que leer un manual de ADO antes de ponerte a hacer esto.

aca tenes un ejemplo simple..pero hay mas busca.

Conectar a una base de datos de SQL Server con VB6

[.Open]

es que asi no va a funcionar, esto:

Set db = "SELECT MAX (codigo)+1 AS nuevoCodigo FROM BDCancionero"

ahi no se que haces, estas asignando la variable de la conexion de la base de datos a un string...eso no va.

la consulta que te pase debes pasarsela a la propiedad .Open de un recordset..y asi obtenes el codigo.

saludos.

aclarar que cuando te dicen tengo internet de 5 megas, son megabaudios y no megabytes. por ejemplo alguien que tiene internet de 5 "megas" la bajada real es de 500Kb por segundo, aproximadamente es dividido 8.

[IComparer]

ni te orientes con el de visual basic 6, busca ejemplos para C# o visual basic .NET que hay varios de esto en internet, yo use un ejemplo que hay por ahi que utiliza la interface IComparer que compara lo que sea, te ordena correctamente cualquier tipo de datos, string, numero, fechas..etc.

Make a ListView control sort using the column you click in VB .NET

pero hay muchos mas en internet, BUSCA....

saludos.

antes de guardar, haces esta consulta:

Código (sql) [Seleccionar] Expandir

SELECT MAX(codigo)+1 AS nuevoCodigo FROM BDCancionero

guarda el valor de "nuevoCodigo" en una variable e inserta esa misma en el codigo.

saludos.

WMI esta bien pero yo usaria api, siempre es lo mejor.

esta bueno che, solo una corrección que me hizo reir:

de como seria "el puto "A" al "B" sin el obstaculo.

"el punto" jaja.

tenes razon, lo que pasa que se adapto de C# a VB y algo esta mal, aca te dejo uno que funciona bien con el mismo metodo.

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Private vReloj As New Stopwatch()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        vReloj.Reset()
        vReloj.Start()
        Dim vPrimos As List(Of Long) = getPrimes(99999999)
        vReloj.Stop()
        Debug.WriteLine("Se Calcularon los primeros " & vPrimos.Count & " en " & (vReloj.ElapsedMilliseconds / 1000) & " segundos.")
    End Sub

    Function getPrimes(ByVal vLimite As Long) As List(Of Long)
        Dim vNoEsPrimo(vLimite) As Boolean
        Dim vPrimos As New List(Of Long)
        For vPrimo As Long = 2 To vLimite
            If Not vNoEsPrimo(vPrimo) Then
                vPrimos.Add(vPrimo)
                For i As Long = vPrimo * 2 To vLimite Step vPrimo
                    vNoEsPrimo(i) = True
                Next
            End If
        Next
        Return vPrimos
    End Function
End Class

saludos.