以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  金字塔可否从sql数据库读取数据？  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=30282)
--  作者：xieguihua
--  发布时间：2012/11/1 10:28:23
--  金字塔可否从sql数据库读取数据？
金字塔可否从sql数据库读取数据？
--  作者：王锋
--  发布时间：2012/11/1 10:36:36
--  

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

以及多参考 该高级研发区的精华帖子
--  作者：guotx2010
--  发布时间：2012/11/1 13:46:35
--  

可以的，使用VBA写，非常方便。
--  作者：xieguihua
--  发布时间：2012/11/6 17:44:37
--  
楼上可否给个例子或者推介一些资料？
--  作者：guotx2010
--  发布时间：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
--  发布时间：2012/11/8 9:34:59
--  
赞一个