电子发烧友论坛|
<p><font face="Verdana">GetString 方法范例 (VB)</font></p><font face="Verdana">
<p><br/>本范例演示 GetString 方法。</p> <p>假设用户正在调试数据访问问题，并需要一种快速便捷的方式来打印小型 Recordset 的当前内容。</p> <p><br/>Public Sub Main()<br/> GetStringX<br/>End Sub</p> <p>Public Sub GetStringX()</p> <p>Dim cnn As ADODB.Connection<br/>Dim rst As ADODB.Recordset<br/>Dim varOutput As Variant<br/>Dim strQuery As String<br/>Dim strPrompt As String</p> <p>Set cnn = New ADODB.Connection<br/>Set rst = New ADODB.Recordset<br/>strPrompt = "Enter a state (CA, IN, KS, MD, MI, OR, TN, UT): "<br/>strState = Trim(InputBox(strPrompt, "GetString Example"))<br/>strQuery = "SELECT au_fname, au_lname, address, city FROM Authors " & _<br/> "WHERE state = '" & strState & "'"</p> <p>cnn.Open "DSN=Pubs;Provider=MSDASQL; uid=sa;pwd=;"<br/>rst.Open strQuery, cnn, adOpenStatic, adLockReadOnly, adCmdText</p> <p>IF rst.RecordCount > 0 Then<br/>'Use all defaults: get all rows, TAB column delimiter, CARRIAGE RETURN<br/>'row delimiter, empty-string null delimiter<br/> varOutput = rst.GetString(adClipString)<br/> debug.Print "State = '" & strState & "'"<br/> Debug.Print "Name Address City" & vbCr<br/> Debug.Print varOutput<br/>Else<br/> Debug.Print "No rows found for state = '" & strState & "'" & vbCr<br/>End If</p> <p>rst.Close<br/>cnn.Close<br/>End Sub</p> <p></font> </p> 
0
|
|
相关推荐
<
>
|
|
只有小组成员才能发言，加入小组>>
[下载]java私塾java学习视频大汇总（从初级到项目视频都有）
15043浏览 163评论
2349
评论
淘帖
2238
0
