VB与各数据库的几种连接方式.doc

－、用DAO控件连接数据库 1.与Access2000数据库连接 Private Sub Command1_Click() 也可直接在控件属性中设置以下各项但在控件属性中不能写入密码 只有在数据数没有密码的情况下可以省略 Data1.Refresh Data1.Connect = Access 2000; Data1.DatabaseName = App. Path + \chncmadb.mdb 数据库没有密码此句可省 Data1.Connect = ;pwd=123456 Data1.RecordSource = 耕地资源管理单元属性数据表2004　 Data1.RecordSource = select * from 耕地资源管理单元属性数据表2004 Data1.Refresh ’move后才能正确显示记录个数 End Sub 2.与没有密码的DBF文件数据库连接 Private Sub Command2_Click() Data1.Connect = dBASE III; Data1.DatabaseName = App. Path Data1.RecordSource =DBF Data1.RecordSource = select * from dbf Data1.Refresh ’move后才能正确显示记录个数 End Sub 3.与没有密码的Excel文件数据库连接 Private Sub Command3_Click() Data1.Connect = Excel 8.0; Data1.DatabaseName = App.Path \EXcel.xls Data1.RecordSource = select * from [EXcel.xls] Data1.Refresh ’move后才能正确显示记录个 End Sub 二、用DAO代码连接数据库 在使用DAO对象前应选定Visual Basic菜单下的[工程]中的引用了菜单中的[Microsoft DAO 3.6 Object Library]选项，或其它版本 1.DAO代码与Access数据库连接 Private Sub Command1_Click() Dim Db As Database Dim Rs As Recordset 以共享、读写方式打开如果无密码最后一个参数可以不要 Set　Db= OpenDatabase(App.Path \chncmadb.mdb, False, False, ;pwd=123456) 不需要move来更新记录个数 Set Rs = Db.OpenRecordset(耕地资源管理单元属性数据表2004) 需要move来更新记录个数 Set Rs = Db.OpenRecordset(select * from [耕地资源管理单元属性数据表2004]) If Rs.RecordCount 0 Then Rs.MoveLast Rs.MoveFirst End If End Sub 2.DAO代码与没有密码的DBF文件数据库连接 Private Sub Command2_Click() Dim Db As Database Dim Rs As Recordset 以共享、读写方式打开 Set Db = OpenDatabase(App.Path, False, False, dbase III;) 不需要move来更新记录个数 Set Rs = Db.OpenRecordset(DBF) ’需要move来更新记录个数 Set Rs = Db.OpenRecordset(select * from [DBF]) If Rs.RecordCount 0 Then Rs.MoveLast Rs.MoveFirst End If End sub 3. DAO代码与没有密码的Excel文件数据库连接 Private Sub Command3_Click() Dim Db As Database Dim Rs As Recordset 以共享、读写方式打开如果无密码最后一个参数可以不要 Set Db = OpenDatabase(App.Path \EXcel.xls, False, False, Excel 8.0;) 不需要move来更新记录个数 Set Rs = Db.OpenRecordset(EXcel.xls) 表格中的工作目录sheet 需要move来更新记录个数 Set Rs = Db.OpenRecordset(select * from [EXcel.xls]) 表格中的工作目录sheet If