ACCESS模块一些函数.docVIP

Public cn As New ADODB.Connection Public rs As New ADODB.Recordset 连接数据库 Public Function ConnectDB(strDb as string) As String On Error GoTo ErrH: With cn If .State adStateClosed Then .Close .ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= strDb ; .ConnectionTimeout = 30 .CursorLocation = adUseClient .Open End With Exit Function ErrH: ConnectDB = 连接数据库失败: Err.Description End Function 程序启动函数 Sub Main() dim strResult as string dim strDatabase as String 数据库路径 strDataBase=App.Path test.db strResult=ConnectDB() 连接数据库 if strResult then Msgbox strResult,vbCritical End End If MsgBox 连接数据库成功！ 打开数据表(Table1是你的数据表) rs.Open select * from Table1,cn,adOpenKeyset, adLockOptimistic MsgBox 共找到 rs.RecordCount 条记录! rs.Close End SubDim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim sql As String Form_Load中 Set conn = New ADODB.Connection conn.ConnectionString = driver={microsoft access driver (*.mdb)}; dbq=你的数据库名.mdb conn.Open sql = select * from 表名 Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient 使用客户端的游标 rs.Open sql, conn, adOpenStatic, adLockBatchOptimisticpublic static DataAccess Create(string connectionName) { DataAccess dataAccess = null; ConnectionStringSettings ConnSettings = ConfigurationManager.ConnectionStrings[connectionName]; if(ConnSettings == null) { throw new Exception(数据库连接字符串不正确！); } if (ConnSettings.ProviderName == System.Data.SqlClient) { dataAccess = new SqlDataAccess(); } else if (ConnSettings.ProviderName == System.Data.OracleClient) { dataAccess = new OracleDataAccess(); } else if (ConnSettings.ProviderName == System.Data.Odbc) { dataAccess = new OdbcDataAccess(); } else if (ConnSett