Office中国论坛/Access中国论坛

标题: 请教一个ACCESS连接SQL权限的问题？ [打印本页]
作者: 真主    时间: 2009-7-13 10:46
标题: 请教一个ACCESS连接SQL权限的问题？
我的后台是一个人员系统的SQL数据库，我想将表从SQL连接我前台ACCESS中，但这要针对SQL的连接帐号怎样设后，在我ACCESS的前台只能看，不能修改SQL连接来的表（版主，这个帖如果不能放在这里，请帮忙移走）
作者: ty_1029    时间: 2009-7-13 14:31
本帖最后由 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

  10. ...........................

  12. rs.close
  13. set rs=nothing
复制代码




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3