Como hago esto (Numero aleatorio)

[gonzalex99]

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

[skapunky]

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. 

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

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim numero As Byte
Randomize
numero = Rnd
Text1.Text = numero
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.

[kial]

Bueno al sistema que kieres hacer aki te dejo el codigo espero te sirva:

Código [Seleccionar] Expandir

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 

Saludos....


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

[ssccaann43 ©]

No es necesario usar ese componente...

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

Acá te dejo un ejemplo sencillo...
Bajalo acá

[ssccaann43 ©]

Hey... Te funcionó?