module1.bas

来自「Grafica por cordenadas basicas」· BAS 代码 · 共 49 行

Attribute VB_Name = "Module1"
Dim cnx As New ADODB.Connection
Public VolveraMostrar As Boolean

Sub main()
cnx.ConnectionString = "provider=microsoft.jet.oledb.4.0; data source=" & App.Path & "\Control.mdb; Persist security info= false"
  cnx.Open
  If cnx.State Then
   'Abre un Formulario
   Principal.Show
  Else
    MsgBox "No Hubo Conexi髇"
  End If
End Sub

Public Function CrearTabla(strtabla As String) As ADODB.Recordset
Dim rstemp As New ADODB.Recordset
Set rstemp.ActiveConnection = cnx
rstemp.CursorLocation = adUseClient
rstemp.LockType = adLockOptimistic
rstemp.Source = strtabla
rstemp.Open
Set CrearTabla = rstemp
Set rstemp = Nothing

End Function

Public Sub DeshabilitarBotones()
    Principal.Enabled = False
    Principal!cmdDatosVehiculo.Enabled = False
    Principal!cmdActividad.Enabled = False
    Principal!cmdMantenimiento.Enabled = False
    Principal!cmdReporte.Enabled = False
    Principal!cmdSalir.Enabled = False
End Sub

Public Sub HabilitarBotones()
    Principal.Enabled = True
    Principal!cmdDatosVehiculo.Enabled = True
    Principal!cmdActividad.Enabled = True
    Principal!cmdMantenimiento.Enabled = True
    Principal!cmdReporte.Enabled = True
    Principal!cmdSalir.Enabled = True
End Sub