Visual Basic.NET - Necesito ayuda. Generar numero aleatrorio y verificar existencia en base datos.

   
Vista:

Necesito ayuda. Generar numero aleatrorio y verificar existencia en base datos.

Publicado por ROBERTA (14 intervenciones) el 25/11/2014 13:45:57
Hola a todos,
estoy haciendo mejorías a mi programa y me he parado con este problema:
tengo un botón que me genera un numero aleatorio.
Lo que tengo que hacer es lo siguiente:
cuando genero este numero, tengo que verificar en mi base dato Access si el numero existe; si existe genero otro numero y vuelvo a hacer la comprobación; si no existe cambio simplemente de foco.

el código que tengo para generar el numero es:

1
2
Dim Random As New Random()
               TextSobre.Text = Format(Random.Next(100000, 999999), "000000#")


y el para comprobar la existencia en la base dato es este:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Function Buscarsobre(ByVal Numero_sobre As String) As Boolean
 
        Dim Id As String = Convert.ToString(Numero_sobre)
 
        'CONEXION
        Dim Conexion As New OleDbConnection
        Conexion.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0; Data Source = DDBB.mdb; Persist Security Info=False"
 
        'CADENA SQL
        Dim CadenaSQL As String = "SELECT Numero_sobre FROM ficha_reloj WHERE Numero_sobre = '" & Id & "'"
 
        'ADAPTADOR
        Dim Adaptador As New OleDbDataAdapter(CadenaSQL, Conexion)
 
        'DATA SET
        Dim Ds As New DataSet
 
        'LLENAR EL DATASET
        Try
            Conexion.Open() 'APRE LA CONEXION
            Adaptador.Fill(Ds) 'EL ADAPTADOR LLENA CON DATOS AL DATA SET
            Conexion.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
 
        If (Ds.Tables(0).Rows.Count = 0) = True Then
            'EL NUMERO NO EXISTE - CAMBIA DE FOCO
            ComboMarca.Focus()
        Else
            'EL NUMERO EXISTE - GENERA OTRO NUMERO Y VUELVE A HACER LA COMPROBACIÓN
 
        End If
        Return True
    End Function

había pensado hacer un bucle, pero no logro entender como hacerlo.

Agradezco de antemano vuestra ayuda y saludo atentamente.
Roberta
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Necesito ayuda. Generar numero aleatrorio y verificar existencia en base datos.

Publicado por omar pcc.nett.2018@hotmail.com (151 intervenciones) el 25/11/2014 21:03:20
Saludos tienes skype para ayudarte en tu problema o teanviewer

enviame tu email o agregame
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar