VB.NET连接Access数据库查找ID最大的前两个数据，或新入库的前两个数据

vb.net同时对两个ACCESS数据库进行增删改查。~

见下面的代码，自己换成真实的数据库及表即可
Imports System.DataImports System.IOImports System.Data.OleDbModule Module1 Public cn1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS数据库1.mdb") '定义连接1---这里请更改为实际数据库路径及名称 Public cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS数据库2.mdb") '定义连接2---这里请更改为实际数据库路径及名称 Public DataBaseRST1 As Integer '用来返回数据库执行结果 Public DataBaseRST2 As Integer '用来返回数据库执行结果 Public Function DataModify(ByVal str_cmd1 As String, ByVal str_cmd2 As String) As Boolean '进行数据库修改操作函数 Dim cmdinsert1 As New OleDbCommand Dim cmdinsert2 As New OleDbCommand Try cmdinsert1.CommandText = str_cmd1 cmdinsert2.CommandText = str_cmd2 cmdinsert1.Connection = cn1 cmdinsert2.Connection = cn2 If cn1.State = ConnectionState.Closed Then cn1.Open() If cn2.State = ConnectionState.Closed Then cn2.Open() DataBaseRST1 = cmdinsert1.ExecuteNonQuery() '用来返回执行的结果 DataBaseRST2 = cmdinsert2.ExecuteNonQuery() '用来返回执行的结果 cn1.Close() cn2.Close() Return True Catch ex As Exception MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) Return False End Try End FunctionEnd Module Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click DataModify("insert into aa values ('1','2')", "insert into aa values ('1','2')") '调用方法 End SubEnd Class

给你写个例子，不明白，再问！！
'引入OLEDB命令空间
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'定义一个OLEDB连接并实例化它
Dim con As New OleDbConnection
'定义一个OLEDB命令并实例化他
Dim cmd As New OleDbCommand
'定义一个OLEDBReader方法来读取数据库
Dim dr As OleDbDataReader
'初始化con的连接属性，使用OLEDB模式，数据源为：你指定下路径，我的是在D盘
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dataSample.mdb"
'打开OLEDB数据连接
con.Open()
'初始化OLEDB命令的连接属性为con,这个需要你理解下
cmd.Connection = con
'初始化OLEDB命令的语句 就是查询 什么字段从什么表 条件是ID等于你在t1中输入的内容
cmd.CommandText = "select keyss from table1 where ID=" & t1.Text & ""
'执行OLEDB命令以ExecuteReader()方式，并返回一个OLEDBReader，赋值给dr
dr = cmd.ExecuteReader()
'判断下dr中是否有数据。如果有就把第一个值赋值给t2的值
If dr.Read() Then
t2.Text = dr(0)
End If
'完成后关闭dr.con等释放资源
dr.Close()
con.Close()
End Sub
End Class

见下面的代码，自己换成真实的数据库及表即可

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

Imports System.Data
Imports System.IO
Imports System.Data.OleDb
Module Module1
Public cn1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS数据库1.mdb") '定义连接1---这里请更改为实际数据库路径及名称
Public cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS数据库2.mdb") '定义连接2---这里请更改为实际数据库路径及名称
Public DataBaseRST1 As Integer '用来返回数据库执行结果
Public DataBaseRST2 As Integer '用来返回数据库执行结果
Public Function DataModify(ByVal str_cmd1 As String, ByVal str_cmd2 As String) As Boolean '进行数据库修改操作函数
Dim cmdinsert1 As New OleDbCommand
Dim cmdinsert2 As New OleDbCommand
Try
cmdinsert1.CommandText = str_cmd1
cmdinsert2.CommandText = str_cmd2
cmdinsert1.Connection = cn1
cmdinsert2.Connection = cn2
If cn1.State = ConnectionState.Closed Then cn1.Open()
If cn2.State = ConnectionState.Closed Then cn2.Open()
DataBaseRST1 = cmdinsert1.ExecuteNonQuery() '用来返回执行的结果
DataBaseRST2 = cmdinsert2.ExecuteNonQuery() '用来返回执行的结果
cn1.Close()
cn2.Close()
Return True
Catch ex As Exception
MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function
End Module
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DataModify("insert into aa values ('1','2')", "insert into aa values ('1','2')") '调用方法
End Sub
End Class

追问
这个方法我只能用于添加修改删除，请问，查询数据并且绑定到DGV怎么做？

