title image


Smiley Re: SQL Abfrage aus einer dbf-Datei / VB6
Hi Thoraf,



danke für deine schnelle Antwort.. yep ich hab den SQL String in MSQuery probiert und da klappt es ....



Hey.. hab den Fehler behoben.. frag mich nicht wie, aber jetzt klappt es!!



Vielen Dank auf jeden Fall für deine Unterstützung!!



GLG Andreas



.. so dieser Code passt:



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 HAVING (CSHPMXP0.PMXMIC=2000)"

Set Rs = DB.OpenRecordset(SQL)

Do Until Rs.EOF

Dim FeldNr As Long

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

Text1.Text = Rs.Fields(FeldNr)

Next

Rs.MoveNext

Loop

Set Rs = Nothing

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: