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
查看全文
相关阅读:
linux命令行总结给自己看的版本
搜集关于人脸识别的评价指标时的感慨
配置面部数据增加的代码环境流程记录
关于Linux前后台进程切换
【转&改进】Linux MPI 单机配置
How did I Install DCGAN
kali的安装
TensorFlow的安装
strcmp用法
分享一个MVC的多层架构,欢迎大家拍砖斧正
原文地址:https://www.cnblogs.com/xhan/p/1173831.html
最新文章
并查集
最小生成树问题(Kruskal 算法)(克鲁斯卡尔)
Agri-Net(prim算法,最小生成树问题)
A Mini Locomotive(动态规划 01)
Big Event in HDU(01背包)
Cleaning Shifts(区间覆盖)
饭卡 (背包01 一维数组) http://acm.hdu.edu.cn/showproblem.php?pid=2546
搬寝室(动态规划)
滑雪 (搜索)(dp)(贪心)
Hat's Fibonacci(大数问题)
热门文章
钱币兑换问题
动态规划 1235: 最大连续子序列
文件夹病毒清理方法
字符串查找 strstr
矩形的个数
时间作为种子(随机数的产生)
位操作
欧拉函数
区间的最大重叠度(会议安排问题)
九度OJ1111题-单词替换
Copyright © 2011-2022 走看看