Bueno al sistema que kieres hacer aki te dejo el codigo espero te sirva:
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
Autor
En línea
.
