VB Access 查询出最大值如何显示在Text控件上？

2015-12-24 06:28:28 533 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB.NET快速入门：从零到一构建桌面应用，掌握事件驱动与控件开发事件驱动编程是图形用户界面（GUI）开发的核心范式，它通过响应用户操作（如点击、输入）来执行特定代码逻辑，从而实现交互式应用。其原理在于程序运行在一个事件循环中，监听并分发各种事件到对应的事件处理函数。这种模式极大简化了界面与逻辑的耦合，提升了开发效率，尤其适合快速构建桌面应用程序。在工业自动化、办公自动化及小型工具开发等场景中，能够快速实现功能原型或解决特定问题。Visual Basic（VB）语言，特别是VB.NET，因其语法接近自然语言、集成强大的可视化设计器，成为实践事件驱动和快速应用开发（RAD）阅读详情

Private Sub Command3_Click()

Dim MaxVal As Single
Dim sql As String
sql = "Select Max(Val) As MaxVal From FloatTable where DateAndTime between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#"

Text1.Text = MaxVal

End Sub

已经可以查询出最大值，但是为什么在Text1.Text显示不出来？新手，见笑

...全文

别再浪费HDRI了！D5渲染器环境光设置避坑指南（附天空球调试参数）本文深入解析D5渲染器中HDRI环境光的高阶调试技巧，揭示90%渲染师常犯的错误认知。通过参数联动黄金法则、特殊材质应对方案及动态场景优化策略，帮助用户精准控制光子能量分布，实现建筑玻璃反射云层过渡等专业级效果。附赠天空球调试参数和商业项目验证案例，助您彻底释放HDRI潜力。阅读详情

liuyi0524

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

+ 关注 + 加入社区

切换为时间正序

liuyi0524 2015-12-28

打赏
举报

感谢大家，代码如下，供大家参考 Private Sub Command1_Click() Adodc1.CommandType = adCmdText Adodc1.RecordSource = " select * from FloatTable where DateAndTime between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "# " Adodc1.Refresh Set Cnn = New ADODB.Connection Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Common Files\ODBC\Data Sources\VBA.mdb;Persist Security Info=False" Set rec = New ADODB.Recordset Set rec.ActiveConnection = Cnn rec.Open "Select Max(Val) From FloatTable where DateAndTime between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#" Text1.Text = (rec.Fields(0) & " N") rec.Close rec.Open "Select Min(Val) From FloatTable where DateAndTime between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#" Text2.Text = (rec.Fields(0) & " N") rec.Close rec.Open "Select Avg(Val) From FloatTable where DateAndTime between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#" Text3.Text = rec.Fields(0) Text3.Text = (Format(Text3.Text, "0.00") & " N") rec.Close End Sub

熊孩子开学喽 2015-12-25

打赏
举报

因为你只是定义了一句SQL语句, 却根本没有执行它.

gtclulong 2015-12-24

打赏
举报

这样子是没法查出最大值吧查询返回结果集，遍历结果集找到自己需要的数据



Private Sub Command3_Click()
Dim cnn As Object, Rs as object, CnnStr as string,SqlStr as string
Set cnn = New ADODB.Connection
set Rs= New ADODB.Recordset
CnnStr ="PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Data.mdb"  '////注意要把Data.mdb的路径写全，C:\Data.mdb只是我随便写的
cnn.Open CnnStr
if cnn.state=1 then
    sqlstr="Select  Max(Val) As MaxVal  From  FloatTable where DateAndTime between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#"
    set rs=cnn.execute(sqlstr)
    if not rs.eof then
        Text1.Text = rs(0)
    end if
end if
End Sub

VB Access 查询出最大值如何显示在Text控件上？

相关推荐