Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.12.2010, 23:34   #1
xamillion
Форумчанин
 
Аватар для xamillion
 
Регистрация: 30.09.2008
Сообщений: 138
По умолчанию приведение даты для select

Чего-то лыжи не едут уже... не могу с датой справится...
Код:
Sub search_by_DateRog()

          Dim Numer As Long
          Set ds = Workbooks("Birth.xls").Sheets("Лист1")
  
   
Const sPath1 = "C:\Birth\"


ds.Activate


    Range("C2:AA65000").Select
    Selection.Delete

    Range("A2").Select


i = 2
'records.MoveFirst
While Not IsEmpty(ds.Cells(i, 1).Value)

       Dim records As New ADODB.Recordset

       Dim oConn1 As New ADODB.Connection
        
        
 
            sCon1 = "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & sPath1 & ";"
         
        oConn1.Open (sCon1)


    Dim sqlString As String
    
sqlString = "SELECT * " + _
"FROM Birth WHERE d_rog = " & ds.Cells(i, 2) & "" - это дата, выдает ошибку: Число содержит синтаксическую ошибку, ctod всунуть не удалось

records.Open sqlString, oConn1, adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic





If records.EOF Then
ds.Cells(i, 2).Value = ""

    Else
    ds.Cells(i, 2).Value = records.Fields("kod")
    
End If
    
  Set records = Nothing

    Set oConn1 = Nothing
  
    
Wend

End Sub
Подскажите, плиз, как дату преобразовать для сравнения!
xamillion вне форума Ответить с цитированием
Старый 21.12.2010, 23:42   #2
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

Код:
"FROM Birth WHERE d_rog =Cdate('" & ds.Cells(i, 2) & "');"
Смазка наверное не для асфальта
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 22.12.2010, 00:00   #3
xamillion
Форумчанин
 
Аватар для xamillion
 
Регистрация: 30.09.2008
Сообщений: 138
По умолчанию

спс, теперь самому смешно... чего я только сюда не пихал )))
xamillion вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В зависимости от выбора в Select изменить значения другого Select Tayfun HTML и CSS 3 18.08.2011 00:05
Приведение типов для SQL-запроса Rio309 БД в Delphi 1 06.06.2010 13:39
javascript для <select onChange> K.Serg.V JavaScript, Ajax 2 30.01.2010 16:21
Select t1.N,t1.FIO,(select t2.acc from t2 where t2.type=1) from t1,t2 mavlon_m SQL, базы данных 2 17.09.2009 15:28
Передача значения в <select></select> kkkggg Gamedev - cоздание игр: Unity, OpenGL, DirectX 1 06.09.2007 00:26