GetString 方法范例 (VB)

2009-1-8 10:21:07 3998

0 GetString 方法范例 (VB) 本范例演示 GetString 方法。假设用户正在调试数据访问问题，并需要一种快速便捷的方式来打印小型 Recordset 的当前内容。 Public Sub Main() GetStringX End Sub Public Sub GetStringX() Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim varOutput As Variant Dim strQuery As String Dim strPrompt As String Set cnn = New ADODB.Connection Set rst = New ADODB.Recordset strPrompt = "Enter a state (CA, IN, KS, MD, MI, OR, TN, UT): " strState = Trim(InputBox(strPrompt, "GetString Example")) strQuery = "SELECT au_fname, au_lname, address, city FROM Authors " & _ "WHERE state = '" & strState & "'" cnn.Open "DSN=Pubs;Provider=MSDASQL; uid=sa;pwd=;" rst.Open strQuery, cnn, adOpenStatic, adLockReadOnly, adCmdText If rst.RecordCount > 0 Then 'Use all defaults: get all rows, TAB column delimiter, CARRIAGE RETURN 'row delimiter, empty-string null delimiter varOutput = rst.GetString(adClipString) Debug.Print "State = '" & strState & "'" Debug.Print "Name Address City" & vbCr Debug.Print varOutput Else Debug.Print "No rows found for state = '" & strState & "'" & vbCr End If rst.Close cnn.Close End Sub 0
2009-1-8 10:21:07　　评论淘帖0 相关推荐 • Save 和 Open 方法范例 (VB) 3451 • Resync 方法范例 (VB) 3035 • Refresh 方法范例 (VB) 3336 • Optimize 属性范例 (VB) 2856 • 基于VB6.0的机车静压试验台程序 3 • vb语言编程学习教程 17 • 单片机VB6对汉字的处理 781 • vb语言程序简单设计实例（5款vb语言设计程序分享） 102718 • OpenSchema 方法范例 (VB) 2746 • NextRecordset 方法范例 (VB) 2841