可以使用ADO來載入資料庫

bovon

Public Function GetLieferantZuArtikel(ByVal artikel As Long) As Long

'*******************************************************************************
'*  Liefert zur angegenbenen Artikelnummer den Lieferanten                     *
'*  Existiert der Artikel nicht, wird -1 zurückgegeben                          *
'*******************************************************************************

Dim dbcon As ADODB.Connection, rs As ADODB.Recordset
Dim sql As String


    sql = "SELECT ArtLief FROM tblArtikel WHERE ArtNr=" & artikel

    Set dbcon = CurrentProject.Connection
    Set rs = New ADODB.Recordset
    rs.Open sql, dbcon, adOpenStatic, adLockReadOnly
   
    If rs.RecordCount = 0 Then
        GetLieferantZuArtikel = -1
    Else
        GetLieferantZuArtikel = rs!ArtLief
    End If
   
    rs.Close
    Set dbcon = Nothing

End Function

Public Sub ArtikelErgänzenEK(ByVal artikel As Long, ByRef bezeichnung, ByRef ek, ByVal lief As String)

Dim dbcon As ADODB.Connection, rs As ADODB.Recordset
Dim sql As String

    sql = "SELECT ArtBezeichnung, ArtEKPreis FROM tblArtikel WHERE ArtNr=" & artikel

    Set dbcon = CurrentProject.Connection
    Set rs = New ADODB.Recordset
    rs.Open sql, dbcon, adOpenStatic, adLockReadOnly
   
    bezeichnung = rs!ArtBezeichnung
    ek = rs!ArtEKPreis
   
    rs.Close
    Set dbcon = Nothing

End Sub

Public Function GetArtikelVKPreis1(ByVal artikel As Long) As Currency

Dim dbcon As ADODB.Connection, rs As ADODB.Recordset

    Set dbcon = CurrentProject.Connection
    Set rs = New ADODB.Recordset
   
    rs.Open "tblArtikel", dbcon, adOpenStatic

    rs.Find "[ArtNr]=" & artikel
   
    If rs.EOF Then
        GetArtikelVKPreis1 = 0
    Else
        GetArtikelVKPreis1 = rs!ArtVKPreis
    End If
   
    rs.Close
    Set dbcon = Nothing
   

End Function

Public Function GetArtikelVKPreis2(ByVal artikel As Long) As Currency

Dim dbcon As ADODB.Connection, rs As ADODB.Recordset
Dim sql As String

    Set dbcon = CurrentProject.Connection
    Set rs = New ADODB.Recordset
    sql = "SELECT ArtVKPreis FROM tblArtikel WHERE ArtNr=" & artikel
   
    rs.Open sql, dbcon, adOpenStatic, adLockReadOnly

    If rs.EOF And rs.BOF Then
        GetArtikelVKPreis2 = 0
    Else
        GetArtikelVKPreis2 = rs!ArtVKPreis
    End If
   
    rs.Close
    Set dbcon = Nothing
   

End Function


Public Function GetArtikelVKPreis3(ByVal artikel As Long) As Currency

Dim dbcon As ADODB.Connection, rs As ADODB.Recordset
Dim sql As String

    Set dbcon = CurrentProject.Connection
    Set rs = New ADODB.Recordset
    sql = "EXECUTE spGetArtikelPreis " & artikel
   
    rs.Open sql, dbcon, adOpenStatic, adLockReadOnly
    GetArtikelVKPreis3 = rs!preis
   
    rs.Close
    Set dbcon = Nothing
   

End Function



Public Function GetArtikelVKPreis4(ByVal artikel As Long) As Currency

Dim dbcon As ADODB.Connection, rs As ADODB.Recordset
Dim sql As String

    Set dbcon = New ADODB.Connection
    dbcon.Open "File Name=C:\TIKO.udl", , "1152KK"
   
    Set rs = New ADODB.Recordset
    sql = "SELECT ArtVKPreis FROM tblArtikel WHERE ArtNr=" & artikel
   
    rs.Open sql, dbcon, adOpenStatic, adLockReadOnly

    If rs.EOF And rs.BOF Then
        GetArtikelVKPreis4 = 0
    Else
        GetArtikelVKPreis4 = rs!ArtVKPreis
    End If
   
    rs.Close
    Set dbcon = Nothing
   

End Function

Public Function GetArtikelVKPreis5(ByVal artikel As Long) As Currency

Dim dbcon As ADODB.Connection, rs As ADODB.Recordset
Dim sql As String

    Set dbcon = New ADODB.Connection
    'dbcon.Open "rovider=SQLOLEDB.1;Integrated Security=SSPIersist Security Info=False;Initial Catalog=TIKO;Data Source=KK07"
    dbcon.Provider = "SQLOLEDB"
    dbcon.Open "Integrated Security=SSPIersist Security Info=False;Initial Catalog=TIKO;Data Source=KK07"
   
   
    Set rs = New ADODB.Recordset
    sql = "SELECT ArtVKPreis FROM tblArtikel WHERE ArtNr=" & artikel
   
    rs