1、ADO 常用方法下面是我所掌握的使用 ADO 对数据库操作的一些常用方法，主要是提供给初学者作为参考，有不对的地方请指正。如有补充不胜荣幸准备工作=Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用 New 等于将 Dim 和 Set 合并为一段代码执行Dim rs As ADODB.Recordset '创建一个 Recordset 实例，不使用 New 是因为，经常需要重复使用 Set，因此没必要在这里使用Dim CnStr As String, Sql As String '创建两个字符串变量分别存
2、放两个集合的 SQL 语句代码段1、装载数据库(不属于 Recordset 集合)=Dim FileNamw$, DbIp$, DbName$, DbUser$, DbPw$'以上 5 个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操作员用户名、操作员密码FileName = App.Path persist security info =false;data source=“ Jet OLEDB:Database Password=“ Password=“ User ID=“ Data Source=“ Persist Security Info=True“'
3、;其中:'PASSWORD: 密码'User ID: 用户号'Data Source: 数据库名'Persist Security Info:'Provider:'3)连接 VF 的 DBF 库:'-CnStr = “PROVIDER=MSDASQL.1;Persist Security Info=False;Driver=Microsoft Visual FoxPro Driver;UID=“ SourceDB=“ SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machi
4、ne;“'4)连接 SQL 的数据库'-CnStr = “PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;uid=“ pwd=“ DRIVER=SQL Server;DATABASE=“ WSID=GQSOFT;SERVER=“ Data Source=“ DATABASE=“ UID=“ pwd=“ Persist Security Info=False;Data Source=“ Extended Properties='Excel 8.0;HDR=Yes'“ '连接 EXCEL文件sql = “select *
5、 from “ & strSheetName & “$“ '打开 EXCEL 表rs.Open sql, Conn, 3, 3MsgBox rs.RecordCountDo Until rs.EOFFor i = 0 To rs.Fields.Count - 1List1.AddItem rs.Fields.Item(i).NameIf Not IsNull(rs.Fields.Item(i).Value) ThenList2.AddItem rs.Fields.Item(i).ValueElsers.Updaters.Fields.Item(i).Value = “peter“ & irs.UpdateEnd IfNext irs.MoveNextLoopEnd Sub
