If Exists abfrage , aber wie?

[Naui]

Hallo ich hab folgenes Problem und zwar möchte ich mit diesem sql befehl

If Exists("SELECT * FROM BXT03PF WHERE SYPGM = 'Marius'") Then..

herrausfinden ob dies schon in der Datei steht, müssteja eigentlich möglich sein, jedoch wirft er mir den Fehlr
"Typen unverträglich" aus, wieso ? Ist der SQL Befehl falsch ?

Bitte um hilfe!

 

[Yaslaw]

MS Access? Oder ein Zugriff auf Oracle? Oder auf MySQL?

Exists? hm... Wirklich VB6? Ich kenn den Befehl so nicht.

 

[tombe]

Ich bin zu lange aus VB raus um das noch aus dem Kopf zu schreiben. Aber du kannst nicht mit IF eine SQL Anweisung ausführen bzw. deren Ergebnis prüfen.

Müsste irgendwie so aussehen:

Dim db as Database
Dim rs as Recordset
Set db = Opendatabase("xyz")
Set rs = "SELECT * FROM BXT03PF WHERE SYPGM = 'Marius'"

If (rs.count <> 0) Then

end if

 

[Naui]

Hm wenn ih das mache

rs.Open "Select * from nauerz.bxt03pf where SYPGM = 'Marius3'"
If rs.fields.count  > 0 Then
MsgBox "Vorhanden"
Exit Sub
Else
cn.Execute "INSERT INTO " & Form1.txtBib.Text & " (" & txttable & ") VALUES ('" & txtoutput & "')"
End If
rs.Close
End If

Dann gibt er mir an das rs.fields.count 19 ergibt -.- wieso ?

 

[tombe]

Fields.Count bedeutet doch auch das er die Anzahl der Felder in der Tabelle zählt !!

Bei dir müsste rs.RecordCount den gewünschten Erfolg bringen.