朋友给我的程序,我按照他的写在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是什么意思呢?我要怎么办才能把数据添入表中呢,一旦回复让我明白,马上送分!
我的目的是用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是什么意思呢?我要怎么办才能把数据添入表中呢,一旦回复让我明白,马上送分!
faysky2()朋友,如果可以的话,想跟您叫个朋友,我的qq是10771714,我想当面请教您,如果不方便的话,也没有关系。
这句话中,我把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 是不是代码有点错误呢?
-------------------------
不一定是找不到路径,连接字符串写错了一般都会有这个提示
是我写错了,不好意思哈,把连接字符串中的Data Sourced改为Data Source 多了一个d