| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 70 人关注过本帖
标题:odbc 驱动程序不支持所需的属性
只看楼主 加入收藏
lincd123
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2022-1-13
收藏
 问题点数:0 回复次数:4 
odbc 驱动程序不支持所需的属性
求助各位大侠,这是什么情况
Dim str As String
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "用户名不能为空!,请重新输入!", 16, "错误!"
Text1.SetFocus
Exit Sub

End If

If Text2.Text = "" Then
   MsgBox "密码错误,重新输入!", 16, "错误!"
   Text2.SetFocus
   Exit Sub
End If
   
   Call SJK(cdb)
   str = "Select * form login where username='" & Text1.Text & "'"
     RS.Open str, cdb, 1, 1       ‘报错就出现在这句   odbc 驱动程序不支持所需的属性
  If RS.EOF = True Then
    MsgBox "用户名错误!,请重新输入!", 16, "错误!"
    RS.Close
    Set RS = Nothing
    cdb.Close
    Set cdb = Nothing
    Exit Sub
  Else
    If Not RS!password = Text2.Text Then
       MsgBox "密码错误,重新输入!", 16, "错误!"
       RS.Close
       Set RS = Nothing
       cdb.Close
       Set cdb = Nothing
    Else
      Unload Me
      from2.Show
    End If
   RS.Close
   Set RS = Nothing
   cdb.Close
   Set cdb = Nothing
  End If
   
  
搜索更多相关主题的帖子: If Set Nothing Close 错误 
6 天前 17:03
lincd123
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2022-1-13
收藏
得分:0 
vb做的登入界面连接Access数据库
6 天前 17:12
wds1
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:42
帖 子:369
专家分:1895
注 册:2016-3-10
收藏
得分:0 
Public cn As New ADODB.Connection
RS.Open str, cn, 1, 1  

语句这么改试试
5 天前 21:20
lincd123
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2022-1-13
收藏
得分:0 
谢谢还是不行,不用模块也试了,也不行
可能是我VB安装有问题,安装时有报错
昨天 11:10
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:16
帖 子:80
专家分:501
注 册:2021-8-1
收藏
得分:0 
'仅供参考
'在工程中引用Microsoft ActiveX Data Object 2.6或者更高的版本
Dim db As New ADODB.Connection '声明数据库对像
Dim rs As New ADODB.Recordset  '声明表对像
Dim mstream As ADODB.Stream    '声明流对像(好像也叫二进制对像)
Private Sub 登录数据库_Click()             '打开数据库
    On Error GoTo ErrHandle                    '错误处理
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\巨浪网络\数据库练习3\Data.mdb" '无密码访问
    'db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\巨浪网络\数据库练习3\Data2.mdb;Jet OLEDB:database password=123456" '有密码访问123456为数据库密码
    rs.Open "Select * From 学生名单 ", db, 1, 3
    'rs.Open "Select * From 学生名单 ", db, 1, A 'A=1表示读取数据;A=3表示新增、修改或删除数据
ErrHandle:                                         '错误处理
    Select Case Err.Number
        Case -2147217843
            MsgBox "数据库密码错误,请从新输入!", vbInformation, "您好"
    End Select
    If rs.State = adStateOpen Then
        'AdStateClosed指rs对象是关闭的
        'AdStateOpen指rs对象是打开的
        'AdStateConnectingrs指rs对象正在连接
        'AdStateExecutingrs指rs对象正在执行命令
        'AdStateFetchingrs指rs对象的行正在被读取
        MsgBox "数据库已成功打开!", vbInformation, "您好"
    End If
End Sub
Private Sub Form_Unload(Cancel As Integer) '关闭数据库
    rs.Close '关闭表
    db.Close '关闭数据库
End Sub
Private Sub Command2_Click()               '指向下一条记录
    If rs.EOF = True Then          '如果是最后一条记录(true为是,False为不是)
        MsgBox "这已是最后一条记录!", vbInformation, "您好"
    Else                           '如果不是最后一条记录
        rs.MoveNext                    '指向下一条
    End If
End Sub
Private Sub Command3_Click()               '指向上一条记录
    If rs.BOF = True Then          '如果是最前一条记录(true为是,False为不是)
        MsgBox "这已是最前一条记录!", vbInformation, "您好"
    Else                           '如果不是最前一条记录
        rs.MovePrevious                '指向上一条
    End If
