设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1173|回复: 1
打印 上一主题 下一主题

[表] 请教一个ACCESS连接SQL权限的问题?

[复制链接]

点击这里给我发消息

跳转到指定楼层
1#
发表于 2009-7-13 10:46:58 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
我的后台是一个人员系统的SQL数据库,我想将表从SQL连接我前台ACCESS中,但这要针对SQL的连接帐号怎样设后,在我ACCESS的前台只能看,不能修改SQL连接来的表(版主,这个帖如果不能放在这里,请帮忙移走)
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享分享 分享淘帖 订阅订阅
2#
发表于 2009-7-13 14:31:10 | 只看该作者
本帖最后由 ty_1029 于 2009-7-13 14:34 编辑

方法很多,你可以通过VBA做个ODBC的连接,这样,就很操作本地一样,当然,代码很麻烦,网上有个国外的人写了一段,是连接ORACLE的,但连接SQLserver也是一样,修改几个地方就可以了.

另外,通过ADO或者DAO,读取SQL表的记录,然后进行代码赎值就可以了.

我给你提供个ADO的吧~~

  1. Dim cn As New ADODB.Connection
  2. Dim rs As New ADODB.Recordset
  3. Dim strCn As String, strSQL As String
  4. strCn = "Provider=sqloledb;Server=(local);Database=CRM;Uid=sa;Pwd=;"
  5. cn.Open strCn
  6. strSQL = "select * from CRM.dbo.login where sno='" & Me.UserName.Value & "' or psnam='" & Me.UserName.Value & "'"
  7. rs.Open strSQL, cn, adOpenDynamic, adLockPessimistic
  8. If Me.Password = rs!psword Then

  9. ...........................

  10. rs.close
  11. set rs=nothing
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-3 05:35 , Processed in 0.100273 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表