Har ett problem att lösa, jag vill kunna hämta datumet när en tabell skapades i en access databas. Jag har använt följande kod för att hämta tabell namn. Finns det nåt liknande för att hämta datumet, om jag klickar i min listbox(lstTabeller) vill jag att rätt datum till rätt tabell även ska visas fast i en separat labelnamn.caption hur gör jag då?
Tack på förhand /Mats


<code>
Set rsTables = con.OpenSchema(adSchemaTables)
Set fldField = rsTables("TABLE_NAME")
Do Until rsTables.EOF
If rsTables.Fields("TABLE_TYPE") = "TABLE" Then
lstTabeller.AddItem fldField.Value
rsTables.MoveNext
Else
rsTables.MoveNext
End If
Loop
rsTables.Close
Set rsTables = Nothing

con.Close
Set con = Nothing

Private Sub lstTabeller_Click()
'Skriver ut tabellnamnet du har valt
lblNamn.Caption = lstTabeller.List(lstTabeller.ListIndex)
End Sub
</code>

Om du bara behöver datum och inte klockslag. Kan du skriva:
<code>
Dim strTag As String
Set rsTables = con.OpenSchema(adSchemaTables)
Set fldField = rsTables("TABLE_NAME")

Do Until rsTables.EOF
If rsTables.Fields("TABLE_TYPE") = "TABLE" Then
lstTabeller.AddItem fldField.Value
lstTabeller.ItemData(lstTabeller.NewIndex) = rsTables("DATE_CREATED")
End If
rsTables.MoveNext
Loop

rsTables.Close
Set rsTables = Nothing

con.Close
Set con = Nothing

Private Sub lstTabeller_Click()
IF lstTabeller.ListIndex = -1 Then
lblNamn.Caption = ""
lblSkapad.Caption = ""
Else
lblNamn.Caption = lstTabeller.List(lstTabeller.ListIndex)
lblSkapad.Caption = CDate(lstTabeller.ItemData(lstTabeller.ListIndex))
End If
End Sub
</code>

Om du ska ha ytterligare värden. Så kan du öppna recordsetet i click eventet:

<code>
Private Sub lstTabeller_Click()
Dim rsTables as ADODB.Recordset
IF lstTabeller.ListIndex = -1 Then
lblNamn.Caption = ""
lblSkapad.Caption = ""
Else
Set rsTables = con.OpenSchema(adSchemaTables,Array(Empty, Empty, lstTabeller.List(lstTabeller.ListIndex), Empty))
If rsTables.EOF
lblNamn.Caption = ""
lblSkapad.Caption = ""
Msgbox "Not found!"
Else
lblNamn.Caption = rsTables("TABLE_NAME")
lblSkapad.Caption = rsTables("DATE_CREATED")
End IF
rsTables.Close
Set rsTables = Nothing
End If

End Sub
</code>

Tack för hjälpen, behöver jag denna Dim strTag As String ser ut som du inte har använt denna string

/Mats

Nej. Den behövs inte.

OK! Det funkar nu tack å bock.
/Mats