title image


Smiley SQL Abfrage aus einer dbf-Datei / VB6
Liebe Leute,



ich habe ein Problem mit einer SQL-Abfrage mittels der ich Daten aus einem DBF-File in VB6 laden möchte..



Hab zwar bei den Recherchen einiges gefunden, aber ich schaff es nicht, dass das Ergebnis der SQL Abfrage auch einen Wert liefert.. Anbei mein Beispiel, dass mir immer nur "Units" aber nie die Summe liefert..



Ich hoffe, das ihr mir helfen könnt..



Danke und LG



Andreas



Sub test()

Dim SQL As String

Dim Rs As Recordset

Dim lSumme As Long

Dim DB As Database

Dim dBASE_Name As String

Dim TableName As String

dBASE_Name = "C:\sms\smsdata"

TableName = "CSHPMXP0"

Set DB = DBEngine.OpenDatabase(dBASE_Name, dbDriverNoPrompt, True, "dBase IV;DATABASE=" & dBASE_Name)

SQL = "SELECT Sum(([PMXUSI]+[PMXUSO])) AS Units FROM " & TableName & " CSHPMXP0 GROUP BY CSHPMXP0.PMXDAY, CSHPMXP0.PMXMIC HAVING (CSHPMXP0.PMXMIC=2000)"

Set Rs = DB.OpenRecordset(SQL)

Do Until RST.EOF

Dim FeldNr As Long

For FeldNr = 0 To RST.Fields.Count - 1

Debug.Print FeldNr, RST.Fields(FeldNr).Name, RST.Fields(FeldNr)

Next

RST.MoveNext

Next

Rs.MoveNext

Loop

Set Rs = Nothing

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: