主题：金字塔可否从sql数据库读取数据？

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

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