Varios métodos para conectar VB a varias bases de datosRefreshData1.Connect="Access 2000;" Data1.DatabaseName=App.Path "/chncmad".

RecordSource = "Hoja de datos de atributos de la unidad de gestión de recursos de tierras de cultivo 2004" Data1.RecordSource = "seleccione * de la hoja de datos de atributos de la unidad de gestión de recursos de tierras de cultivos 2004" Data1.Refresh 'El número correcto de registros se puede mostrar sólo después de mover End Sub2. archivo DBF sin contraseña DatabasePrivate Sub Command2_Click()Data1.Connect = "dBASE III; "Data1.DatabaseName = App.Path' Data1.Recordsource = "seleccione * de la hoja de datos de atributos de la unidad de gestión de recursos de tierras de cultivo 2004" Data1.Refresh = "Muestre el archivo correcto registrar Mover antes del número" End Sub2.Path' Data1.RecordSource = "DBF" Data1.RecordSource = "select * "DBF" Data1.RecordSource = "select * "DBFRecordSource = "select * from dbf "Data1.Refresh'move to mostrar correctamente Número de registrosEnd Sub3.Connect="Excel8.0; "Data1.DatabaseName=App.Pathamp;"/EXcel.xls "Data1.RecordSource="select * from [EXcel.xls]"Data1.Refresh' puede mostrar el registra correctamente Number End Sub 2. Utilice el código DAO para conectarse a la base de datos. Antes de utilizar el objeto DAO, debe seleccionar [Proyecto] en el menú de Visual Basic, seleccionar la opción [Biblioteca de objetos Microsoft DAO 3.6] en el menú de referencia, o. otras versiones de 1. Código DAO y conexión a la base de datos Access Private Sub Command1_Click()Dim Db As DatabaseDim Rs As Recordset 'Abrir en *compartir, modo lectura-escritura' Si el último parámetro no tiene contraseña, no se puede configurar Db= OpenDatabase(App.Path amp;"/chncmadb. mdb", False, False, "pwd=123456") 'El número de registros que deben moverse y actualizarse'Set Rs = Db.OpenRecordset("Atributo de la unidad de gestión de recursos de tierras de cultivo Data Table 2004") 'El número de registros que deben moverse y actualizarseOpenRecordset("select * from [Cropland Resource Management Unit Attribute Data Table 2004]")If Rs.RecordCount gt; 0 Then Rs.MoveLast Rs.MoveFirstEnd IfEnd Sub 2. Código DAO sin contraseña Conexión de base de datos de archivos DBF Subcomando privado2_Click()Dim Db