零基础学习ADO——个人资料(ACCESS)篇(持续更新)

浮华、缠绕指尖

题外话：1,前期绑定：'工具--引用---Microsoft Activex..D...O"(cnn与rst引用)'Microsoft ADO Ext. 2.8 for DDL and Security(adox.catalog)(不一定需要)
2,后期绑定(个人喜欢后期绑定，无论是字典还是正则等)：

1. Set cnn = CreateObject("adodb.connection") '创建ado对象

复制代码

敲门砖(必备语句可当常用代码进行引用)：

1.     'Set cnn = CreateObject("adodb.connection")
   
2.     'Set rst = CreateObject("ADODB.recordset")
   
3.     'set cat=createobject("adox.catalog")
   
4.    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPath '连接器
   
5.   SQL语句常用格式：select * from [  ] where
   
6. cnn中使用cnn.execute(SQL) rst中使用rst.open SQL

复制代码

frank55555

來學習了,謝謝分享.

浮华、缠绕指尖

不知道怎么回事，1楼的贴了编辑后保存还是一样的，补一句，后期绑定的
'Set rst = CreateObject("ADODB.recordset") '创建记录集
'set cat=createobject("adox.catalog") 'ADOX.Catlog对象包含描述数据源模式目录的集合：Tables集合、Views集合、Users集合、Groups集合和Procedures集合用来存放数据库表或查询等

浮华、缠绕指尖

其他概念比如连接EXCEL、SQL等的语句，网上和论坛上一大堆
第一讲，通过Cat创建数据库

1. Sub setDatabase()
   
2.     Set Cat = CreateObject("adox.catalog")
   
3.     Dim myPath As String
   
4.     Dim myTable As String
   
5.     myPath = ThisWorkbook.Path & "\数据源.mdb"
   
6.     myTable = "学生成绩"    '表名
   
7.     If Dir(myPath) <> "" Then Kill myPath
   
8.     Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPath
   
9.     Cat.ActiveConnection.Execute "CREATE TABLE " & myTable & "(学生编号 int,姓名 text(10),语文 text(20)," & "数学 text(20),英语 text(25))"    '设置各字段，类型与长度
   
10.     Set Cat = Nothing
    
11. End Sub

复制代码

taijez01

加油啊，何时再更新？

浮华、缠绕指尖

第二讲，新增字段

1. '新增字段
   
2. Sub addColumns()
   
3. Set cnn = CreateObject("adodb.connection")
   
4. myPath = ThisWorkbook.Path & "\数据源.mdb"
   
5. myTable = "学生成绩"
   
6. cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPath
   
7. 字段 = "物理"
   
8. cnn.Execute "ALTER TABLE " & myTable & " Add column " & 字段 & " int"
   
9. cnn.Close
   
10. Set cnn = Nothing
    
11. End Sub

复制代码

浮华、缠绕指尖

第三讲，删除字段
'删除字段

1. Sub deleteColumnsOnebyOne()
   
2. Set cnn = CreateObject("adodb.connection")
   
3. myPath = ThisWorkbook.Path & "\数据源.mdb"
   
4. myTable = "学生成绩"
   
5. cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPath
   
6. 字段 = "英语"
   
7. cnn.Execute "ALTER TABLE " & myTable & " drop column " & 字段 & " int"
   
8. cnn.Close
   
9. Set cnn = Nothing
   
10. End Sub

复制代码

浮华、缠绕指尖

第四，当然也是最重要的环节
如何更新数据库记录，包括新增、修改、删除以及查询等
1、可以用(rst.add 字段,数据)和(cnn的insert)方式增加数据
2、修改都是用update方式
3、删除是用delete
4、查询……select，重中之重，如何写好一个select的表达式来实现我们想到目的，单独讲

zez

谢谢！学习！

liaozhifa33

Super V5 !!!!!!