ACCESS 读取 SQL
来源:互联网 发布:网络销售公司排名 编辑:程序博客网 时间:2024/05/16 01:10
Private Sub 功能1_Click()
Dim 链接集 As New ADODB.Connection '定义 数据链接 对象,保存 连接数据库信息;请先添加ADO引用
Dim 数据表 As New ADODB.Recordset '定义 记录集 对象,保存 数据表
Dim 服务器名 As String '定义 字符串变量
Dim 数据库名 As String
Dim 登录名 As String
Dim 密码 As String
Dim 链接条件 As String
Dim 读取数据 As String
服务器名 = "GSFSR"
数据库名 = "SY_Data"
登录名 = "sa"
密码 = "Sa2011"
链接条件 = "Provider=SQLOLEDB;Server=" & 服务器名 & ";Database=" & 数据库名 & ";Uid=" & 登录名 & ";Pwd=" & 密码 & ";" '定义数据库链接字符串
读取数据 = "SELECT * FROM 用户表" '定义SQL 查询命令字符串
链接集.Open 链接条件 '与数据库建立连接
数据表.Open 读取数据, 链接集 '执行SQL命令 ,结果保存在 记录集对象中
Do While Not 数据表.EOF '当数据指针未移到记录集末尾时,循环下列操作
MsgBox 数据表.Fields("用户名").Name & " " & 数据表.Fields("用户名").Value & " " & 数据表.Fields("密码").Value '具体操作
数据表.MoveNext '把指针移向下一条记录
Loop '循环
数据表.Close '关闭记录集
链接集.Close
End Sub
- ACCESS 读取 SQL
- 随机读取数据sql access
- 在SQL中操纵读取ACCESS数据库
- 在SQL中操纵读取ACCESS数据库
- VS2008(VC++)使用Ado读取SQL Server和Access数据库
- VS2008(VC++)使用Ado读取SQL Server和Access数据库
- access sql
- access SQL
- Access,SQL
- Javascript读取ACCESS数据库
- qt4:读取 access 数据库
- qt4:读取 access 数据库
- WINCC中读取ACCESS
- php读取Access数据库
- delphi读取access出错
- java 读取 access数据库
- asp读取access数据库
- Python读取access数据库
- 河北工业大学计算机科学与软件学院党员知识题库
- 结构体、对象转字节数组
- JS的URL编码
- 世界知名IT公司名字由来
- 数据库查询,删除,更新条件的时候注意条件是否去除空格!
- ACCESS 读取 SQL
- MVC对Dao层的解决方法(MVC的设计)
- Rob Hess's C implementation of SIFT algorithm
- JQuery实现开关灯及图片的显示,背景变暗
- Ogre读取Ogitor的scene场景简介
- 负载均衡的原理与算法介绍
- iPhone开发入门(1)----程序员眼中的iPhone
- typeid 使用说明
- JQuery实现开关灯效果以及图片的显示背景变暗