我建立了一个车辆离开信息表 表是按时间排列的 需要查找出某辆车的信息并把时间最新的一项选出来并显示在datagrid中
Private Sub Command1_Click()
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "车牌号" & Text1.Text & "不存在", 48, "提示"
Else
Adodc1.RecordSource = "select * from 车辆离开小区信息表 where CarNo='" + Text1.Text + "'"
End If
Adodc1.Recordset.MoveLast
Adodc1.Refresh DataGrid1.Refresh
End Sub
adodc指针移到最后一项就不知道该怎么做了 求教!
vb 怎么把数据库中的最后一行显示出来?
按日期加时间排序,用text控件绑定,专用来显示时间值。是我:相信自己。
用VB如何找到数据库里的最后一条记录或txt文件里的最后一行数据?
数据库:执行查询语句后得到一个Recordset,使用RecordSet.MoveLast属性可以找到最后一条记录。TXT文件:Open StrPath For Input As #1 Do While Not EOF(1)Line Input #1, TXTCon i = i + 1 Loop Close #1 以上是读取txt文件的方法,当close后i的值就是txt文件的总行数。然后再运行下面的方法 O...
vb中怎么搜索到表里最后一个数据
rs.Open "select * from 图纸更新 WHERE 图号='" & Text1.Text & "'", Cn, adOpenDynamic rs.Open返回记录集,上面这个命令,将返回满足图号为Text1.Text值的记录,如果你数据库里只有一条记录的图号为“Q123”,那么返回的就只有一条记录。这个时候,记录指针就是指向该记录,要获得该记录的...
vb 如何定位access数据库的最后一行
("SELECT Max(档案编号) FROM 会员档案", dbOpenSnapshot)此时就不需要移动数据记录了。直接计算新的“档案编号”newCode=Val(daoRect(0))+1
vb读取ACCESS数据库的最后一行信息的方法?
你排序,然后用倒序,并且只读第一行就行了,比如我们都知道ID是从小到大的 所以就 select top 1 * from [User] order by [Id] desc
VB如何用data或adodc显示access中abc表中最后的几条记录
如果要这样,你需要在数据库的字段里面加上一条添加时间的字段。因为它不会自动的跟你添加记录的加入或者更新时间。
vb 如何知道数据库(1.mdb)最后一行ID(自动编号),显示在text1上
data1.recordset.movelast text1.text=str(data1.recordset.fields("ID").value)
VB中如何读取数据库中的下一条数据
'下面两行写在General(一般区域内)里面(程式最上面)Dim sql As String Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset '在Load区域内写:Private Sub Form_Load()On Error Resume Next rs.MoveFirst Label1.Caption=Rs("编号") & Rs("题目")End Sub Private Sub Command...
vb datareport 只显示最后一条记录
你在产生随机数的那条语句前加上一句:randomize,就能避免你说的那个情况。
VB 中如何判定调用的数据为数据库第一条和最后一条记录
如果是ADO控件。 Adodc1.Recordset.MoveFirst第一条 Adodc1.Recordset.MoveLast最后一条 如果是data控件。 data1.Recordset.MoveFirst第一条 data1.Recordset.MoveLast最后一条