小小一个查询问题！SOS！！！

2003-12-24 09:34:04 75 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

回溯法求解N皇后问题本文介绍了回溯法及其在解决N皇后问题中的应用。回溯法是一种通过试探性搜索解决问题的算法，核心思想是“尝试-回退”，通过系统性搜索、剪枝优化和递归实现来高效穷举所有可能解。N皇后问题要求在n*n棋盘上放置n个皇后，使得它们互不攻击。文章详细分析了问题的解题思路，提出了剪枝条件函数，并设计了递归和非递归两种算法来实现回溯法。递归法通过递归调用逐行放置皇后，而非递归法则通过迭代实现。总结指出，回溯法通过智能穷举和剪枝优化，在解决组合问题时能显著减少无效搜索，适用于N皇后、数独、图着色等场景，是解决NP难问题的重要阅读详情

我想在一个窗口中实现点击一个“查找”按钮，如果在数据库中找到此记录，则在

相应的文本框中：例：(text text2 text3 text4) 把找到数据库的此记录在这些文

本框中显示出来！请问如何才能实现？请详细给出代码和说明！小弟刚学不久！谢

谢！以下是我的代码，但运行时出错，请帮改正！如有更好方法，请回复。谢谢！
在模块中写了代码如下：
Public Function executesql(ByVal a As String) As Object
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Provider = "microsoft.jet.oledb.4.0"
cnn.Open App.Path & "\UserMessage.mdb"
Set rs = New Recordset
rs.Open a, cnn, adOpenDynamic, adLockOptimistic, adCmdText
Set executesql = rs
End Function
然后又在一个穷窗体的按钮单击了以下代码：
Private Sub cmdFind_Click()
Dim rs As ADODB.Recordset
Set rs = executesql("select * from StudentElective where studnetID='" &_
Trim(txtID.Text) & "'")
txtID.Text = rs!Fields(0) '0代表数据库中表的第一个字段
txtname.Text = rs!Fields(1)
End Sub
为什么在运行中调试时总是总是跑到“模块”一条代码上说:
rs.Open a, cnn, adOpenDynamic, adLockOptimistic, adCmdText
实时错误至少一个参数没有被指定值！
请问是那里错误，帮帮小弟！

...全文

回溯法求解n皇后问题——递归实现 /** * 回溯法求解n皇后问题——递归实现 * * 过程描述 * 从第n(1, 2, ...)行开始，遍历当前行，找出当前行中所有可放置皇后的位置，并将其当作各个节点 * 若当前行中存在可放置皇后的位置，则根据"深度优先"的原则，从当前行中第一个节点开始继续遍历下一行， * 当行号大于皇后个数时，遍历结束，输出遍历结果 * * 阅读详情

ChinaKable

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

icepoint2003 2003-12-25

打赏
举报

解决了，为什么不结贴？？？呵呵

ChinaKable 2003-12-25

打赏
举报

问题已解决，谢谢各位！

ddsty 2003-12-25

打赏
举报

Dim cnn As new ADODB.Connection
Dim rs As new ADODB.Recordset
Dim a as String
cnn.Provider = "microsoft.jet.oledb.4.0"
cnn.Open App.Path & "\UserMessage.mdb"
a="select * from 表名 where=" & 条件表达式
rs.Open a, cnn, adOpenDynamic, adLockOptimistic, adCmdText
if rs.eof=false then '如果有多条记录就用do while循环
msgbox "没有找到记录"
else
text1.text=rs!字段名
........
end if

icepoint2003 2003-12-25

打赏
举报

Public Function executesql(ByVal a As String) As Object'这里是不是应该改成Recordset

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Provider = "microsoft.jet.oledb.4.0"
cnn.Open App.Path & "\UserMessage.mdb"
Set rs = New ADODB.Recordset
rs.Open a, cnn, adOpenDynamic, adLockOptimistic, adCmdText 'a是什么？
Set executesql = rs
End Function
然后又在一个穷窗体的按钮单击了以下代码：
Private Sub cmdFind_Click()
Dim rs As ADODB.Recordset
Set rs = executesql("select * from StudentElective where studnetID='" &_
Trim(txtID.Text) & "'")
txtID.Text = rs!Fields(0) '0代表数据库中表的第一个字段
txtname.Text = rs!Fields(1)
End Sub

icepoint2003 2003-12-25

打赏
举报

还有 a 是什么？这里应该跟source，也就是指定的表

icepoint2003 2003-12-25

打赏
举报

set rs=new adodb.recordset

qffhq 2003-12-24

打赏
举报

一种是以上的方法,打开记录时只查找定条件的数据
还有一种是:打开记录时全部查出来,用客户端方式,后在本地机上过滤查询
可用rs.Filter="查询条件",具体可参照MSDN中ADO中帮助

vbman2003 2003-12-24

打赏
举报

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\UserMessage.mdb;Persist Security Info=False"
a="select * from StudentElective where studnetID='"& Trim(txtID.Text) & "'"
Set rs = New Recordset
rs.Open a, cnn, adOpenKeyset, adLockOptimistic

小小一个查询问题！SOS！！！

相关推荐