| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1091 人关注过本帖
标题:[求助]急啊,求求高人告诉我
只看楼主 加入收藏
xd03021506
Rank: 1
等 级:新手上路
帖 子:56
专家分:0
注 册:2006-12-19
收藏
 问题点数:0 回复次数:5 
[求助]急啊,求求高人告诉我

Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset
Dim rst As ADODB.Recordset
Dim stokens() As String
'On Error GoTo exectuesql_error

stokens = Split(sql)
Set rst = New ADODB.Recordset
Set ExecuteSQL = New ADODB.Recordset
If InStr("INSERT,DELETE,UPDATE", UCase$(stokens(0))) Then
mycon.Execute sql

Else

rst.Open Trim$(sql), mycon, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rst
End If
exectuesql_exit:
Set rst = Nothing
Set mycon = Nothing
Exit Function
exectuesql_error:
Resume exectuesql_exit
End Function

为什么老是出现 rst.Open Trim$(sql), mycon, adOpenKeyset, adLockOptimistic错误啊
我用的是ACCESS数据库,MYCON是是数据库链接用的相对路径
加我QQ也行,78075493

搜索更多相关主题的帖子: 高人 
2006-12-27 21:26
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
收藏
得分:0 
怎么有个 $ 符号??

飘过~~
2006-12-28 21:43
xd03021506
Rank: 1
等 级:新手上路
帖 子:56
专家分:0
注 册:2006-12-19
收藏
得分:0 

Private Sub Command1_Click()
Set mycon = New ADODB.Connection
mycon.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/db1.mdb"
mycon.Open
Dim mrc As ADODB.Recordset
Set mrc = New ADODB.Recordset
txtsql = "select * from [user] where name='" & Trim(Text1.Text) & "'and password='" & Trim(Text2.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.RecordCount < 1 Then
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
MsgBox "请填入正确的用户名和密码", vbExclamation + vbOKOnly, "警告"
Exit Sub
Else: MsgBox "adfsfsdfsd"
End If
End Sub

有人已经帮我解决了,就是那个txtsql语句,原来我是用txtsql = "select * from user where name='" & Trim(Text1.Text) & "'and password='" & Trim(Text2.Text) & "'"所以出错,user加中括号就行,但是我不知道为什么要这样加,别人说是因为用的是ACCESS数据库就得加中括号,是这样得吗?

2006-12-28 22:37
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
收藏
得分:0 
因为 user 是保留字段,所以得加个 []

飘过~~
2006-12-29 22:22
xd03021506
Rank: 1
等 级:新手上路
帖 子:56
专家分:0
注 册:2006-12-19
收藏
得分:0 
保留字段,什么意思,能详细解释下吗,谢谢了
2007-01-02 18:57
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
收藏
得分:0 

简单地说,在查询分析器中打出来会变色有就是.呵


飘过~~
2007-01-02 23:56
快速回复:[求助]急啊,求求高人告诉我
数据加载中...
 
   



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

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