Запросы к Базе помогите Плзз

[SK | Heaton]

мне так тут понравилось просто супер..
Помогите плиз с запросами как можно при помощи кодинка ВБ + SQL создать запрос. скажем у меня 3 столбца символ, сумма, дата. и запрос по Дате, чтоб он мне вывел отчет по Дате на таблицу Exel (у меня программа на ВБ а база МДБ-ешка)..

[Алексей К.]

Для применения запросов тебе нужно изменить некоторые свойства adodc, хочешь программно в коде, хочешь в дизайнере.
CommandType=adcmdtext
в дизайнере в свойствах контрола на закладке REcordSource в поле Command Text (SQL) пиши свой запрос, либо программно устанавливай проперть RecordSource=твой запрос.
В эксель можно всатвлять через буфер (пробег в цикле по гриду и заполнение буфера), либо создавать обьект excell.application подлючать экселевскую библиотеку и заполнять лист инфой. На форуме поищи, точно есть и про буфер, и как Range рекордсетом заполнить.

[SK | Heaton]

насчёт отчета я поищу. а вот насчет запроса у меня стоит adcmdtable, напиши мне просто пример. чтоб программно он изменил свойство адода и маленький пример запроса на SQL плизз

[Алексей К.]

Лови...

[SK | Heaton]

пасиб большое

[SK | Heaton]

возникла еще одна проблема. у стоит Тектбокс куда вводится дата **.**.**** при нажатие на кпонку идет запрос
dim d as date
d=text1.text
select * from bla where date='d '
такой запрос не проходит...

Что я делаю не так ?!

[SK | Heaton]

возникла еще одна проблема. у мя стоит Тектбокс куда вводится дата **.**.**** при нажатие на кпонку идет запрос
dim d as date
d=text1.text
Adodc1.RecordSource = select * from bla where date='d '
такой запрос не проходит...

Что я делаю не так ?!

[Al Khamid]

18

[Andrey Fedorov]

Для преобразования даты я использую такую функцию:

Код: Выделить всё

Function sAmericanDateStyle(datDate As Date) As String
   sAmericanDateStyle = "#" & Format(month(datDate), "00") & "/" & Format(Day(datDate), "00") & "/" & Format(year(datDate), "0000") & "#"
End Function


Что-то дюже сложно - сделай попроще:

Код: Выделить всё

Function sAmericanDateStyle(datDate As Date) As String
    sAmericanDateStyle = "#" & Format$(datDate, "mm\/dd\/yyyy") & "#"
End Function

[SK | Heaton]

ща попробую

[SK | Heaton]

У меня что-то не получается. после запроса у меня выходит пустая таблица. Сделал как вы тут сказали при помощи функции и при помощи DTPicker. Сиравно

[Al Khamid]

[SK | Heaton]

Мужики Насчет запроса по дате у мя все получилось пасиб Вам.
дело терь в другом как можно вывести отчет по периоду и как сложить, вычитать при помощи кодинга, не подскажите ?

[lord0n]

складывать, вычитать

Код: Выделить всё


select col1 + col2 from tab1 where data1 between #01.02.2005# and #01.05.2005#


сброс в Excel:

Код: Выделить всё


objExcel.range("a1").copyfromrecordset rs


rs - рекордсет

[SK | Heaton]

Дело в том что моя структура таблицы вот такая

sim cityId sum date
02 Khj 56532 **.**.**
04 Isf 21546
03 tab 21215
03 khj 4522
03 isf 235
02 tab 4646
02 isf 0
после запроса таблица должна выглядеть так


Символ Khj isf tab
02 56532 0 4646
03 4522 235 21215
04 0 21546 0
------------------------------
сумма1 сумма2 сумма3

Sum = сумма1+сумма2+сумма3

[lord0n]

Код: Выделить всё


select sum (col1), sum (col2), sum (col3) from tab1


общая сумма:

Код: Выделить всё


sum=val(rs.fields(0))+val(rs.fields(1))+val(rs.fields(2))


[SK | Heaton]

2 lord0n ой пасиб большое

[SK | Heaton]

Народ помогите!!! Мой ламерсуий котел не пашит че - то.
Структура таблица

Проблема

Код: Выделить всё

sim     cityid     sum      date 
          02       Khj        4500    01.01.2005
          03       dush      6548    01.01.2005
          03       khj        5456    01.01.2005
          02       dush      231      01.01.2005       


Не могу создать запрос чтоб он преобразовал таблицу для отчета в такой вид

Код: Выделить всё


sim(Символ)  khj(Худжанд)  dush(Душ)  по области
02                 4500                231            4731
03                 5456                6548          12004


символы от 02 до 61
от 02 до 32 приход, а от 40-61 расход

вот такая вот загвостка.. Помогите кто чем может

[lord0n]

ни черта не понял

[SK | Heaton]

Дело обстоит так это структура мой таблицы (база данный)

Код: Выделить всё

sim     cityid      sum      date 
02       Khj        4500     01.01.2005
03       dush      6548     01.01.2005
03       khj        5456     01.01.2005
02       dush      231      01.01.2005       


Мне надо создать отчет, вид должен быть такой

Код: Выделить всё

   
 
sim(Символ)  khj(Худжанд)    dush(Душ)  по области
02                 4500                   231            4731
03                 5456                   6548          12004


формат отчета Без разницы, можно вывести на текстовый файл (*.txt) или на (.xls)
А вот и вопрос как это сделать и вывести отчет в виде файла.

Код: Выделить всё

Код: Выделить всё

Код: Выделить всё

Код: Выделить всё

Код: Выделить всё

Код: Выделить всё

Код: Выделить всё

[Алексей К.]

Изучи язык запросов, там (смотри по ссылке) все понятно и легко обьяснено, успехов
http://sql-ex.ru/

[SK | Heaton]

Колонки двинулись.
столбцу khj(Худжанд) соответствует 4500, dush(Душ) соответствует 231 а по области - 4731

[SK | Heaton]

ок почитаю

[lord0n]

усе, я кажется догнал
те нуна найти все поля со значеними Khj (к примеру)

Код: Выделить всё


select * from tab1 where cityid = 'Khj'


твое решение
а так

Изучи язык запросов, там (смотри по ссылке) все понятно и легко обьяснено, успехов

[Konst_One]

короче - это тебе надо сделать CROSSTAB

[Konst_One]

вот так

Код: Выделить всё

SELECT  DISTINCT   sim,
           (SELECT     A.[SUM]
           FROM          Table1 A
           WHERE      A.cityid = 'khj' AND A.sim = M.sim)
   AS Khj,
           (SELECT     B.[SUM]
           FROM          Table1 B
           WHERE      B.cityid = 'dush' AND B.sim = M.sim)
   AS dush
FROM         Table1 M

но что такое [по области], я не смог понять