zoukankan
html css js c++ java
vb 6.0数据库操作代码例子
'
***********************************************************
'
删除函数
'
************************************************************
Private
Sub
Delete_Click()
'
声明数据库连接对象
Dim
conn
As
New
ADODB.Connection
conn.ConnectionString
=
"
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False
"
'
打开数据库连接
conn.Open
'
执行删除sql语句
conn.Execute
"
Delete from Users where UserName='insert' or UserName='update'
"
'
关闭数据库并释放数据库对象
conn.Close
Set
conn
=
Nothing
End Sub
'
***********************************************************
'
添加函数
'
************************************************************
Private
Sub
InsertButton_Click()
'
声明数据库连接对象
Dim
conn
As
New
ADODB.Connection
conn.ConnectionString
=
"
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False
"
'
打开数据库连接
conn.Open
'
执行添加sql语句
conn.Execute
"
Insert into Users (UserName,UserPassword) values ('insert','test')
"
'
关闭数据库并释放数据库对象
conn.Close
Set
conn
=
Nothing
End Sub
'
***********************************************************
'
读取函数
'
************************************************************
Private
Sub
SelectButton_Click()
'
声明数据库连接对象和记录集对象
Dim
conn
As
New
ADODB.Connection
Dim
rs
As
New
ADODB.Recordset
'
指定连接字符串
conn.ConnectionString
=
"
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False
"
'
打开数据库连接
conn.Open
'
执行查询sql语句
rs.Open
"
Select * from Users
"
, conn
'
读取记录集内容
While
Not
rs.EOF
'
显示记录
Print rs(
"
UserId
"
), rs(
"
UserName
"
), rs(
"
UserPassword
"
)
rs.MoveNext
Wend
'
关闭记录集并释放记录集对象
rs.Close
Set
rs
=
Nothing
'
关闭数据库并释放数据库对象
conn.Close
Set
conn
=
Nothing
End Sub
'
***********************************************************
'
更新函数
'
************************************************************
Private
Sub
Update_Click()
'
声明数据库连接对象
Dim
conn
As
New
ADODB.Connection
conn.ConnectionString
=
"
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False
"
'
打开数据库连接
conn.Open
'
执行更新sql语句
conn.Execute
"
Update Users set UserName='update' where UserName='insert'
"
'
关闭数据库并释放数据库对象
conn.Close
Set
conn
=
Nothing
End Sub
查看全文
相关阅读:
认识一下JavaScript
JAVA并发容器之CopyOnWrite容器
JAVA并发容器之ConcurrentHashMap
由浅入深理解java集合(一)——集合框架 Collection、Map
强引用、软引用、弱引用、虚引用
Lock和synchronized的选择
Java并发编程:volatile关键字解析
java线程并发-Thread类的使用
SQL语句中:UNION与UNION ALL的区别
抽象类与接口
原文地址:https://www.cnblogs.com/xhan/p/1173831.html
最新文章
简单工厂模式
单例设计模式
设计模式七大原则
阻塞队列
synchronized和lock有什么区别?
CountDownLatch、CyclicBarrier和Semaphore基本原理和使用
怎么才能成为优秀的前端工程师?
wordpress(内容管理系统)
python 版本升级(CentOS) 从2.6.6升级到2.7.6
(转)tomcat内存配置及配置参数详解
热门文章
java基础--hashmap为什么是线程不安全的
html和jsp的区别及优缺点
Java中@SuppressWarnings注解用法(转)
Java中char和String的相互转换
Java 读取 .properties 配置文件的几种方式
@SafeVarargs注解的使用
java8-lambdaba表达式的使用详情
spring基础只是--@ResponseBody注解作用与原理
笔记三:JS正则表达式
笔记二:JS的输出、语法、语句、字符串、条件语句、switch语句、for循环、while循环
Copyright © 2011-2022 走看看