我想读取D盘的“DB1”数据库里“S1”中“LH”列的最后一个数据的,放到TEXT1中,表的ID是自增的,请问怎么写代码?
2条回答 默认 最新
- bestcity 2016-12-08 08:34关注
Private Sub Form_Load()
Dim DataStr As String
Dim ConnStr As StringDataStr = "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
解决 无用评论 打赏 举报
悬赏问题
- ¥15 win11家庭中文版安装docker遇到Hyper-V启用失败解决办法整理
- ¥15 gradio的web端页面格式不对的问题
- ¥15 求大家看看Nonce如何配置
- ¥15 Matlab怎么求解含参的二重积分?
- ¥15 苹果手机突然连不上wifi了?
- ¥15 cgictest.cgi文件无法访问
- ¥20 删除和修改功能无法调用
- ¥15 kafka topic 所有分副本数修改
- ¥15 小程序中fit格式等运动数据文件怎样实现可视化?(包含心率信息))
- ¥15 如何利用mmdetection3d中的get_flops.py文件计算fcos3d方法的flops?