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:
y el para comprobar la existencia en la base dato es este:
había pensado hacer un bucle, pero no logro entender como hacerlo.
Agradezco de antemano vuestra ayuda y saludo atentamente.
Roberta
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
0