回答
Public Function Search(ByVal cn1 As OleDb.OleDbConnection, ByVal cn2 As OleDb.OleDbConnection, ByVal str_cmd1 As String, ByVal str_cmd2 As String, ByVal DGV1 As DataGridView, ByVal DGV2 As DataGridView) As Boolean '查询 str_cmd1,str_cmd2---查询命令，DGV1,DGV2---DataGridView，用来显示数据的控件
Dim tb1 As New DataTable
Dim tb2 As New DataTable
Try
Dim ap1 As New OleDb.OleDbDataAdapter(str_cmd1, cn1)
ap1.Fill(tb1)
DGV1.DataSource = tb1
Dim ap2 As New OleDb.OleDbDataAdapter(str_cmd2, cn2)
ap2.Fill(tb2)
DGV2.DataSource = tb2
Return True
Catch ex As Exception
MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try

dr.read()

t2.text=dr(0)

---

阿坝县18524101710： 问下,vb.net怎么连上access数据库呢?？
银福喉疾： dim conn as new System.Data.Oledb.OledbConnection(＂provider='microsoft.ole.jet.4.0' data source='路径';uid=''pwd=''＂); conn.open(); provider='microsoft.ole.jet.4.0' 可能有错误 自己查查吧.忘记了

阿坝县18524101710： vb.net怎样连接access数据库? - ？
银福喉疾： 请楼主认真学习基础知识吧,不要以为这个几句话就能讲清楚,自己去找教程.提示 VB.NET 连接Access数据库要用到ADO.NET 参考下面几个命名空间 System.Data System.Data.OleDb

阿坝县18524101710： vb.net 怎么样访问access数据库?？
银福喉疾： VB.NET使用OLEDB连接数据库,即可进行操作了. 但是不推荐使用ACCESS数据库,这个已经淘汰了. VB.NET连接数据库,从性能上来说,官方推荐使用的是SQL SERVER 2005

阿坝县18524101710： VB.NET连接ACCESS？
银福喉疾： SqlDataAdapter sda = new SqlDataAdapter(“select * from xx表 where xx字段='真'”, conn) 'conn为连接对象 DataTable dt = new DataTable() sda.Fill(dt) 结果就取到了表中

阿坝县18524101710： VB.NET能衔接ACCESS吗 - ？
银福喉疾： vb.net当然可以连接ACCESS数据库,一是可以手动,二可以编写程序.看看些程序的 Dim constr As String = ＂Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\1\桌面\treeview.mdb;Persist Security Info=False＂ Dim...

阿坝县18524101710： vb.net怎样连接数据库(是access的)？
银福喉疾： 链接要用到控件有OleDbConnection,其语法为:OleDbConnection.ConnectionString=＂provider=microsoft.jet.oledb.4.0;data source=数据库.mdb＂OleDbConnection.open()就两句

阿坝县18524101710： 请教VB.NET通过调用模块建立与access数据库连接的方法 - ？
银福喉疾： oledb的使用网上的确很多.如果只是查询. 写入. 删除,我们常用的就是 OleDbConnection '用于写数据库的连接 OleDbCommand '用于数据的操作 接收SQL语句 并执行 OleDbDataReader '查询了,我们就用这个类来读取查询的对象1)....

阿坝县18524101710： VB.net怎么添加数据至ACCESS数据库中,并显示在DataGridview控件的第一行(注意:不是最后一行). - ？
银福喉疾： 给个思路.一、Entity Framework (EF) 引用了EF后,在EF 的datacontext将你的access数据库配置上.你的增删改查等都需要你在业务中去定义.datagridview控件是Winform里面的吧,你只要在数据库定义的时候每条数据都有一个递增的ID,然后你显示数据的时候顺序使用ID desc就行了.二、 ADO.net 做个Accesshelper类,使用connetion,command,reader等对象对Access数据库进行各类操作.

阿坝县18524101710： VB连接Access数据库具体步骤,越详细越好 - ？
银福喉疾： 有多种连接方式,可以用数据控件连接,也可以用组件连接.下面是用ADO组件来连接的例子(假定ACCESS数据库文件和程序是放在同一个文件夹的):123456789101112131415 PrivateSubForm_Click() '点击窗体运行 Dimconn ...

阿坝县18524101710： VB要想和Access数据库连接如何做?？
银福喉疾： 方法1, 建立一个模块 将工程的启动设置为 SUB MAIN 在模块里写下面代码 Public db As Database Public rs As Recordset Sub main() set db=db.opendatabase(＂数据库路径＂<建议用相对路径--就是把数据库文件和工程文件放在同一目录下--...