Refresh 方法范例 (VB)

2009-1-8 10:24:21 3335

0 Refresh 方法范例 (VB) 本范例演示使用 Refresh 方法来刷新存储过程 Command 对象的 Parameters 集合。 Public Sub RefreshX() Dim cnn1 As ADODB.Connection Dim cmdByRoyalty As ADODB.Command Dim rstByRoyalty As ADODB.Recordset Dim rstAuthors As ADODB.Recordset Dim intRoyalty As Integer Dim strAuthorID As String Dim strCnn As String ' Open connection. Set cnn1 = New ADODB.Connection strCnn = "Provider=sqloledb;" & _ "Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; " cnn1.Open strCnn ' Open a command object for a stored procedure ' with one parameter. Set cmdByRoyalty = New ADODB.Command Set cmdByRoyalty.ActiveConnection = cnn1 cmdByRoyalty.CommandText = "byroyalty" cmdByRoyalty.CommandType = adCmdStoredProc cmdByRoyalty.Parameters.Refresh ' Get paramater value and execute the command, ' storing the results in a recordset. intRoyalty = Trim(InputBox("Enter royalty:")) cmdByRoyalty.Parameters(1) = intRoyalty Set rstByRoyalty = cmdByRoyalty.Execute() ' Open the Authors table to get author names for display. Set rstAuthors = New ADODB.Recordset rstAuthors.Open "Authors", cnn1, , , adCmdTable ' Print current data in the recordset, adding ' author names from Authors table. Debug.Print "Authors with " & intRoyalty & " percent royalty" Do While Not rstByRoyalty.EOF strAuthorID = rstByRoyalty!au_id Debug.Print " " & rstByRoyalty!au_id & ", "; rstAuthors.Filter = "au_id = '" & strAuthorID & "'" Debug.Print rstAuthors!au_fname & " " & _ rstAuthors!au_lname rstByRoyalty.MoveNext Loop rstByRoyalty.Close rstAuthors.Close cnn1.Close End Sub 0
2009-1-8 10:24:21　　评论淘帖0 相关推荐 • Save 和 Open 方法范例 (VB) 3449 • Resync 方法范例 (VB) 3034 • Optimize 属性范例 (VB) 2853 • OpenSchema 方法范例 (VB) 2746 • 基于VB6.0的机车静压试验台程序 3 • vb语言编程学习教程 17 • 单片机VB6对汉字的处理 777 • vb语言程序简单设计实例（5款vb语言设计程序分享） 102615 • NextRecordset 方法范例 (VB) 2841 • InternetTimeout 属性范例 (VB) 2454