| 90 |
| □ 主题： 数据库中，在dbcombo、dblist、datacombo、datalist中的查询算法 |
| □ 内容： | 1楼 |
在dbcombo、dblist、datacombo、datalist中用以下方式： '' 查询 Private Sub cmdserch_Click() Dim x As String ''定义查找方式 DBList1.MatchEntry = dblBasicMatching x = InputBox("请输入要查询的姓名", "查询", DBList1.Text) If Trim(x) = vbNullString Then Exit Sub DBList1.Text = x If Not (DBList1.MatchedWithList) Then MsgBox "数据库中没有姓名为“" & x & "”的记录", vbExclamation, "查找" Else Text1.Text = DBList1.BoundText End If End Sub 在 adodc中 '' 查询 Private Sub cmdserch_Click() Dim x As String x = InputBox("请输入要查询的姓名", "查询") If Trim(x) = vbNullString Then Exit Sub adodc1.Recordset.MoveFirst adodc1.Recordset.Find "姓名" & "=" & "''" & x & "''" If adodc1.Recordset.EOF Then MsgBox "数据库中没有姓名为“" & x & "”记录", vbExclamation, "查找" End If End Sub 在 data中 '' 查询 Private Sub cmdserch_Click() Dim texfind As String texfind = InputBox("请输入要查询的姓名", "查询") If Trim(texfind) = vbNullString Then Exit Sub '' 进行根据选择条件查询 Data1.Recordset.FindFirst "姓名" & "=" & "''" & texfind & "''" '' 如果没有找到记录NoMatch的值为True,找到记录NoMatch的值为False If Data1.Recordset.NoMatch = True Then MsgBox "数据库中没有姓名为“" & texfind & "”的记录", vbExclamation, "查找" End If End Sub ''用ＳＱＬ查询 ''注：RecordSource属 性 只 能 和 SELECT查 询 共 同 使 用 。 如 果 你 希 望 使 用 UPDATE查 询 ''修 改 数 据 ， 应 该 使 用 ： ''Data1.Database.Execute Text1.Text ''Execute方 法 主 要 执 行 SELECT以 外 的 SQL语 句 。 例如： If Not Data1.Recordset.EOF Then Data1.RecordSource = "Select * From telephone Where 姓名 like" & "''" & Trim(texfind) & "*''" Data1.Refresh Else MsgBox "数据库中没有为“" & texfind & "”的记录", vbExclamation, "查找" End If |
—— |
| □ 争分夺秒背单词 → plastic a.塑料的；塑性的 |
| □ 发帖时间：2011-9-20｜10:32:01 | |回复|返回| |