End Sub
Private Sub Command4_Click()               '指向第一条记录
    rs.MoveFirst                   '指向第一条
End Sub
Private Sub Command5_Click()               '指向最后一条记录
    rs.MoveLast                    '指向最后一条
End Sub
Private Sub Command6_Click()               '向下移动1行
    rs.Move 1                      '向下移动1行
End Sub
Private Sub Command7_Click()               '添加记录
    rs.AddNew
    rs.Fields(0) = "666"           '对应编号列
    rs.Fields(1) = "小牛"          '对应姓名列
    rs.Fields(2) = "23"            '对应年龄列
    rs.Update
End Sub
Private Sub Command8_Click()               '更新记录(更新的是当前行)
    rs("姓名") = "小大牛"          '对应姓名列
    rs("年龄") = "23"              '对应年龄列
    rs.Update
End Sub
Private Sub Command9_Click()               '删除记录(删除的是当前行)
    rs.Delete (0)
End Sub
Private Sub Command10_Click()              '查找记录
    rs.Find "编号='168'"           '168为查找条件
    If rs.EOF = False Then
        MsgBox "已找到符合条件记录!且已移动到该条记录下!", vbInformation, "您好"
    Else
        MsgBox "对不起,啥也没找到!", vbInformation, "您好"
    End If
End Sub
Private Sub Command12_Click()              '更新文件(更新的是当前行)
    Set mstream = New ADODB.Stream
    mstream.Type = adTypeBinary
    mstream.Open
    mstream.LoadFromFile "c:\美女图片.jpg"
    rs.Fields("二进制").Value = mstream.Read '对应二进制列
    rs.Update
End Sub
Private Sub Command13_Click()              '添加文件(添加一行新文件)
    Set mstream = New ADODB.Stream
    mstream.Type = adTypeBinary
    mstream.Open
    mstream.LoadFromFile "c:\1.exe"
    rs.AddNew
    rs.Fields(0) = "88"                      '对应编号列
    rs.Fields(1) = "小"                      '对应姓名列
    rs.Fields(2) = "20"                      '对应年龄列
    rs.Fields("二进制").Value = mstream.Read '对应二进制列
    rs.Update
End Sub
Private Sub Command14_Click()              '导出文件(导出当前行的文件)
    Set mstream = New ADODB.Stream
    mstream.Type = adTypeBinary
    mstream.Open
    mstream.Position = 0
    mstream.Write rs.Fields("二进制").Value    '对应二进制列
    mstream.SaveToFile "c:\2.exe", adSaveCreateOverWrite
End Sub
Private Sub Command15_Click()              '删除文件(删除当前行的文件)
    rs("二进制") = ""
    rs.Update
End Sub
Private Sub Command1_Click()               '显示记录
    '代码出处:http://blog.
    Text1.Text = rs.Fields("编号") '将编号这个字段第一行数据(默认是第一行数据)赋值给Text1
    Text2.Text = rs.Fields("姓名") '将姓名这个字段第一行数据(默认是第一行数据)赋值给Text2
    Text3.Text = rs.Fields("年龄") '将年龄这个字段第一行数据(默认是第一行数据)赋值给Text3
    Text4.Text = rs.Fields.Count   '数据表总字段数(也就是数据表总列数)
    Text5.Text = rs.RecordCount    '数据表记录总数(也就是数据表总行数)
    Text6.Text = rs(0).Name        '第1个字段的名称(也就是数据表第1列列头的文字)
    Text7.Text = rs(0)             '第1个字段的数据(也就是数据表第1列列头下面的第一行文字)
    Text8.Text = rs("姓名")        '指定字段数据(和rs.Fields类似)
End Sub
'==============================修改数据库密码(建议每次退出程序时执行一次)==============================
'工程-引用Microsoft Jet and Replication Objects Library 2.6 Library
Private Sub Command11_Click()
    Dim miJRO As JRO.JetEngine
    Set miJRO = New JRO.JetEngine
    "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & "F:\巨浪网络\数据库练习3\Data.mdb;" & "Jet OLEDB:Database Password=123", _
        "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & "F:\巨浪网络\数据库练习3\Data0.mdb;" & "Jet OLEDB:Database Password=abc"     '123为修改前的密码 abc为修改后的密码
End Sub
'======================================================================================================

 
昨天 18:08
快速回复:odbc 驱动程序不支持所需的属性
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031951 second(s), 9 queries.
Copyright©2004-2022, BCCN.NET, All Rights Reserved