前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >vb连接access数据库实例及查询实例(Java数据库编程)

vb连接access数据库实例及查询实例(Java数据库编程)

作者头像
Java架构师必看
发布2022-04-17 11:18:30
4.1K0
发布2022-04-17 11:18:30
举报
文章被收录于专栏:Java架构师必看Java架构师必看

大家好,我是架构君,一个会写代码吟诗的架构师。今天说一说vb连接access数据库实例及查询实例(Java数据库编程),希望能够帮助大家进步!!!

先来一个简单的实例。

VB.net 2012

SQl server 2012

Access文件:http://download.csdn.net/detail/dzweather/5042992

(两个版本,2003,2012,任选一个)

根据前面ADO.net入门的介绍,我们知道了连接的过程。

AccessFile文件,针对的是Oledb,所以首先应引用。

然后 ,定义三个对象,在实例中再进行创建(这样可以节约点资源)

特别注意 的是,里面没有了cmd过程,我感觉这样的入门适合我学习。

这个例子,就一个窗体,一个datagridview(不绑定,用代码绑定),然后就是几句代码,很简单。

vb

view plain

copy

print

?

代码语言:javascript
复制
 Imports System.Data.OleDb  
  
 Public Class Form1  
  Dim cn As OleDbConnection  
  Dim da As OleDbDataAdapter  
  Dim ds As DataSet  
  
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load  
  Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdb;Persist Security Info=False" 
         cn = New OleDbConnection(cnStr)  
  Dim sql As String = "select * from grade" 
         da = New OleDbDataAdapter(sql, cn)  
         ds = New DataSet  
         da.Fill(ds, "grade")  
         DataGridView1.DataSource = ds.Tables(0)  
  End Sub 
 End Class 

上面的有点简单,但流程清晰。与我们实际应用有很大距离。

下面再跨一步,接近实际应用,即变得较为灵活点:

vb

view plain

copy

print

?

代码语言:javascript
复制
 Imports System.Data.OleDb  
  
 Public Class Form1  
  Dim cn As OleDbConnection  
  Dim da As OleDbDataAdapter  
  Dim ds As DataSet  
  
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load  
  Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdb;Persist Security Info=False" 
         cn = New OleDbConnection(cnStr)  
  Dim sql As String = "select * from grade" 
         da = New OleDbDataAdapter(sql, cn)  
         ds = New DataSet  
         da.Fill(ds, "grade")  
         DataGridView1.DataSource = ds.Tables(0)  
  End Sub 
  
  Private Sub btnQuery_Click(sender As Object, e As EventArgs) Handles btnQuery.Click  
  Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdb;Persist Security Info=False" 
         cn = New OleDbConnection(cnStr)  
  Dim sql As String = TextBox1.Text  
         da = New OleDbDataAdapter(sql, cn)  
         ds = New DataSet  
         da.Fill(ds, "grade")  
         DataGridView1.DataSource = ds.Tables(0)  
  End Sub 
  
  Private Sub btnQueyName_Click(sender As Object, e As EventArgs) Handles btnQueyName.Click  
  Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdb;Persist Security Info=False" 
         cn = New OleDbConnection(cnStr)  
  Dim sql As String = "select * from grade where 姓名 like " & "'%" & TextBox2.Text & "%'" 
         da = New OleDbDataAdapter(sql, cn)  
         ds = New DataSet  
         da.Fill(ds, "grade")  
         DataGridView1.DataSource = ds.Tables(0)  
  End Sub 
 End Class 

代码活没用try catch,反正只是入门。

这样就可以有两个查询方式,一是SQL语句灵活用,二是姓名。

这样一个简单的查询就出来了。这只是一个“查询”,但我们有时还要修改、删除等工作。

在修改,删除时,不但要执行SQL,最终我们还要把结果反馈给用户看。于是就有了第个简单实例。

DataGrideView控件,很多选项都是边框、单元颜色、数据格式、选择方式。太多了。

今天文章到此就结束了,感谢您的阅读,Java架构师必看祝您升职加薪,年年好运。

本文参与 腾讯云自媒体同步曝光计划,分享自作者个人站点/博客。
原始发表:2022-04-162,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
相关产品与服务
数据库
云数据库为企业提供了完善的关系型数据库、非关系型数据库、分析型数据库和数据库生态工具。您可以通过产品选择和组合搭建,轻松实现高可靠、高可用性、高性能等数据库需求。云数据库服务也可大幅减少您的运维工作量,更专注于业务发展,让企业一站式享受数据上云及分布式架构的技术红利!
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档