| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5059 人关注过本帖
标题:请高手帮帮忙指点啊!我是新手:“实时错误‘13‘ 类型不匹配”
只看楼主 加入收藏
coucongzi
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2012-11-1
结帖率:90%
收藏
已结贴  问题点数:20 回复次数:8 
请高手帮帮忙指点啊!我是新手:“实时错误‘13‘ 类型不匹配”
Private Sub Command1_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
'Set str = "Microsoft.Jet.OLEDB.4.0;Data Source=j:\vb+access\xuexi.mdb"
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source=" & App.Path & "\data.mdb" & " ;Jet OLEDB:Database password= coucongzi"
conn.Open
rs.Open "select * from yhinfo where userid =" + Int(Text5.Text) + " and username=" & Chr(Text1.Text) & "", conn, adOpenDynamic, adLockPessimistic

If rs.EOF = False Then
MsgBox "用户编码或用户名已经存在,请检查后重新输入!", 16, "错误!"
rs.Close
Else
end if
...
...
end sub
上面的代码执行之后
总是提示“实时错误‘13‘ 类型不匹配”
调试的时候,在
rs.Open "select * from yhinfo where userid =" + Int(Text5.Text) + " and username=" & Chr(Text1.Text) & "", conn, adOpenDynamic, adLockPessimistic
这一行代码中变黄色,个人感觉很有可能问题出在了username=" & Chr(Text1.Text) & "",这段
我的username字段在ACCESS的字段类型是选择文本(不知道是不是这里错了),记录都是中文名字,如“张三”
请哪位高手帮忙指点一下要怎么改啊,小弟是新手,跪谢了!
搜索更多相关主题的帖子: password where 
2012-11-01 20:30
coucongzi
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2012-11-1
收藏
得分:0 
哪位大哥帮帮忙啊
2012-11-02 08:00
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
你把 + 号换成 & 试试。

估计是你写的 + 号,的VB 给搞混乱了。

授人于鱼,不如授人于渔
早已停用QQ了
2012-11-02 08:09
coucongzi
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2012-11-1
收藏
得分:0 
回复 2楼 coucongzi
把+换成&了,还是有同样的错误提示,我也试过吧&全部换成+,也是一样的报错啊
我估计是因为我的username在access中的数据类型是“文本”,跟text1.text的数据类型不匹配
但是不懂得要怎么转换啊
2012-11-02 08:22
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:10 
你用了 &  后,生成的内容就是字符型的。

刚仔细看了一下,你生成的 SQL 语句有问题。
你可以 输出这一句看看。

debug.print  "select * from yhinfo where userid =" & Int(Text5.Text) & " and username=" & Chr(Text1.Text) & ""

就会发现,在SQL 语句中,字符串没有再用 SQL 规定的 单引号 引起来。 ,自己加吧。

授人于鱼,不如授人于渔
早已停用QQ了
2012-11-02 10:41
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:10 
以下是引用coucongzi在2012-11-1 20:30:56的发言:

Private Sub Command1_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
'Set str = "Microsoft.Jet.OLEDB.4.0;Data Source=j:\vb+access\xuexi.mdb"
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source=" & App.Path & "\data.mdb" & " ;Jet OLEDB:Database password= coucongzi"
conn.Open
rs.Open "select * from yhinfo where userid =" + Int(Text5.Text) + " and username=" & Chr(Text1.Text) & "", conn, adOpenDynamic, adLockPessimistic

If rs.EOF = False Then
MsgBox "用户编码或用户名已经存在,请检查后重新输入!", 16, "错误!"
rs.Close
Else
end if
...
...
end sub
上面的代码执行之后
总是提示“实时错误‘13‘ 类型不匹配”
调试的时候,在
rs.Open "select * from yhinfo where userid =" + Int(Text5.Text) + " and username=" & Chr(Text1.Text) & "", conn, adOpenDynamic, adLockPessimistic
这一行代码中变黄色,个人感觉很有可能问题出在了username=" & Chr(Text1.Text) & "",这段
我的username字段在ACCESS的字段类型是选择文本(不知道是不是这里错了),记录都是中文名字,如“张三”
请哪位高手帮忙指点一下要怎么改啊,小弟是新手,跪谢了!

rs.Open "select * from yhinfo where userid =" + Int(Text5.Text) + " and username='" & Chr(Text1.Text) & "'", conn, adOpenDynamic, adLockPessimistic

无知
2012-11-02 12:26
coucongzi
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2012-11-1
收藏
得分:0 
回复 6楼 Artless
好的,我先试试看啊
2012-11-02 13:23
coucongzi
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2012-11-1
收藏
得分:0 
回复 5楼 风吹过b
rs.Open "select * from yhinfo where userid =" & Val(Text5.Text) & "", conn, adOpenDynamic, adLockPessimistic
If rs.BOF <> True Or rs.EOF <> True Then
MsgBox "用户编码已经存在,请检查后重新输入!", 16, "错误!"
rs.Close
Else
rs.Close
rs.Open "select * from yhinfo where UserName ='" & Text1.Text & "'", conn, adOpenDynamic, adLockPessimistic
If rs.BOF <> True Or rs.EOF <> True Then
MsgBox "用户名已经存在,请检查后重新输入!", 16, "错误!"
rs.Close
Else
修改成这样的,终于搞定了,谢谢你啊,也谢谢4楼的,感谢指点!
2012-11-02 14:02
coucongzi
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2012-11-1
收藏
得分:0 
是谢谢5楼的,看错啊
哈哈
2012-11-02 14:03
快速回复:请高手帮帮忙指点啊!我是新手:“实时错误‘13‘ 类型不匹配”
数据加载中...
 
   



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

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