局域网络版设备管理程序vba+sql2000(奉送全部源码)

229657993 · 发表于 2019-3-24 15:04

谢谢楼主分享

duyong6730 · 发表于 2019-10-18 08:58

感谢分享，大神厉害

刘同更 · 发表于 2021-11-6 10:29

很学习一下老师代码，发现这个函数，未通过编译：
Public Function getid(str As String) As String
      Dim id As String, i As Integer
      Dim sql As String
      Dim rs As New ADODB.Recordset
      sql = "select * from " & str & " where fid=(select max(fid) from " & str & ")"
      Set rs = mtot.rssqlexecute(sql)
      i = rs.RecordCount    '运行到这句时，报错：类型不匹配。请各位老师看一下
      If i = 0 Then                                     ' 该如何修正，多谢指教！
         id = 1
      Else
         id = rs.Fields(0) + 1
      End If
      getid = id
End Function

chadwicko · 发表于 2022-1-13 23:22

虽然楼主说账户密码数据库可以看的到但是我就是小白也看不懂数据库

等爱的誓言 · 发表于 2022-1-16 17:12

登陆账号和密码

hsyuanno1 · 发表于 2022-6-30 20:39

试试看，好不好用

mingbing1234 · 发表于 2022-7-24 23:33

收藏中！谢谢楼主的分享，支持一下！

rndbo · 发表于 2022-8-5 17:04

能告诉密码嘛

czhjun · 发表于 2022-8-28 10:19

标记一下，有时间研究一下

曹红星 · 发表于 2022-11-21 10:45

看看，希望能派上用场！！、

		自动登录	找回密码
密码			免费注册

[原创] 局域网络版设备管理程序vba+sql2000(奉送全部源码)