|
参数查询代码如下: PARAMETERS strA Text; INSERT INTO 表1 ( hh ) values ([stra])
VBA 或者 VB 调用参数查询如下:
Public Function AppendX() Dim cmdByRoyalty As ADODB.Command Dim prmByRoyalty As ADODB.Parameter Dim rstByRoyalty As ADODB.Recordset Dim intRoyalty As String Set cmdByRoyalty = New ADODB.Command cmdByRoyalty.CommandText = "查询1" cmdByRoyalty.CommandType = adCmdStoredProc intRoyalty = Trim(InputBox("输入参数:")) Set prmByRoyalty = cmdByRoyalty.CreateParameter("strA", adChar, adParamInput, 255) cmdByRoyalty.Parameters.Append prmByRoyalty prmByRoyalty.Value = intRoyalty Set cmdByRoyalty.ActiveConnection = CurrentProject.Connection Set rstByRoyalty = cmdByRoyalty.Execute End Function
|