Question

我使用的是vb6，数据库是mysql。有一个名为＆＃34; absen＆＃34;的表，它有一个名为＆＃34; tglabsen＆＃34;以这种格式存储日期：dd / mm / yyyy。我试图根据日期查找记录。例如。查找日期在01/01/2017至01/02/2017之间的记录

我的问题是如何将数字存储在变量中，然后将其显示在文本框中？到目前为止我尝试了什么，我测试了这个：

number = "Select count(*) from absen where tglabsen >='" & DTPicker1 & "' and tglabsen <='" & DTPicker2 & "'"

KON.Execute number

txtjumlahabsen = number

但是文本框（txtjumlahabsen）只显示上面的sql查询。

Answer 1

KON.Execute只执行存储在number变量中的sql语句。它没有用数据更新变量，这就是你的文本框显示sql语句的原因。

您需要打开记录集来检索数据：

Dim rs as New Recordset
Dim countVal as Integer

number = "Select count(*) from absen where tglabsen >='" & DTPicker1 & "' and tglabsen <='" & DTPicker2 & "'"

rs.Open number, KON, adOpenForwardOnly, adLockReadOnly
If Not rs.EOF then
   countVal = rs(0).Value
End If
rs.Close

txtjumlahabsen.Text = countVal

如果您的sql语句成功，count(*)的值将应用于countVal变量。如果不成功，countVal将保持为零。

如何从数据库中检索值并在文本框中显示

1 个答案: