├ XiaoHui.Net 笑汇程序员论坛首页
└→ Visual Basic 讨论区

[数据库] 关于查询、移动记录

上一主题

下一主题

hl666666
小水手
Rank: 1

UID 1685
精华 0
积分 23
帖子 23
阅读权限 10
注册 2006-1-10
状态离线

关于查询、移动记录

有结构相同的“未登录”和“已登录”两张表，各有“序号”、“姓名”、“出生年月”、“家庭住址”、“联系电话”5个字段，现要实现如下功能：接受客户端发来的“序号”信息（假设该序号值为“200604703034”），在“未登录”表中通过查询找到该序号，并将找到的该记录移动到“已登录”表中。请问如何用语句在vb6.0中实现？

2006-4-24 09:53

YunHai
版主
Rank: 7

UID 5004
精华 0
积分 5934
帖子 5934
阅读权限 100
注册 2002-1-12
来自黑龙江
状态离线

实现？。。
建议这个结构是一张表加一个标志字段表示登录与未登陆为什么要用两张表
实现很简单ado+sql语句

2006-4-25 22:58

damofy
小水手
Rank: 1

UID 8184
精华 0
积分 4
帖子 4
阅读权限 10
注册 2003-3-9
状态离线

插入查询

可用两条Sql语句实现
Insert Into 已登录 select * from 未登录 where 序号='200604703034'
delete from 未登录 where 序号='200604703034'
实现以上语句，需要两个表的字段名数目、名称、顺序均一致才行。
另外，最好使用事务处理，防止意外导致两个表不一致。

2006-5-9 14:10

hl666666
小水手
Rank: 1

UID 1685
精华 0
积分 23
帖子 23
阅读权限 10
注册 2006-1-10
状态离线

谢谢YunHai和damofy ！

谢谢YunHai和damofy。不过YunHai能否将具体的语句告知，因为本人尚未接触过vb+access的语句，希望能从此入手，慢慢学。

2006-5-10 11:07

hl666666
小水手
Rank: 1

UID 1685
精华 0
积分 23
帖子 23
阅读权限 10
注册 2006-1-10
状态离线

终于解决了一个问题！

查了一些资料，终于知道原来在vb中按如下格式写入语句就不出错了。
Dim dbdlinf As Database
Set dbdlinf = OpenDatabase("登录信息.mdb")
dbdlinf.Execute ("Insert Into 已登录 select * from 未登录 where 序号='200604703034'")
dbdlinf.Execute ("delete from 未登录 where 序号='200604703034'")

再请教damofy，如果想把找到的记录的每个字段信息（“序号”、“姓名”、“出生年月”、“家庭住址”、“联系电话”）合并成一个字符串，该怎样实现？或者说sql语句怎样写？请指点，谢谢！

[ 本帖最后由 hl666666 于 2006-5-11 22:01 编辑 ]

2006-5-11 21:59

hl666666
小水手
Rank: 1

UID 1685
精华 0
积分 23
帖子 23
阅读权限 10
注册 2006-1-10
状态离线

请问jesdily，您能否帮我解决一下此问题？

jesdily，请帮我解决此问题，好吗？因为damofy现在离线。

2006-5-12 12:30

hl666666
小水手
Rank: 1

UID 1685
精华 0
积分 23
帖子 23
阅读权限 10
注册 2006-1-10
状态离线

请看见此贴的大虾帮帮忙

请看见此贴的大虾帮帮忙,帮助解决此问题,行吗?

2006-5-12 19:37

jesdily
版主
Rank: 7

UID 2759
精华 0
积分 38
帖子 38
阅读权限 100
注册 2006-4-14
状态离线

这么做试试，建一个数据集
DataAdeper DA=new DataAdeper ("select * from 未登录 where 序号='200604703034'",dbdlinf )
DataSet DS=new DataSet()
DA.Fill(DS,"Tb")
然后对DS表的相应字段提取出来处理。
例如：
str=DS.Tabel["Tb"].Rows[0].IteamArry.getvalue(0).Tostring()+DS.Tabel["Tb"].Rows[0].IteamArry.getvalue(1).Tostring()+DS.Tabel["Tb"].Rows[0].IteamArry.getvalue(2).Tostring()

