Nickles - Das Onlinemagazin zum Mitmachen

Programmieren - alles kontrollieren 4.941 Themen, 20.715 Beiträge

Optionen

Access zugrifft über VB6

logo_2 am 06.05.2004, 00:00 / 1 Antworten / Flachansicht

hier ein auszug meines programmes, dabei bekommen ich fehlern aber ich möchte dass in nen textbox den ersten Eintrag.

müsste so was heissen wie

feld.textbox=rs.movefirst

dabei bekomme ich ne Fehlermeldung Funktion oder Variable erwartet

kann mir jemand dabei helfen???

danke

Option Explicit
Dim Cn As New ADODB.Connection

Private Sub Form_Load()
    With Cn

        .CursorLocation = adUseClient

.Mode = adModeShareDenyNone

    ' DB-Provider (Access 2000)
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=d:\test.mdb"
        .Open
    End With

    Dim Rs As New ADODB.Recordset

With Rs
    .CursorType = adOpenKeyset
    .LockType = adLockPessimistic
    .Open "SELECT Name FROM gruppe", Cn

End With

End Sub

T-Rex

logo_2 „Access zugrifft über VB6“

06.05.2004, 00:00 Optionen

Option Explicit



Private Cn As ADODB.Connection



Private Sub Form_Load()

Dim RS As ADODB.Recordset



Set Cn = New ADODB.Connection

With Cn

' DB-Provider (Access 2000)

.Provider = "Microsoft.Jet.OLEDB.4.0"

.Properties("Data Source").Value = "d:\test.mdb"

.CursorLocation = adUseClient

.Mode = adModeShareDenyNone

.Open

End With





With RS

Set .ActiveConnection = Cn

.CursorLocation = adUseClient

.CursorType = adOpenKeyset

.LockType = adLockPessimistic

.Source = "SELECT TOP 1 Name FROM gruppe;"

.Open Options:=adCmdText



If (Not (.EOF)) Then

Me.txtFeld.Text = .Fields("Name").Value

Else

Me.txtFeld.Text = vbNullString

End If



.Close

End With



Set RS = Nothing



End Sub

Forum rund um Visual Basic (ohne Registierzwang)