Получние данных для Excel с помощью запроса к базе данных

22 апреля 2013, VBA, Konstantin

Если, например, требуется получить одно единственное значение с помощью запроса к базе данных (сам запрос может иметь заранее заданную конструкцию, меняющуюся в зависимости от определённых условий), то пригодится следующией код.

Для MS SQL

Sub Get_MSSQL_Data()
 Dim db As ADODB.Connection
 Dim rs As ADODB.Recordset
 Dim sqlStr As String
 Set rs = CreateObject("ADODB.Recordset")
 Set db = New ADODB.Connection
 db.Open _
  "DRIVER={SQL Server};SERVER=SName;UID=UserName;PWD=Password;DATABASE=DBName"
 
 sqlStr = "SELECT Count(*) as cnt FROM [DBName].[DB].[Table]"
 rs.Open sqlStr, db
 
 While Not rs.EOF
    str1 = rs.Fields("cnt").Value
    rs.MoveNext
    Wend
 rs.Close
 db.Close
End Sub

Продолжить чтение »

Теги: • • • •
 
2 Комментарии
Комментировать

Пример преобразования SQL Server T-SQL в Teradata SQL

20 января 2013, Знания, Konstantin

Полезное руководство по преобразованию запросов из формата Microsoft SQL в Teradata SQL.

В приведенных примерах ссылка на объект «mufford» — это некое личное хранилище. Следует заменять на собственное.

Команда SELECT

Простой SELECT

SQL Server

1
2
3
4
5
6

USE AdventureWorksDW2012;
GO
 
SELECT TOP 10 ProductKey
  , EnglishProductName 
FROM dbo.DimProduct;

или

1
2
3

SELECT TOP 10 ProductKey
  , EnglishProductName 
FROM AdventureWorksDW2012.dbo.DimProduct;

Teradata

1
2
3

SELECT TOP 10 P_PartKey
  , P_Name 
FROM retail.Product;

Продолжить чтение »

Теги: • •
 
1 Комментарии
Комментировать

На Верх