ACCESS 操作数据库代码

最新推荐文章于 2019-04-28 21:21:54 发布

yilin54

最新推荐文章于 2019-04-28 21:21:54 发布

阅读量3k

点赞数

CC 4.0 BY-SA版权

分类专栏： access 文章标签： access 数据库 function insert string table

本文链接：https://blog.youkuaiyun.com/yilin54/article/details/7081570

access 专栏收录该内容

14 篇文章

订阅专栏

本文介绍了使用ADO.NET连接数据库并执行SQL语句的方法，包括直接执行SQL和封装查询结果到记录集，以及如何将查询结果绑定到窗体中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

ConnectionString = "Provider=sqloledb;Data Source=ZHANGHA;Initial Catalog=mrpdata;User Id=sa;Password=;"
Conn.Open ConnectionString

conn.execute "insert into table1 values(1,2,3)";

这是执行SQL语句的一种方式之一。

下面是第二种方式

Public Function GetRs(ByVal strquery As String) As ADODB.Recordset

Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
On Error GoTo GetRs_Err


Set conn = CurrentProject.Connection
'执行strquery，并返回结果集
rs.Open strquery, conn, adOpenKeyset, adLockOptimistic
Set GetRs = rs

GetRS_Exit:
 Set rs = Nothing
 Set conn = Nothing
 Exit Function
 
GetRs_Err:
MsgBox (Err.Description)
Resume GetRS_Exit

Set rs = Nothing
Set conn = Nothing
End Function

将查询结果绑定到窗体上方式

form.recordsource=“select..."

Me.Parent.FHSR.Form.RecordSource="select..."  子窗体访问父窗体