入门级问题：vb中如何刷新数据？

2003-01-10 12:55:19 280 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

BeyondLove2000 墨衍会员 · AI 创作全网分发关注 + 加入社区

VB:如何向richtextbox中插入flash影片这个问题是在看了http://blog.csdn.net/dtianx/archive/2004/11/17/184949.aspx这篇文章后产生的，当时的想法很简单，就是网上还找不到类似的VB代码，于是就想写成一个VB实现之类的东东，改写的过程很顺利。但改完之后就想到能不能插入flash影片呢，于是就有了这篇东西。从理论上说COM对象只要实现了IOLEOBJECT接口阅读详情

Adodc的RecordSource为什么不能动态设置？

...全文

VB连接数据库今天告诉大家VB连接数据库的方法，我知道的有两种：一种是在 adodc1的属性里设置数据库文件的路径,这种方法的优点是简单易操作,缺点是,当源文件换了地方后,要重新设置数据库的路径,否则连接不上数据库了。一种是用代码设置数据库的路径，这种方法的优点就是只要源文件和数据库在同一文件夹下，无论移动到哪里都能连接上。如果没有建立好数据库的话,先建立一个数据库,然后建立一个表比如我们建的表名为mes 阅读详情

BeyondLove2000

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

kjah 2003-01-13

打赏
举报

因为adodc要和其他控件绑定
推荐使用adodb

SeeMeStudio 2003-01-13

打赏
举报

updata

wuting168 2003-01-13

打赏
举报

利用updata方法来刷新

闲情漫步 2003-01-12

打赏
举报

adodc1.refresh

BeyondLove2000 2003-01-10

打赏
举报

新问题：
adodc为什么以启动就去连数据库？在哪里设才能不让它自动连接？不然无法实现动态改变连接参数，第一次失败就推出了……

jason_li 2003-01-10

打赏
举报

adodc1.refresh

sunshine781114 2003-01-10

打赏
举报

refresh

undate

suntt 2003-01-10

打赏
举报

用Adodc1.Recordset.CancelUpdate来刷新

zmcpu 2003-01-10

打赏
举报

示例

下面的示例代码以Northwinds数据库作为远程数据源，然后用ADO来访问它。首先在控制面板中打开“32位数据源”，单击“添加”按钮。在弹出的对话框中选择 "Microsoft Access Driver (*.mdb)" 作为数据源驱动程序。

然后按下图所示，在对话框中填写下面的内容

选择数据库Northwinds所在路径。单击完成，退出ODBC设备管理器。

启动一个新的VB工程，在窗体的Load事件中输入下面的代码：

Private Sub Form_Load()

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection

'Set Connection properties
cn.ConnectionString = "DSN=RDC Nwind;UID=;PWD=;"
cn.ConnectionTimeout = 30
cn.Open

If cn.State = adStateOpen Then _
MsgBox "Connection to NorthWind Successful!"

cn.Close

End Sub
按F5运行程序，看看，一个消息框弹出来告诉你连接成功了。请注意，这里我特别注明了是ADODB.Connection,而不是ADOR.Connection，这样做是为了将二者区分开（如果你引用了ADODB和ADOR的话，这样做很有必要）。连接字符串看上去同RDO的连接字符串差不多。事实上，二者确实差不多。
如果我们要访问一个SQL server数据库，你的Connection代码看上去应象下面所示：

'设置连接属性cn.Provider = "MSDASQL"
cn.ConnectionString = "driver={SQL Server};" & "server=prod1;uid=bg;pwd=;database=main"
cn.Open

"Provider"属性指向SQL Server的OLE DB Provider.
回到我们的示例程序，让我们创建一个Recordset对象来访问“Orders”表，并从该表的"ShipCountry"字段中产生头十个不重复的国家名。修改窗体Load事件中的代码，让它看上去象下面这样。

Private Sub Form_Load()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Dim sSQL As String
Dim sOut As String
Dim Count As Integer

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

' Set properties of the Connection.
cn.ConnectionString = "DSN=RDC Nwind;UID=;PWD=;"
cn.ConnectionTimeout = 30
cn.Open

If cn.State = adStateOpen Then _
MsgBox "Connection to NorthWind Successful!"

sSQL = "SELECT DISTINCT Orders.ShipCountry FROM Orders"
Set rs = cn.Execute(sSQL)

'Enumerate the recordset
sOut = ""
For Count = 1 To 10
sOut = sOut & rs("ShipCountry") & vbCrLf
rs.MoveNext
Next Count

MsgBox sOut, vbExclamation, "ADO Results"
cn.Close

End Sub
运行程序后，你会看到如下图所示的消息框。

不幸的是，目前这个Recrodset对象是只读的和forward cursor。如果你想要获取更多的功能，你需要创建一个独立的Recordset对象，该对象拥有自己的Connection属性，就象下面的代码所示：

Private Sub Form_Load()

Dim rs As ADODB.Recordset

Dim sSQL As String
Dim sOut As String
Dim Count As Integer

Set rs = New ADODB.Recordset

sSQL = "SELECT DISTINCT Orders.ShipCountry FROM Orders"

rs.Open sSQL, "DSN=RDC Nwind;UID=;PWD=;", adOpenDynamic

'Report Recordset Connection information
MsgBox rs.ActiveConnection, , "Connection Info"

'Enumerate the recordset
sOut = ""
For Count = 1 To 10
sOut = sOut & rs("ShipCountry") & vbCrLf
rs.MoveNext
Next Count

MsgBox sOut, vbExclamation, "ADO Results"

rs.Close

End Sub
上面代码返回的结果同前例一样，但是本代码中的Recordset是独立的。这一点是DAO和RDO做不到的。Recordset对象的Open方法打开一个代表从SQL查询返回的记录的游标。虽然你可以用Connection对象同远程数据源建立连接，但请记住，在这种情况下，Connection对象和Recordset对象是平行的关系。
总结
本文仅向你介绍了ADO强大的功能的冰山一角。微软承诺，在将来ADO将会取代DAO和RDO。所以现在你应该考虑如何将你的数据访问代码投向ADO的怀抱。这种转变不会很痛苦，因为ADO的语法同现有的语法差不多。也许微软或第三方会在将来开发出转换向导来简化这一转换过程。从现在起，你就应开发纯ADO代码的程序。你也可以继续使用DAO或RDO代码来开发你的程序，但落伍的感觉总是不好的。

入门级问题：vb中如何刷新数据？

相关推荐