发信人: leearnold()
整理人: cobe(1999-09-15 23:10:55), 站内信件
|
【 在 double_l (CPL) 的大作中提到: 】
: VB中队数据库的查询有几种,利用SQL如何使结果放入DBGRID控件中进行浏览,
: 和SEEK的用法.
'Datafind为DATA控件
'DATA和DBGRID绑定
Dim mysql As String
mysql="Select ... From ..... Where......" 'SQL查询语句
Datafind.RecordSource = mysql
Datafind.Refresh
'DBGRID会自动更新
SEEK
Set dbSource = OpenDatabase("dataname-2")
Set dbTarget = OpenDatabase("dataname")
Set rsSource = dbSource.OpenRecordset("客户数据")
Set rsTarget = dbTarget.OpenRecordset("客户数据", dbOpenTable)
'在数据库中要定义一个[公司名称]+[联系人]的联合索引,叫myIndex
rsTarget.Index = "myIndex"
Do Until rsSource.EOF
strCompany = rsSource.Fields![公司名称]
strName = rsSource.Fields![联系人]
'SEEK的用法
rsTarget.Seek "=", strCompany, strName
If rsTarget.NoMatch Then
'如果没有相同的记录则添加记录
rsTarget.addnew
'set source value in fields of target
rsTarget.Update
End If
'如果有相同的记录则到下一条
rsSource.MoveNext
Loop
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 203.93.157.2]
|
|