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
查看全文
相关阅读:
判断&数学&生活
Tomcat7源码环境搭建
CentOS 7 下使用虚拟环境Virtualenv安装Tensorflow cpu版记录
Quartz学习笔记1:Quartz概述
Docker学习笔记2: Docker 概述
大数据基础知识问答----spark篇,大数据生态圈
[MSSQL] [EntityFramework(.Net Core)] 自增长id字段,无法插入数据
[json-server] RESTful API 中,取主数据时,同时获取多个关联子表的数据
前后端分离开发之前端自己的API(DB)---- (2)
前后端分离开发之前端自己的API(DB)---- (1)
原文地址:https://www.cnblogs.com/xhan/p/1173831.html
最新文章
PSP记录表
四则运算问题扩充:1、题目避免重复;2、可定制(数量/打印方式);3、可以控制下列参数: 是否有乘除法、是否有括号、 数值范围、加减有无负数、除法有无余数、否支持分数 (真分数, 假分数, …)、是否支持小数 (精确到多少位)、打印中每行的间隔可调整;
二柱子问题扩充:1题目避免重复;2可定制(数量/打印方式);3 可以控制下列参数:是否有乘除法,是否有括号,数值范围,加减有无负数,除法有无余数,是否支持分数(真分数,假分数,...),是否支持小数,(精确到多少位),打印中每行的间隔可调整;
软工第一个程序:像二柱子那样,花二十分钟写一个能自动生成小学四则运算题目的 “软件”,要求:除了整数以外,还要支持真分数的四则运算。
软工阅读计划
九大常用排序算法 python
面向对象的设计模式1
递归
js原型的用法
vue动态切换页面
热门文章
vue的生存周期
Vue.js的初步使用
利用api模拟百度搜索功能
js 函数与类的区别
scrapy中间件
j2ee—框架(1):Servlet+JSP实现基本的登录功能(v1.0)
Programming In Scala笔记-第六章、函数式对象
Programming In Scala笔记-第五章、Scala中的变量类型和操作
Programming In Scala笔记-第四章、类和对象
Programming In Scala笔记-第二、三章
Copyright © 2011-2022 走看看