<quote>Køie
Hej alle.
jeg prøver at lære VBA i.f.b.m. accessdatabaser - og er i gang med de spæde babytrin - og har allerede brug for hjælp :-)
denne kode kan jeg ikke få til at fungere! - er der en der kan skrive hvad jeg har gjort galt eller komme med noget alternativt???
Private Sub hentdataitabeltest()
Dim MyDb As Database, TKalender As Recordset
Set MyDb = DBEngine.Workspaces(0).Databases(0)
Set TKalender = MyDb.OpenRecordset("kunde", DB_OPEN_TABLE) 'denne del driller!!!
TKalender.MoveFirst
Do Until TKalender.EOF
Debug.Print TKalender!fornavn
TKalender.MoveNext
Loop
MyDb.Close
End Sub
håber I kan hjælpe?
MVH
Martin
</quote>
Jeg er igang med samme projekt og har fundet ud af følgende der virker:
Den kode jeg har skrevet åbner godt nok et excel regneark, men du kan bare skifte stien til regnearket ud med din sti til din database og fjerne extended properties sætningen.
Koden gør det at den tager alle de data jeg har liggende i mit regneark og sætter ID for hver post ind i en listbox på en lille form. Dataene hentes med en sql forespørgsel.
Håber det var en hjælp
<code>
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.ConnectionString =
"Provider=Microsoft.jet.OLEDB.4.0;Data Source=K:\\Ansattes mapper\\Thomas\\connect.xls;Extended Properties=Excel 8.0;"
cnn.Open()
If cnn.State = 1 Then
MessageBox.Show("Der er forbindelse til databasen")
ElseIf cnn.State = 0 Then
MessageBox.Show("Der er ikke forbindelse til databasen")
End If
rs.Open("SELECT ID FROM [Student$]", cnn, ADODB.CursorTypeEnum.adOpenUnspecified)
Do While Not rs.EOF
ListBox1.Items.Add(rs.Fields!ID.Value)
rs.MoveNext()
Loop
</code>
Det skal lige siges at for at det skal virke, skal der være sat referencer ind til Microsoft ActiveX Data Object library og Microsoft ActiveX Data Object Recordset library.
[Redigeret d. 21/01-06 00:20:41 af Thomas Schmidt]