2006-5-19 11:36

jesdily
版主
Rank: 7

UID 2759
精华 0
积分 38
帖子 38
阅读权限 100
注册 2006-4-14
状态离线

以上是我在网吧凭印象写的，最近用C#,可能语法上有C#的影子，但是至少是类VB语法。自己相应改动一下就好了,有些单词可能也拼错了，自己改一下。
比如：可能定义要用
dim DA as DataAdepter
DA=new DataAdepter ("select * from 未登录 where 序号='200604703034'",dbdlinf )
dim DS as DataSet
DS=new DataSet()

2006-5-19 11:42

hl666666
小水手
Rank: 1

UID 1685
精华 0
积分 23
帖子 23
阅读权限 10
注册 2006-1-10
状态离线

谢谢，再请教jesdily一个问题

谢谢jesdily，再请教一个问题，代码如下：
Private Sub Command1_Click()
Dim strData As String
Dim strConnect As String
Dim strProvider As String
Dim strDataSource As String
Dim strDataBaseName As String
strProvider = "Provider= Microsoft.Jet.OLEDB.4.0;"
'得到应用程序所在的路径
strDataSource = App.Path
strDataBaseName = "\考生信息97.mdb;"
'得到数据库的完整路径
strData = "206062270102"
strDataSource = "Data Source=" & strDataSource & strDataBaseName
strConnect = strProvider & strDataSource
Set connConnection = New ADODB.Connection
connConnection.CursorLocation = adUseClient
connConnection.Open strConnect '打开数据库
Set rsRecordSet = New ADODB.Recordset
rsRecordSet.CursorType = adOpenStatic '设置记录集的属性
rsRecordSet.CursorLocation = adUseClient
rsRecordSet.LockType = adLockPessimistic
rsRecordSet.ActiveConnection = connConnection
If rsRecordSet.BOF = True Or rsRecordSet.EOF = True Then
Exit Sub
End If

rsRecordSet.Open ("SELECT * FROM 考生信息 where 考试号码=" & "'" & strData & "'") '"
rsRecordSet.Fields("类别").Value = "3"
End Sub
最后一句话rsRecordSet.Fields("类别").Value = "3"，怎么也执行不了，请问错在哪儿？
数据库“考生信息.mdb”中的“考生信息”表中含有“考试号码”（字符型）、“类别”（数值型）字段，本段代码要实现将考试号码为206062270102的考生的“类别”字段的值改为“3”。

[ 本帖最后由 hl666666 于 2006-5-25 08:02 编辑 ]

2006-5-24 12:27

#10

afeng12
传说中的水手
Rank: 5

UID 6359
精华 0
积分 136
帖子 136
阅读权限 1
注册 2002-8-16
状态离线

加上一句数据提交试试，UPdate

2006-6-1 22:02

#11

hl666666
小水手
Rank: 1

UID 1685
精华 0
积分 23
帖子 23
阅读权限 10
注册 2006-1-10
状态离线

谢谢afeng12！

感谢afeng12！根据afeng12的提示，将最后两句
rsRecordSet.Open ("SELECT * FROM 考生信息 where 考试号码=" & "'" & strData & "'") '"
rsRecordSet.Fields("类别").Value = "3"
改为
connConnection.Execute ("UPDATE 考生信息 SET 类别 = 3 WHERE 考试号码=" & "'" & strData & "'")
就成功了！
再次感谢afeng12！！！

[ 本帖最后由 hl666666 于 2006-6-8 22:02 编辑 ]

2006-6-8 22:00

#12

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

所有时间为 GMT+8, 现在时间是 2008-12-2 07:52 Powered by Discuz! 4.1.0	清除 Cookies - XiaoHui.Net 笑汇程序员论坛 - Archiver