Private Sub ExampleButton_Click() Dim sqlConn As New ADODB.Connection Dim sqlCmd As New ADODB.Command Dim myParam As ADODB.Parameter Dim sqlRs As ADODB.Recordset Dim sqlCmdStr As String
sqlConn.Open "driver={SQL Server};server=127.0.0.1;database=master;uid=sa;pwd=密码我是不会随便告诉别人的啦:)" sqlCmd.ActiveConnection = sqlConn sqlCmd.CommandText = "sp_executesql" sqlCmd.CommandType = adCmdStoredProc sqlCmdStr = "SELECT * FROM sysmessages WHERE error>=100 AND error<=120" Set myParam = sqlCmd.CreateParameter("@statement", adBSTR, adParamInput, Len(sqlCmdStr)) myParam.Value = sqlCmdStr sqlCmd.Parameters.Append myParam Set sqlRs = sqlCmd.Execute
sqlRs.MoveFirst While Not sqlRs.EOF MsgBox sqlRs.Fields(0).Value & ",,," & sqlRs.Fields(3).Value sqlRs.MoveNext Wend End Sub