
Zitat von
Fuerchau
Die ADO-Funktionen sind einfacher und flexibler.
Wo ist dabei der Unterschied? Ich habe beide Namen in der Online-Hilfe schon gelesen, weiß aber nicht, wo der Unterschied sein soll. Ich habe folgenden Code, um Daten zu lesen:
Code:
Private Function getConfig(ByRef cfg As Config, ByRef user As String) As Integer
Dim ws As Workspace
Dim db As Database
Dim rs As Recordset
Dim strConnection As String
Dim sqlStmt As String
Dim fldName, fldValue As String
getConfig = 0
Set ws = DBEngine.Workspaces(0)
Let strConnection = "ODBC;DSN=UDS"
Set db = ws.OpenDatabase("", False, False, strConnection)
Let sqlStmt = "SELECT * FROM UDSSMSW WHERE USER = '" & user & "'"
Set rs = db.OpenRecordset(sqlStmt)
If Not rs.EOF Then
cfg.feld = rs!FELD
/* Weitere Felder */
Else
getConfig = 10
End If
Set rs = Nothing
Set db = Nothing
Set ws = Nothing
End Function
Titus
Bookmarks