欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → 金字塔可否从sql数据库读取数据?

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有5100人关注过本帖树形打印复制链接

主题:金字塔可否从sql数据库读取数据?

帅哥哟,离线,有人找我吗?
xieguihua
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:43 积分:250 威望:0 精华:1 注册:2012/7/12 14:05:28
金字塔可否从sql数据库读取数据?  发帖心情 Post By:2012/11/1 10:28:23 [只看该作者]

金字塔可否从sql数据库读取数据?

 回到顶部
帅哥哟,离线,有人找我吗?
王锋
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:罗宾汉 帖子:11808 积分:20695 威望:0 精华:10 注册:2009/8/18 8:15:13
  发帖心情 Post By:2012/11/1 10:36:36 [只看该作者]

参考 http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=401&page=2

以及多参考 该高级研发区的精华帖子



金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟,离线,有人找我吗?
guotx2010
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:蜘蛛侠 帖子:1366 积分:5210 威望:0 精华:7 注册:2010/12/11 18:00:33
  发帖心情 Post By:2012/11/1 13:46:35 [只看该作者]

可以的,使用VBA写,非常方便。


 回到顶部
帅哥哟,离线,有人找我吗?
xieguihua
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:43 积分:250 威望:0 精华:1 注册:2012/7/12 14:05:28
  发帖心情 Post By:2012/11/6 17:44:37 [只看该作者]

楼上可否给个例子或者推介一些资料?

 回到顶部
帅哥哟,离线,有人找我吗?
guotx2010
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:蜘蛛侠 帖子:1366 积分:5210 威望:0 精华:7 注册:2010/12/11 18:00:33
  发帖心情 Post By:2012/11/7 16:26:48 [只看该作者]

public SqlConn

Sub ConnToSql()    '连接Sql Server数据库
 On Error Resume Next
 If SqlConn.CAdodb.Connection")
    SqlConn.Open "Provider=sqloledb;Server=" & SvrIP & ";Database=数据库名;Uid=用户名;Pwd=密码"
 End if
End Sub

 

'读取数据库中记录

Sub ReadData()

    strSql="Select AccountID,StartDate,EndDate,UserName From tblMyUser"
    strSql=strSql & " Where AccountID='" & AccountCode & "'"
    Set rstTmp=CreateObject("ADODB.RecordSet")
    ConnToSql
    rstTmp.Open strSql,SqlConn

    aa=rstTmp("AccountID")

End Sub

 

'执行Sql server存储过程

Sub RunProc()

    ConnToSql

    SqlConn.Execute "spTest "                '构筑参数字符串

    '如果直接执行语句可以这么写

    SqlConn.Execute "Update tblAccount Set AccountName='" & TestName & "'"

End Sub

 


 回到顶部
帅哥哟,离线,有人找我吗?
rushtaotao
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 czt
等级:蜘蛛侠 帖子:1445 积分:6114 威望:0 精华:3 注册:2012/1/16 10:31:19
  发帖心情 Post By:2012/11/8 9:34:59 [只看该作者]

赞一个

 回到顶部