ACCESS 操作数据库代码

 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..."  子窗体访问父窗体