加载中…
个人资料
微博
  • 博客等级：
  • 博客积分：
  • 博客访问：
  • 关注人气：
  • 获赠金笔：0支
  • 赠出金笔：0支
  • 荣誉徽章：
正文 字体大小：大 中 小

vb6.0操作数据库代码例子

(2019-04-11 21:59:40)
标签：

活力星语

金钟常鸣

vb

 分类： VB.NET
'删除函数
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'************************************************************
https://www.cnblogs.com/Images/OutliningIndicators/None.gifPrivate Sub Delete_Click()
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'声明数据库连接对象
https://www.cnblogs.com/Images/OutliningIndicators/None.gifDim conn As New ADODB.Connection
https://www.cnblogs.com/Images/OutliningIndicators/None.gif
https://www.cnblogs.com/Images/OutliningIndicators/None.gifconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'打开数据库连接
https://www.cnblogs.com/Images/OutliningIndicators/None.gifconn.Open
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'执行删除sql语句
https://www.cnblogs.com/Images/OutliningIndicators/None.gifconn.Execute "Delete from Users where UserName='insert' or UserName='update'"
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'关闭数据库并释放数据库对象
https://www.cnblogs.com/Images/OutliningIndicators/None.gifconn.Close
https://www.cnblogs.com/Images/OutliningIndicators/None.gifSet conn = Nothing
https://www.cnblogs.com/Images/OutliningIndicators/None.gifEnd Sub
https://www.cnblogs.com/Images/OutliningIndicators/None.gif '***********************************************************
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'添加函数
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'************************************************************https://www.cnblogs.com/Images/OutliningIndicators/None.gif
https://www.cnblogs.com/Images/OutliningIndicators/None.gifPrivate Sub InsertButton_Click()
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'声明数据库连接对象
https://www.cnblogs.com/Images/OutliningIndicators/None.gifDim conn As New ADODB.Connection
https://www.cnblogs.com/Images/OutliningIndicators/None.gif
https://www.cnblogs.com/Images/OutliningIndicators/None.gifconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'打开数据库连接
https://www.cnblogs.com/Images/OutliningIndicators/None.gifconn.Open
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'执行添加sql语句
https://www.cnblogs.com/Images/OutliningIndicators/None.gifconn.Execute "Insert into Users (UserName,UserPassword) values ('insert','test')"
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'关闭数据库并释放数据库对象
https://www.cnblogs.com/Images/OutliningIndicators/None.gifconn.Close
https://www.cnblogs.com/Images/OutliningIndicators/None.gifSet conn = Nothing
https://www.cnblogs.com/Images/OutliningIndicators/None.gif
https://www.cnblogs.com/Images/OutliningIndicators/None.gifEnd Sub
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'***********************************************************
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'读取函数
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'************************************************************
https://www.cnblogs.com/Images/OutliningIndicators/None.gifPrivate Sub SelectButton_Click()
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'声明数据库连接对象和记录集对象
https://www.cnblogs.com/Images/OutliningIndicators/None.gifDim conn As New ADODB.Connection
https://www.cnblogs.com/Images/OutliningIndicators/None.gifDim rs As New ADODB.Recordset
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'指定连接字符串
https://www.cnblogs.com/Images/OutliningIndicators/None.gifconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'打开数据库连接
https://www.cnblogs.com/Images/OutliningIndicators/None.gifconn.Open
https://www.cnblogs.com/Images/OutliningIndicators/None.gif
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'执行查询sql语句
https://www.cnblogs.com/Images/OutliningIndicators/None.gifrs.Open "Select * from Users", conn
https://www.cnblogs.com/Images/OutliningIndicators/None.gif
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'读取记录集内容
https://www.cnblogs.com/Images/OutliningIndicators/None.gifWhile Not rs.EOF
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'显示记录
https://www.cnblogs.com/Images/OutliningIndicators/None.gifPrint rs("UserId"), rs("UserName"), rs("UserPassword")
https://www.cnblogs.com/Images/OutliningIndicators/None.gifrs.MoveNext
https://www.cnblogs.com/Images/OutliningIndicators/None.gifWend
https://www.cnblogs.com/Images/OutliningIndicators/None.gif
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'关闭记录集并释放记录集对象
https://www.cnblogs.com/Images/OutliningIndicators/None.gifrs.Close
https://www.cnblogs.com/Images/OutliningIndicators/None.gifSet rs = Nothing
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'关闭数据库并释放数据库对象
https://www.cnblogs.com/Images/OutliningIndicators/None.gifconn.Close
https://www.cnblogs.com/Images/OutliningIndicators/None.gifSet conn = Nothing
https://www.cnblogs.com/Images/OutliningIndicators/None.gif
https://www.cnblogs.com/Images/OutliningIndicators/None.gifEnd Sub
https://www.cnblogs.com/Images/OutliningIndicators/None.gif '***********************************************************
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'更新函数
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'************************************************************
https://www.cnblogs.com/Images/OutliningIndicators/None.gifPrivate Sub Update_Click()
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'声明数据库连接对象
https://www.cnblogs.com/Images/OutliningIndicators/None.gifDim conn As New ADODB.Connection
https://www.cnblogs.com/Images/OutliningIndicators/None.gif
https://www.cnblogs.com/Images/OutliningIndicators/None.gifconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'打开数据库连接
https://www.cnblogs.com/Images/OutliningIndicators/None.gifconn.Open
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'执行更新sql语句
https://www.cnblogs.com/Images/OutliningIndicators/None.gifconn.Execute "Update Users set UserName='update' where UserName='insert'"
https://www.cnblogs.com/Images/OutliningIndicators/None.gif'关闭数据库并释放数据库对象
https://www.cnblogs.com/Images/OutliningIndicators/None.gifconn.Close
https://www.cnblogs.com/Images/OutliningIndicators/None.gifSet conn = Nothing
https://www.cnblogs.com/Images/OutliningIndicators/None.gif
https://www.cnblogs.com/Images/OutliningIndicators/None.gifEnd Sub

喜欢

0

阅读┊ 收藏 ┊ 喜欢▼ ┊打印┊举报/Report
  

新浪BLOG意见反馈留言板　欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

Copyright © 1996 - 2022 SINA Corporation, All Rights Reserved

新浪公司 版权所有