Public Sub btnSalir_Click()
Me.Close
End
' gambas class file
Public Sub Form_Open()
Me.Title = "Versículo al azar"
VersiculoAzar()
End
Public Sub VersiculoAzar()
Dim ResultadoX, ResultadoX2, ResultadoX3 As Result
Dim NumLibro, NumCapitulo, RNDcapitulo, NumVersiculo As Byte
Dim NomTablaX, Libro As String
Dim Contador As Integer
Randomize
NumLibro = Rnd(1, 66)
ResultadoX = FMain.Conexion.Exec("select * from 'biblia' where indicelibro=" & NumLibro)
If ResultadoX.Available = True Then
Do While ResultadoX.Available
Libro = ResultadoX!nombrelibro
NomTablaX = ResultadoX!nombretabla
NumCapitulo = ResultadoX!capitulos
ResultadoX.MoveNext
Loop
Endif
RNDcapitulo = Rnd(1, NumCapitulo)
ResultadoX2 = FMain.Conexion.Exec("select * from '" & NomTablaX & "' where capitulo=" & RNDcapitulo)
If ResultadoX2.Available = True Then
Do While ResultadoX2.Available
NumVersiculo = ResultadoX2!versiculo
Inc Contador
ResultadoX2.MoveNext
Loop
Endif
contador = Rnd(1, contador)
ResultadoX3 = FMain.Conexion.Exec("select * from '" & NomTablaX & "' where capitulo=" & RNDcapitulo & " and versiculo=" & contador)
If ResultadoX3.Available = True Then
txtLTextoVers.Text = ""
txtLTextoVers.Text = ResultadoX3!texto
Else
txtLTextoVers.Text = "Versículo no disponible en la base de datos,<br>pronto estará disponible"
Endif
txtLNomVers.Text = Libro & " " & NumCapitulo & ":" & contador
End
Public Sub btnOtroVers_Click()
VersiculoAzar()
End
Public Sub chkAzar_Click()
If chkAzar.Value = True Then
Settings["Opciones/Azar"] = False
Else
Settings["Opciones/Azar"] = True
Endif
Settings.Save
End
Me.Close
End
' gambas class file
Public Sub Form_Open()
Me.Title = "Versículo al azar"
VersiculoAzar()
End
Public Sub VersiculoAzar()
Dim ResultadoX, ResultadoX2, ResultadoX3 As Result
Dim NumLibro, NumCapitulo, RNDcapitulo, NumVersiculo As Byte
Dim NomTablaX, Libro As String
Dim Contador As Integer
Randomize
NumLibro = Rnd(1, 66)
ResultadoX = FMain.Conexion.Exec("select * from 'biblia' where indicelibro=" & NumLibro)
If ResultadoX.Available = True Then
Do While ResultadoX.Available
Libro = ResultadoX!nombrelibro
NomTablaX = ResultadoX!nombretabla
NumCapitulo = ResultadoX!capitulos
ResultadoX.MoveNext
Loop
Endif
RNDcapitulo = Rnd(1, NumCapitulo)
ResultadoX2 = FMain.Conexion.Exec("select * from '" & NomTablaX & "' where capitulo=" & RNDcapitulo)
If ResultadoX2.Available = True Then
Do While ResultadoX2.Available
NumVersiculo = ResultadoX2!versiculo
Inc Contador
ResultadoX2.MoveNext
Loop
Endif
contador = Rnd(1, contador)
ResultadoX3 = FMain.Conexion.Exec("select * from '" & NomTablaX & "' where capitulo=" & RNDcapitulo & " and versiculo=" & contador)
If ResultadoX3.Available = True Then
txtLTextoVers.Text = ""
txtLTextoVers.Text = ResultadoX3!texto
Else
txtLTextoVers.Text = "Versículo no disponible en la base de datos,<br>pronto estará disponible"
Endif
txtLNomVers.Text = Libro & " " & NumCapitulo & ":" & contador
End
Public Sub btnOtroVers_Click()
VersiculoAzar()
End
Public Sub chkAzar_Click()
If chkAzar.Value = True Then
Settings["Opciones/Azar"] = False
Else
Settings["Opciones/Azar"] = True
Endif
Settings.Save
End
Link