ron_5566 2016-12-08 03:37 采纳率: 50%
浏览 1217

VB读取ACCESS数据库问题

我想读取D盘的“DB1”数据库里“S1”中“LH”列的最后一个数据的,放到TEXT1中,表的ID是自增的,请问怎么写代码?

  • 写回答

2条回答

  • bestcity 2016-12-08 08:34
    关注

    Private Sub Form_Load()
    Dim DataStr As String
    Dim ConnStr As String

    DataStr = "D:\D_B1.mdb"
    ConnStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataStr & ";"
    
    Dim Sql As String
    Dim Conn As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    
    Conn.Open ConnStr
    Sql = "SELECT top 1 LH FROM S1 ORDER BY ID DESC;"
    Rs.Open Sql, ConnStr, 1, 3
    If Not (Rs.EOF And Rs.bof) Then
    
        Debug.Print Rs("LH")
    
    End If
    Rs.Close
    Set Rs = Nothing
    Conn.Close
    Set Conn = Nothing
    

    End Sub

    评论

报告相同问题?

悬赏问题

  • ¥30 帮我写一段可以读取LD2450数据并计算距离的Arduino代码
  • ¥15 C#调用python代码(python带有库)
  • ¥15 矩阵加法的规则是两个矩阵中对应位置的数的绝对值进行加和
  • ¥15 活动选择题。最多可以参加几个项目?
  • ¥15 飞机曲面部件如机翼,壁板等具体的孔位模型
  • ¥15 vs2019中数据导出问题
  • ¥20 云服务Linux系统TCP-MSS值修改?
  • ¥20 关于#单片机#的问题:项目:使用模拟iic与ov2640通讯环境:F407问题:读取的ID号总是0xff,自己调了调发现在读从机数据时,SDA线上并未有信号变化(语言-c语言)
  • ¥20 怎么在stm32门禁成品上增加查询记录功能
  • ¥15 Source insight编写代码后使用CCS5.2版本import之后,代码跳到注释行里面