Importar y exportar código fuente

Aquí tengo el código fuente de VB para acceder a la base de datos de ACCESS. ¿Quieres una muestra para consultarla?

Opción explícita

Dim se conecta a ADODB. Relación

Atenuar con eventos como ADODB. Conjunto de registros

Cadena de conexión pública $, nombre de usuario $, ID de usuario $

Subcomando privado 1_Click()

Classinf

conector final

Private Subform_Load()

conn string = " DRIVER = Microsoft Access Driver (*.MDB); DBQ = " & App. Caminos y caminos. " \CourseMIS.mdb "

Establecer conexión = Nuevo ADODB. Relación

Conexión abierta

Clase

Conector final

Subclase privada()

Dim Estoy soltero

Atenuar strSQl$

Atenuar rsclass como ADODB. Conjunto de registros

strSQl = "SELECT * FROM Class "

Establecer rsclass = Nuevo ADODB. Conjunto de registros

rsclass. Connecticut, 1, 1

cmbClass. clear

en lugar de rsclass. Fin del archivo

cmbClass. AddItem rsclass("ID de clase "). valor

rsclass. Siguiente

Fila

si cmbClass. ListCount gt0, luego cmbClass. ListIndex = 0

rsclass. Cerrar

Establecer rsclass = Nada

Conector final

Subclase privada inf()

Dim str$

Atenuar primero como ADODB. Conjunto de registros

strS = "SELECCIONE ClassID, ClassName, DepartID, Descripción FROM Class WHERE ClassID = ' " cmbClass. Amplificador de texto"

Establecer rSt = Nuevo ADODB. Conjunto de registros

rSt. Abrir str, coney, 3, 3

Establecer DataGrid1. DataSource = rSt

Conector final