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

yyxxdd · 发表于 2005-10-15 20:38

谢谢版主！

peng_zq · 发表于 2005-10-16 01:34

多谢版主

binbbcn · 发表于 2005-11-13 22:13

好。非常感谢

dongwenquan · 发表于 2005-11-15 11:11

好好！感谢版主的奉献精神！我先收下，慢慢消化！

yanjun_lyg · 发表于 2005-11-15 17:37

我正想学习此知识,真乃及时雨也

icetowater · 发表于 2005-11-15 19:15

等得花儿也谢了......

谢谢楼主.....

烟雨厦江南 · 发表于 2005-11-20 11:53

以下是引用兰色幻想在2004-11-15 10:17:00的发言：
实现查询功能（DAO）

On Error GoTo 100 If TextBox1.Text = "" Then MsgBox "请输入姓名", 1 + 16, "系统提示" TextBox1.SetFocus Else Dim RS1 As Recordset Dim DB1 As Database Set DB1 = OpenDatabase(ThisWorkbook.Path & "\" & "学生档案.MDB") Set RS1 = DB1.OpenRecordset(Name:="档案", Type:=dbOpenDynaset) RS1.FindFirst "姓名='" & TextBox1.Value & "'" If RS1.NoMatch = True Then MsgBox "对不起，没有该记录" RS1.Close Exit Sub

RS1.FindFirst "姓名='" & TextBox1.Value & "'" 如果我想同时查询满足两个字段条件时,这句该如何写，请指点。

谢谢了，先。

huyongapple · 发表于 2005-11-20 21:59

正在满世界找SQL及ADO的资料，却想不到眼前就有，正是踏破铁鞋无觅处，原来因为大马虎。感谢版主

chat163 · 发表于 2005-11-21 13:39

不多说了,学习先

lsss1111 · 发表于 2005-12-15 13:05

正在学习,谢谢

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