Excel+ADO(DAO)+SQL+Access专辑（编辑中...）

风雨之后 · 发表于 2004-12-15 10:49

奇妙，高！

liuyuanbei · 发表于 2004-12-16 22:11

真是太好了，请楼主再接再力！

qikq · 发表于 2004-12-17 11:24

以下的程序是以姓名来查询各个项目，我想用Textbox2中的年龄来查询其它各项，如何更改。先谢了! Private Sub CommandButton3_Click() '查询 TextBox2.Value = "" TextBox4.Value = "" TextBox5.Value = "" TextBox6.Value = "" On Error GoTo 100 If TextBox1.Text = "" Then MsgBox "请输入姓名", 1 + 16, "系统提示" TextBox1.SetFocus Else Dim DB1 As Database '数据库变量 Dim RS1 As Recordset '纪录集变量 Set DB1 = OpenDatabase(ThisWorkbook.Path & "\" & "学生档案.MDB") Set RS1 = DB1.OpenRecordset(Name:="档案", Type:=dbOpenDynaset) RS1.FindFirst "姓名='" & TextBox1.Value & "'" If RS1.NoMatch = True Then '假如不匹配=true MsgBox "对不起，没有该记录" RS1.Close Exit Sub Else TextBox2.Value = RS1.Fields("年龄").Value TextBox4.Value = RS1.Fields("性别").Value TextBox5.Value = RS1.Fields("籍贯").Value TextBox6.Value = RS1.Fields("联系电话").Value End If RS1.Close Set RS1 = Nothing Set DB1 = Nothing End If Exit Sub 100: MsgBox "找不到符合条件的记录", 1 + 16, "系统提示" End Sub

4nlmVjNY.rar (249.62 KB, 下载次数: 130)

qikq · 发表于 2004-12-17 16:14

谢谢!

96楼的问题已解决。是用1楼中的 “2：实现查询功能（ADO+SQL）”改一改即可用。

lpluobin · 发表于 2004-12-18 13:41

太精彩了，请多发一些，谢谢楼主

情非得已 · 发表于 2004-12-20 10:11

请在Sql 语句中能不将已有的记录集作为查询的源？比如：

Recordset1.Open ......

Recordset2.Open "Select * from Recordset1"，......

这个怎么实现？不用子查询。

cofe2000 · 发表于 2004-12-20 16:13

试试做个钳套的SQL，类似我的这个求不重复的记录共有多少，也是高手教的

strSql = "SELECT count(工程名称) as 工程计数 FROM (SELECT distinct 总表.工程名称 FROM 总表)"

我刚开始学SQL，希望能帮到你

情非得已 · 发表于 2004-12-21 09:34

谢啦。

ZTST0110 · 发表于 2004-12-22 00:22

强。学习中...

soft007 · 发表于 2004-12-24 11:59

不用苦苦研究了，有捷径不走?

网上不是有个excel服务器吗，早就解决了用excel编程的问题.......

www.qinzhe.com

		自动登录	找回密码
密码			免费注册

Excel+ADO(DAO)+SQL+Access专辑（编辑中...）

[求助]想用年龄来查询