1.在Access中新建一个查询,在菜单栏点“创建”,点“查询设计”,不要选择任何表,“点关闭”,再点菜单中的“传递”,在窗口中输入call search(@id),然后保存查询命名为query1。
2.在mysql中建一个存储过程,取名为search,参数名为_id
CREATE DEFINER=`root`@`127.0.0.1` PROCEDURE `search`(in _id varchar(10))
BEGIN
SELECT * FROM test where id = _id
END
3.在Access中新建一个窗体,加入一个按钮,按钮点击的VBA代码为
Private Sub Command0_Click()
Dim myquery As String
myquery = CurrentDb.QueryDefs("query1").SQL
CurrentDb.QueryDefs("query1").SQL = Replace(myquery, "@id", """010101""")
DoCmd.OpenQuery "query1"
CurrentDb.QueryDefs("query1").SQL = myquery
End Sub
--------------------------------------------------------------------------------------------------------------
传递查询可以把sql字符串传入mysql,然后mysql执行这些字符串表示的SQL语句
当上面的VBA代码写成
Private Sub Command0_Click()
CurrentDb.QueryDefs("query1").SQL = “select * from test”
DoCmd.OpenQuery "query1"
End Sub
其中select * from test可以替换为任意的mysql的sql语句,前面写的那么啰嗦是为了造成只替换参数,不更改call语句的效果