设为首页收藏本站

融智技术学院

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1572|回复: 2

Access Adp项目连接SQL server方法/函数

[复制链接]
meng 发表于 2011-9-17 11:34:01 | 显示全部楼层 |阅读模式
        Access Adp 项目连接SQL 函数,
        使用方法:
        1.新建Access Adp项目
        2.在模块中新建一个模块,粘贴以下代码
        3.新建一个登录窗体,调用即可
  1. Public Function saConnect(ByVal strServer As String, ByVal strDatabase As String, _
  2. ByVal strUsername As String, ByVal strPassword As String) As Boolean
  3. On Error GoTo err
  4. Connect:
  5. Dim strCn As String
  6. strCn = "PROVIDER=SQLOLEDB.1;"
  7. 'strCn = strCn & "Workstation Id = HY"
  8. strCn = strCn & "DATA SOURCE=" & strServer & ";"
  9. strCn = strCn & "INITIAL CATALOG=" & strDatabase & ";"
  10. strCn = strCn & "USER ID=sa;"
  11. strCn = strCn & "PASSWORD=;"
  12. strCn = strCn & "PERSIST SECURITY INFO=TRUE;"
  13. strCn = strCn & "Use Procedure for Prepare=1;"
  14. strCn = strCn & "Auto Translate=True;"
  15. strCn = strCn & "Packet Size=4096;"
  16. 'Debug.Print strCn
  17. CurrentProject.OpenConnection strCn
  18. theConnect = True
  19. Exit Function
  20. err:
  21. MsgBox "错误代码: " & err.Number & vbCrLf & vbCrLf & _
  22. "错误描述: " & err.Description, vbCritical + vbOKOnly, theTitle
  23. End Function
复制代码
fuqidaxian 发表于 2012-5-16 11:08:17 | 显示全部楼层
大家好好讨论一下,真不错
愚宝娣顺 发表于 2013-3-3 05:13:08 | 显示全部楼层
顶!!!!!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

新突破电商

小黑屋|手机版|Archiver|融智技术学院 ( 京ICP备09018999号  

GMT+8, 2018-1-20 03:31

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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