朋友给我的程序,我按照他的写在vb中,可是弹出一个msgbox上写着:找不到可安装的ISAM,请问是怎么回事?具体程序如下:
我的目的是用vb中的窗体连接一个数据库表,窗体上有帐号,密码,两个文本框,还有两个按钮,一个是登陆 ,一个是重新输入,我想的是一点机登陆,就把帐号和密码这两个信息添加入数据表,如下:
引用ADO("工程"->"引用"->Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()'登录按钮
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs As New ADODB.RecordSet
    
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Sourced=D:\我的系统中\数据库名.mdb;Persist Security Info=False"'具体你要改一下连接字符串中的数据库名路径
    cn.CursorLocation=adUseClient'设置客户端游标
    cn.Open
    cn.Execute("insert into 用户总表(用户名字段,密码字段) values('" & txtUID.Text & "','" & txtPWD.Text & "')")  '插入语句中具体表名和字段名以及文本框的名字你改一下
    cn.Close
    Set cn=Nothing
    Exit Sub
err:
    MsgBox err.Description
End Sub请问,运行后,弹出的一个msgbox上写着:找不到可安装的ISAM ISAM是什么意思呢?我要怎么办才能把数据添入表中呢,一旦回复让我明白,马上送分!

解决方案 »

  1.   

    具体的连接字符串你是怎么写的,上面的代码具体你要改一下啊,比如D:\我的系统中\数据库名.mdb,这句改成你的东西
      

  2.   

    如果你的连接字符串写错了,一般都会有“找不到可安装的ISAM”这个错误提示
      

  3.   

    恩 是的!我已经改了。您的意思是说,isam就是找不到路径的意思吗?
    faysky2()朋友,如果可以的话,想跟您叫个朋友,我的qq是10771714,我想当面请教您,如果不方便的话,也没有关系。
      

  4.   

    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Sourced=D:\我的系统中\数据库名.mdb;Persist Security Info=False"'具体你要改一下连接字符串中的数据库名路径
    这句话中,我把D:\我的系统中\数据库名.mdb;Persist Security Info=False"'改成D:\王建亚管理系统\教学管理.mdb;Persist Security Info=False"'
     cn.Execute("insert into 用户总表(用户名字段,密码字段) values('" & txtUID.Text & "','" & txtPWD.Text & "')")  '插入语句中具体表名和字段名以及文本框的名字你改一下
    这句话中,我把括号里的改成了('" & text6.Text & "','" &text7.Text & "')")我的那两个文本框是text6和text7 我还改成过 ('" & txt6.Text & "','" & txt7.Text & "')")  也是出现那个找不到可安装的isam 是不是代码有点错误呢?
      

  5.   

    isam就是找不到路径的意思吗?
    -------------------------
    不一定是找不到路径,连接字符串写错了一般都会有这个提示
    是我写错了,不好意思哈,把连接字符串中的Data Sourced改为Data Source 多了一个d