vb.net同时对两个ACCESS数据库进行增删改查。
发布网友
发布时间：2022-05-03 22:38
我来回答
共2个回答
热心网友
时间：2022-05-04 00:07
见下面的代码，自己换成真实的数据库及表即可
Imports System.Data
Imports System.IO
Imports System.Data.OleDb
Mole Mole1
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 Mole
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
热心网友
时间：2022-05-04 01:25
会修改一个库的话, 修改两个库修改十个库都是一样的, 这要啥思路
vb.net同时对两个ACCESS数据库进行增删改查。
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 Stri...
VB.net怎么添加数据至ACCESS数据库中,并显示在DataGridview控件的...
一、Entity Framework （EF）引用了EF后，在EF 的datacontext将你的access数据库配置上。你的增删改查等都需要你在业务中去定义。datagridview控件是Winform里面的吧，你只要在数据库定义的时候每条数据都有一个递增的ID，然后你显示数据的时候顺序使用ID desc就行了。二、 ADO.net 做个Accesshelper类，...
vb编写学生基本信息实现access数据库的增删改查
1）首先需要用Office软件中的Access软件建立一个学生基本信息数据库。表中新建几个表，可以是学生名册表，学生各专业课程分数登录表等等。2）VB新建数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。3）然后在FORM1窗体中添加ADO数据控件，右键-ADODC1控件属性页-使用连接字符串...
VB里面语句,怎么实现对SQL数据库里面数据的增删改查
private sub command_click()Dim mycon As ADODB.Connection '定义连接数据库对象 '如果你的数据库是access用下面的方式打开数据库 'mycon.ConnectionString = "provider= microsoft.jet.oledb.4.0;data source=" & App.Path & "/ 这里写数据库名.mdb"'''如果你的数据库是SQL的用下面的方式...
vb.net数据库操作
VB.net 操作Access数据库的一些常用方法,代码如下Imports SystemImports System.Data.SqlClientImports System.ConfigurationImports System.Collections.GenericImports System.TextImports System.DataImports System.Configuration.ConfigurationSettingsImports System.Data.OleDbPublic Class DBPrivate Shared com As OleDb.OleDbComma...
asp.net中web窗体对数据库增查删改,直接的操作
你在设计界面点那个箭头给gridview 配置数据源，配置时记得点【高级】里勾选上生成增删改查。然后配置gridview，勾选启用编辑 之类的。这是不用写代码的最原始做法。如果要自己写，那就是在前台给gridview添加几个相关事件。后台再写代码就可以
用VB6.0的Adodc控件连接Access 如何实现“增删改查”功能?求代码_百度...
Adodc1.Refresh Adodc1.Recordset.AddNew 增 Adodc1.Recordset.Update Adodc1.Recordset.Delete删 Adodc1.Recordset.Fields(0).Value = 修改后的值 改 Adodc1.Recordset.Update Adodc1.RecordSource =查询代码 查
请教VB.NET通过调用模块建立与access数据库连接的方法
1).OleDbConnection dim conn as new OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;Data Source =数据库的路径")'连接字符串一般就这样 查询前在打开 conn.open 2).OleDbCommand dim cmd as new OleDbCommand ("SQL语句",conn)'SQL语句决定了你是查询写入还是更新删除 '''如果是查询,你...
vb.net中oRs.Open(StrSql, Conn, 1, 1)是什么意思
oRs.Open(StrSql, Conn, 1, 1)strsql：SQL语句，增删改查.Conn：连接数据库的语句，包括服务器/数据库名称/用户名/密码和其他参数 例如：Dim conn as SqlConnection = new SqlConnection("server=;database=MySchool;uid=sa;pwd=123")//创建新连接其中SqlConnection是连接对象，server为服务器名为...
nodejs 连接mysql数据库进行增删改查操作,是进行一次操作就要 connnect...
原则上就是这样的。因为网络数据库是要注重并发性的，如果你长时间占用一个连接，那么你这个连接所涉及的记录就会被长时间锁定，其他所有用户都会无法访问，如果有多个用户同时操作数据库，那网站基本上就瘫痪了。所以原则上都要求数据库的查询要做到随用随关闭。
