C#编程,实现将一个access数据库中的a表b表c表中的数据和结构复制到另一个access数据库中 5
RT,A数据库中有a,b,c三个表,B数据库里有a,b,c,d,e,f等多个表,我现在需要编程实现把A中的表内数据都复制到B中对应名称的表里,何解?用C#。。。相关代码是...
RT,
A数据库中有a,b,c三个表,B数据库里有a,b,c,d,e,f等多个表,我现在需要编程实现把A中的表内数据都复制到B中对应名称的表里,何解?用C#。。。
相关代码是什么?达人帮忙,有用一定给分! 展开
A数据库中有a,b,c三个表,B数据库里有a,b,c,d,e,f等多个表,我现在需要编程实现把A中的表内数据都复制到B中对应名称的表里,何解?用C#。。。
相关代码是什么?达人帮忙,有用一定给分! 展开
展开全部
使用方法:1、调用SetConnStr函数,产生连接字符串。2、打开数据库连接,3。执行ExecuteSQL函数返回结果集。
'======================== 必须引用ADO2.5库方可运行 ==========================
'VB数据库编程的模块,演示如何用ADO连接Access数据库,以及 SQL 查询语言的运用。
'引用ADO酷,可以将ADO孔件拖到窗体上再删除就可以了
'=============================================================================
Public Function SetConnStr(ByVal DbName As String) As String
'生成数据库连接字符串,参数为数据库名(全路径)
SetConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbName & ";Persist Security Info=False"
End Function
Public Function ExecuteSQL(ByVal Sql As String, ByVal ConnString As String) As ADODB.Recordset
'On Error Resume Next'当数据库插入时,全部数据均为空时,将发生错误,所以要加这句话
'执行给定的sql语句,返回类型为记录集
Dim Mycon As ADODB.Connection
Dim Rst As ADODB.Recordset
Set Mycon = New ADODB.Connection
Mycon.ConnectionString = ConnString
Mycon.Open
Dim Stokens() As String
' On Error GoTo ExectueSql_Error
Stokens = Split(Sql)
If InStr("INSERT,DELETE,UPDATE", UCase(Stokens(0))) Then
Mycon.Execute Sql
Else
Set Rst = New ADODB.Recordset
Rst.Open Trim(Sql), Mycon, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = Rst
End If
ExectueSql_Exit:
Set Rst = Nothing
Set Mycon = Nothing
Exit Function
ExectueSql_Error:
Resume ExectueSql_Exit
End Function
'======================== 必须引用ADO2.5库方可运行 ==========================
'VB数据库编程的模块,演示如何用ADO连接Access数据库,以及 SQL 查询语言的运用。
'引用ADO酷,可以将ADO孔件拖到窗体上再删除就可以了
'=============================================================================
Public Function SetConnStr(ByVal DbName As String) As String
'生成数据库连接字符串,参数为数据库名(全路径)
SetConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbName & ";Persist Security Info=False"
End Function
Public Function ExecuteSQL(ByVal Sql As String, ByVal ConnString As String) As ADODB.Recordset
'On Error Resume Next'当数据库插入时,全部数据均为空时,将发生错误,所以要加这句话
'执行给定的sql语句,返回类型为记录集
Dim Mycon As ADODB.Connection
Dim Rst As ADODB.Recordset
Set Mycon = New ADODB.Connection
Mycon.ConnectionString = ConnString
Mycon.Open
Dim Stokens() As String
' On Error GoTo ExectueSql_Error
Stokens = Split(Sql)
If InStr("INSERT,DELETE,UPDATE", UCase(Stokens(0))) Then
Mycon.Execute Sql
Else
Set Rst = New ADODB.Recordset
Rst.Open Trim(Sql), Mycon, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = Rst
End If
ExectueSql_Exit:
Set Rst = Nothing
Set Mycon = Nothing
Exit Function
ExectueSql_Error:
Resume ExectueSql_Exit
End Function
追问
这是C#?能不能写得清楚点。。。完全看不懂。。我是初学者
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询