Hallo Leute,
ich habe folgendes Problem;
in meiner sqlite Datenbank habe ich folgende Spalten; Artikel und Bezeichnung
Die Bezeichnung ist wie folgt: Abfalleimer Push Pin 50lt;matt steel;;
Jetzt möchte ich gerne die Bezeichnung ohne semicolon ausgeben, also sprich: Abfalleimer Push Pin 50lt matt steel
Mein VBA-Code (Siehe Anhang) funktioniert aber nicht ....
Danke!
LG,
Hans
Public Function Bezeichnung(Artikel As String) As String
' frühzeitiger Ausstieg wenn die übergebenen Parameter kein Ergebnis liefern können
If (Artikel = "") Then
Bezeichnung = "[nicht vorhanden !!]"
Exit Function
End If
Dim sql As String
Dim rec As ADODB.Recordset
ensureConnection
sql = "SELECT Artikel.Bezeichnung[1] as b1, Artikel.Bezeichnung[2] " & _
"as b2 FROM Artikel " & _
"WHERE (Artikel.Firma='" & ProAlpha_Firma$ & "') AND " & _
"(Artikel.Artikel='" & Artikel & "') AND " & _
"(Artikel.Sprache='D')"
Set rec = New ADODB.Recordset
rec.Open sql, conn
If rec.EOF Then
Bezeichnung = "[nicht vorhanden !!]"
Else
Bezeichnung = Trim(rec!B1 & " " & rec!B2)
End If
End Function
|