| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 435 人关注过本帖
标题:[求助]请教代码中的一句涵义及作用。
取消只看楼主 加入收藏
hai99
Rank: 1
等 级:新手上路
帖 子:146
专家分:0
注 册:2007-7-2
结帖率:50%
收藏
 问题点数:0 回复次数:2 
[求助]请教代码中的一句涵义及作用。
Private Sub Form_Load()
DTPicker1.Value = Now()
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from 彩票记录 order by 彩票期数 Desc", cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
Call Css1
End Sub

请教一下,上面红色部分这一句是什么意思?*号何解?两个双引号之间是否为字符串使用?谢谢!初学VB,MSDN里没找到相关说明,谢谢各位指教!
搜索更多相关主题的帖子: 涵义 代码 
2007-07-26 09:32
hai99
Rank: 1
等 级:新手上路
帖 子:146
专家分:0
注 册:2007-7-2
收藏
得分:0 

Source 属性范例
该范例通过打开三个基于不同数据源的 Recordset 对象演示 Source 属性。

Public Sub SourceX()

Dim cnn1 As ADODB.Connection
Dim rstTitles As ADODB.Recordset
Dim rstPublishers As ADODB.Recordset
Dim rstPublishersDirect As ADODB.Recordset

Dim rstTitlesPublishers As ADODB.Recordset
Dim cmdSQL As ADODB.Command
Dim strCnn As String
Dim strSQL As String

' 打开连接。
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cnn1.Open strCnn

' 打开基于命令对象的记录集。
Set cmdSQL = New ADODB.Command
Set cmdSQL.ActiveConnection = cnn1
cmdSQL.CommandText = "Select title, type, pubdate " & _
"FROM titles ORDER BY title"
Set rstTitles = cmdSQL.Execute()

' 打开基于表格的记录集。
Set rstPublishers = New ADODB.Recordset
rstPublishers.Open "publishers", strCnn, , , adCmdTable

' 打开基于表格的记录集。
Set rstPublishersDirect = New ADODB.Recordset
rstPublishersDirect.Open "publishers", strCnn, , , adCmdTableDirect

' 打开基于 SQL 字符串的记录集。
Set rstTitlesPublishers = New ADODB.Recordset
strSQL = "SELECT title_ID AS TitleID, title AS Title, " & _
"publishers.pub_id AS PubID, pub_name AS PubName " & _
"FROM publishers INNER JOIN titles " & _
"ON publishers.pub_id = titles.pub_id " & _
"ORDER BY Title"
rstTitlesPublishers.Open strSQL, strCnn, , , adCmdText

' 使用 Source 属性显示每个记录集的资源。
MsgBox "rstTitles source: " & vbCr & _
rstTitles.Source & vbCr & vbCr & _
"rstPublishers source: " & vbCr & _
rstPublishers.Source & vbCr & vbCr & _
"rstPublishersDirect source: " & vbCr & _
rstPublishersDirect.Source & vbCr & vbCr & _
"rstTitlesPublishers source: " & vbCr & _
rstTitlesPublishers.Source

rstTitles.Close
rstPublishers.Close
rstTitlesPublishers.Close
cnn1.Close

End Sub
在MSDN里找到了这个,可是还是不懂 * 号是何解

2007-07-26 11:05
hai99
Rank: 1
等 级:新手上路
帖 子:146
专家分:0
注 册:2007-7-2
收藏
得分:0 

谢谢!原来是数据库的统配符。

如果软件中不用数据库,那么这段代码是不是就可以取消了?由于数据是随机计算的,数据和表格控件只用文本文件存取,这样的速度和使用数据库控件比起来哪个快呢?请指教,谢谢!

2007-07-26 12:19
快速回复:[求助]请教代码中的一句涵义及作用。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015589 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved