Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: gonzalex99 en 10 Enero 2009, 00:17 am



Título: Como hago esto (Numero aleatorio)
Publicado por: gonzalex99 en 10 Enero 2009, 00:17 am
Tengo una aplicacion con base de datos en acces, que esta en C:\bd.mdb

quiero que al cargar el Form_Load hage las siguientes intrucciones;

primero que genere un numero aleatorio del 1 al 9

luego con ese dato ingresarlo en la bd.

en la columna Aleatorio

como hago tengo que dar examen mañana y no puedo aun les agradeceria si me pudieran ayudar con esto.

saludos




Título: Re: Como hago esto (Numero aleatorio)
Publicado por: skapunky en 10 Enero 2009, 00:31 am
Generalmente nunca se hacen tareas aquí en el foro, solo te daré un ejemplo para crear un número aleatorio entre 0 y 1... Una vez veas la idea busca como hacerlo del 0 al 9 que es una simple formulita...Sinó utiliza el botón buscar y lo encontraras.  (https://foro.elhacker.net/Themes/converted/images/spanish/search.gif)

En un form, pon un text1.box y un commandbutton y añade lo siguiente:

Código
  1. Private Sub Command1_Click()
  2. Dim numero As Byte
  3. Randomize
  4. numero = Rnd
  5. Text1.Text = numero
  6. End Sub

En el text, cada vez que apretes el button aparecera "aleatoriamente" 0 o 1.

Ahora ya sabes que se hace con Randomize->Rnd, el resto te toca a tí  ;).

Saludos.

PD: Lo de la BD y la columna que mencioas, no me enterao de na XD, pero si lo quieres poner en un fichero de excel, también utiliza el boton buscar o el google.


Título: Re: Como hago esto (Numero aleatorio)
Publicado por: kial en 13 Enero 2009, 05:17 am
Bueno al sistema que kieres hacer aki te dejo el codigo espero te sirva:

Código:
Private Sub Form_Load()
Dim numero As Integer

Randomize
numero = Int((Rnd * 9) + 1)

Dim conexion1 As New ADODB.Connection
Dim sql1 As String

conexion1.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; data source = C:\bd1.mdb"
conexion1.Open

sql1 = "insert into tabla1(Aleatorio) Values" _
   & "('" & numero & "')"

conexion1.Execute (sql1)
conexion1.Close

MsgBox "Numero Guardado", vbInformation
End Sub


okupas agregar un componente que se llama "Adodc" lo agregas en "Proyecto/componentes" y selecionas la casilla que se llama "Microsoft ADO Data Control 6.0".

ahora lo agregas en tu "form" y necesitas relacionarlo con la base de datos, le das clic derecho al "ADODC" que agregaste a tu form y elijes "propidades de ADODC" te abrira una ventana y elijes el boton "Generar". En el primer paso que sale le das la ruta donde tienes tu BD que como avias mencionado estaba en "C:\bd.mdb" y le das "probar conexion" si lo deseas sino nomas le das aseptar y aseptar.

con esto ya tienes lo que necesitas, ya simplemente corre el programa y esto te guardara el numero aleatorio entre 1 y 9.

Comenta si te sirvio, sino te ayudare en lo que pueda  ;D

Saludos....


P.D. Recuerda que la base de datos respeta mayusculas y minusculas



Título: Re: Como hago esto (Numero aleatorio)
Publicado por: ssccaann43 © en 13 Enero 2009, 23:22 pm
No es necesario usar ese componente...

Puede hacerlo por un módulo... y ya...

Acá te dejo un ejemplo sencillo...
Bajalo acá (http://www.megaupload.com/?d=5XZCPLIN)

 ;D


Título: Re: Como hago esto (Numero aleatorio)
Publicado por: ssccaann43 © en 14 Enero 2009, 15:16 pm
Hey... Te funcionó?