数据库|mysql教程
操作,access,数据库,第一次,连接,Access,数据
数据库-mysql教程
系统时间暂停源码,vscode编译卡住,Ubuntu下完搜狗去哪找图标,tomcat 写入日志,sqlite设置连接名,网页播放视频需要什么插件,前端什么框架用的多,邵东有爬虫店吗,Php在菲律宾,纸业seo费用,js 网站计数器,网页修改恶搞代码,注册登录页面html模板下载lzw
第一次用VB来连接Access数据库，由于不了解VB语法，老是出现bug。现在看来，其实很简单，有好几种方法来连接，包括ADO控件、利用ADO对象等方法。由于ADO控件操作局限性太大，本文采用ADO对象来操作。过程如下： 准备工作: 建立数据库 E:\operation.accdb；
uip协议栈源码下载,vscode加密文件怎么解除,ubuntu 7zip,tomcat启动超时原因,sqlite 好用,北京网页设计飞沐,mssql数据库加密,网站服务器更换,bobop2p多媒体插件,前端框架详解,爬虫网址来源,vue.js php,杭州做seo,快速上手springboot,dede 标签增加class,asp网站模板运用,手机浏览电脑网页,国外旅游app官网模板,ecshop后台默认密码,ecshop修改登录页面,yyjia管理系统,人人商城小程序源码分析lzw
android 离线语音识别 源码,vscode在新标签中打开,ubuntu 独占模式,tomcat防止cc攻击,长沙爬虫学院,php 站内信源码,seo优化基础教学关键词,网站手机版后台lzw
第一次用VB来连接Access数据库，由于不了解VB语法，老是出现bug。现在看来，其实很简单，有好几种方法来连接，包括ADO控件、利用ADO对象等方法。由于ADO控件操作局限性太大，本文采用ADO对象来操作。过程如下：
准备工作: 建立数据库 E:\operation.accdb； 建数据表:selection；数据表中,建字段:User,Password,并添加一条记录
点工程->引用 选中Microsoft Activex Data Objects 6.1 Library（注：选择最高版本就行）
1、数据库查询
首先添加控件:添加一个文本框,一个命令按钮
Private Sub Command1_Click()Dim Conn As New ADODB.Connection 创建ADODB对象，用于连接数据库操作Dim Rs As New ADODB.Recordset 创建ADODB对象，用于返回取得的数据库内容Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb" 连接数据库函数，第一个参数为数据库驱动，第二个参数为数据库路径sql = "Select Password From select where User=a\" selection请换成你的实际数据表名Rs.Open sql, Conn, 1, 3 查询数据库，第一个参数为数据库查询语句，第二个参数为数据库连接，第三个和第四个分别为对数据库的操作权限；If Rs.EOF ThenMsgBox "没有找到此用户"ElseText1.Text = Rs("Password")End IfConn.closeRs.closeEnd Sub
2、数据插入
首先添加控件:添加两个文本框,一个命令按钮
Private Sub Command1_Click()Dim s1 As StringDim s2 As StringDim Conn As New ADODB.ConnectionConn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb"s1 = Text1.Texts2 = Text2.Textsql = "Insert Into selection Values(\" & s1 & ",\" & s2 & ")"Conn.Execute sqlConn.closeEnd Sub
3、删除数据库中的某个记录
首先添加控件:添加一个文本框,一个命令按钮
Private Sub Command1_Click()Dim s As StringDim Conn As New ADODB.ConnectionConn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb"s = Text1.Textsql = "Delete From selection Where User = \" & s & "\"Conn.Execute sqlConn.closeEnd Sub
4、更新数据库某个记录
首先添加控件:添加一个文本框,一个命令按钮
Private Sub Command1_Click()Dim s As StringDim Conn As New ADODB.ConnectionConn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb"s = Text1.Textsql = "Update selection Set [Password] = \" & s & " Where [User] = a\"Conn.Execute sqlConn.CloseEnd Sub
总结
首先是建立数据库连接：
Private Sub Command1_Click()Dim Conn As New ADODB.Connection 创建ADODB对象，用于连接数据库操作Dim Rs As New ADODB.Recordset 创建ADODB对象，用于返回取得的数据库内容Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb" 连接数据库函数，第一个参数为数据库驱动，第二个参数为数据库路径
然后，是对数据库各种操作语句。
如果觉得《VB操作access数据库》对你有帮助，请点赞、收藏，并留下你的观点哦！
