ADO Recordset Type Tarih ve Saat

[pNouma]

Kıymetli Hocalarım merhabalar,

Excel ortamına Access DB' den SQL ile veri çekerken; tarih ve saat formatını ayırmak istiyorum.

Aşağıdaki script' te saat bilgisini de tarih formatında getiriyor.

               Select Case rs(field).Type
                            Case adDate
                                '// Format date fields
                                FieldValue = Format(rs(field), "dd.mm.yyyy")


                          Case adBigInt
                                FieldValue = CLng(rs(field))

Access DB' de formatı saat olarak belirtilen alanların ("hh:mm") formatında getirmek için kodu nasıl düzenleyebiliriz ?

desteğiniz için şimdiden teşekkürler,
iyi Çalışmalar dilerim.

 

[muhasebeciyiz]

Sorununuz, Access veritabanında sadece saat bilgisini tutması beklenen bir alanın (örneğin formatı hh:mm olan bir alanın) da adDate tipi olarak algılanması ve sizin dd.mm.yyyy formatıyla yalnızca tarih kısmını getirmenizden kaynaklanıyor. Saat bilgisi bu formatın içinde gizleniyor.

Veri tabanı alan adlarınıza (column names) güveniyorsanız, alan adına göre özel bir kontrol eklemek en güvenilir yoldur.
Eğer saat bilgisini tutan alanların adları hep "Saat" veya "GirisSaati" gibi belirgin bir kelime içeriyorsa, bu kelimeyi kontrol edebilirsiniz.

Select Case rs(field).Type
                        Case adDate
                            Dim FieldName As String
                            FieldName = rs(field).Name
                            
                            If InStr(1, FieldName, "Saat", vbTextCompare) > 0 Then
                                
                                FieldValue = Format(rs(field), "hh:mm")
                            Else                               
                                FieldValue = Format(rs(field), "dd.mm.yyyy")
                            End If

                      Case adBigInt
                            FieldValue = CLng(rs(field))
                      ' ... diğer Case'ler
                   End Select

 

[pNouma]

Sorununuz, Access veritabanında sadece saat bilgisini tutması beklenen bir alanın (örneğin formatı hh:mm olan bir alanın) da adDate tipi olarak algılanması ve sizin dd.mm.yyyy formatıyla yalnızca tarih kısmını getirmenizden kaynaklanıyor. Saat bilgisi bu formatın içinde gizleniyor.

Veri tabanı alan adlarınıza (column names) güveniyorsanız, alan adına göre özel bir kontrol eklemek en güvenilir yoldur.
Eğer saat bilgisini tutan alanların adları hep "Saat" veya "GirisSaati" gibi belirgin bir kelime içeriyorsa, bu kelimeyi kontrol edebilirsiniz.

Select Case rs(field).Type
                        Case adDate
                            Dim FieldName As String
                            FieldName = rs(field).Name
                           
                            If InStr(1, FieldName, "Saat", vbTextCompare) > 0 Then
                               
                                FieldValue = Format(rs(field), "hh:mm")
                            Else                              
                                FieldValue = Format(rs(field), "dd.mm.yyyy")
                            End If

                      Case adBigInt
                            FieldValue = CLng(rs(field))
                      ' ... diğer Case'ler
                   End Select

teşekkür ederim Hocam
iyi Çalışmalar.