Programación VB+Acceso

Atenuar cnn1 como nuevo ADODB.Connection ''Definir una conexión

Atenuar cmd1 como nuevo ADODB.Command

Atenuar rst1 como nuevo ADODB.Recordset 'Definir un Conjunto de registros

Public Sub Open_Database() 'Personaliza el proceso para conectarse a la base de datos

Dim sFileName As String 'Declara una variable que almacena la ruta de la base de datos

sFileName = App.Path & "\" & "Water_Data.mdb" 'Utilice la combinación app.path para obtener la ruta absoluta de la base de datos actual

cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0 ;" _

& " Data Source= " & sFileName & ";Persist Security Info=False" 'Cadena de conexión de la base de datos

cnn1.Open 'Conectar a la base de datos

End Sub

Public Sub Close_Database() 'Cerrar el proceso de personalización de la base de datos

cnn1.Close 'Cerrar la base de datos

End Sub

Función pública Wait(ByVal TimeToWait As Long) 'Tiempo en segundos

Dim EndTime As Long

EndTime = GetTickCount + TimeToWait * 1000 '* 1000 Porque das segundos y GetTickCount usa Milisegundos

Hacer hasta GetTickCount > EndTime

DoEvents

Bucle

Función final