ChristianStettner
-
Gesamte Inhalte
6 -
Benutzer seit
-
Letzter Besuch
Inhaltstyp
Profile
Forum
Downloads
Kalender
Blogs
Shop
Beiträge von ChristianStettner
-
-
Hallo,
entschuldigung, wenn es nicht so rüber kommt. ich habe das Query hier untereinander geschrieben. Im Quellcode ist das " & _ das ende der Zeile.
-
Dim sSQLDUP As String =
"SELECT [uNTERNEHMEN].[FIRMA1],
[uNTERNEHMEN].[FIRMA2],
[uNTERNEHMEN].[sTRASSE],
[uNTERNEHMEN].[LKZ],
[uNTERNEHMEN].[PLZ],
[uNTERNEHMEN].[ORT],
[PERSONEN].[ANREDE],
[PERSONEN].[TITEL],
[PERSONEN].[VORNAME],
[PERSONEN].[NACHNAME],
[PERSONEN].[email_GESCHAEFTLICH1],
[PERSONEN].[TELEFON_GESCHAEFTLICH1],
[PERSONEN].[TELEFAX_GESCHAEFTLICH1]
" & _
"FROM UNTERNEHMEN INNER JOIN
(PERSONEN INNER JOIN
(MEDIEN INNER JOIN BEZIEHUNGEN ON
[MEDIEN].[MEDIUM_ID] = [bEZIEHUNGEN].[MEDIUM_ID_1]) ON [PERSONEN.PERSON_ID] = [bEZIEHUNGEN.PERSON_ID_1]) ON [uNTERNEHMEN.UN_ID] = [bEZIEHUNGEN.UN_ID_1]
" & _
"WHERE(([bEZIEHUNGEN].[KUNDE_ID_1] = " & frmHaupt.KID & ")
And ([bEZIEHUNGEN].[bEZIEHUNGSTYP_ID] = 4) And
([MEDIEN].[MEDIUM_ID] = " & MedienID & " )
And ([bEZIEHUNGEN].[FUNKTION_ID_1] = 1)
AND ([PERSONEN].[AUSGESCHIEDEN] = 0)) "
& _
"GROUP BY [uNTERNEHMEN].[FIRMA1],
[uNTERNEHMEN].[FIRMA2],
[uNTERNEHMEN].[sTRASSE],
[uNTERNEHMEN].[LKZ],
[uNTERNEHMEN].[PLZ],
[uNTERNEHMEN].[ORT],
[PERSONEN].[ANREDE],
[PERSONEN].[TITEL],
[PERSONEN].[VORNAME],
[PERSONEN].[NACHNAME],
[PERSONEN].[email_GESCHAEFTLICH1],
[PERSONEN].[TELEFON_GESCHAEFTLICH1],
[PERSONEN].[TELEFAX_GESCHAEFTLICH1]"
Hoffe es ist nun leichter zu lesen. Ich habe es nun mit den eckigen-Klammer versucht, bekomme aber die gleiche Fehlermeldung.
-
con.Open()
Dim sSQLDUP As String = "SELECT (UNTERNEHMEN.FIRMA1), (UNTERNEHMEN.FIRMA2), (UNTERNEHMEN.STRASSE), (UNTERNEHMEN.LKZ), (UNTERNEHMEN.PLZ), (UNTERNEHMEN.ORT), (PERSONEN.ANREDE), (PERSONEN.TITEL), (PERSONEN.VORNAME), (PERSONEN.NACHNAME), (PERSONEN.EMAIL_GESCHAEFTLICH1), (PERSONEN.TELEFON_GESCHAEFTLICH1), (PERSONEN.TELEFAX_GESCHAEFTLICH1) " & _
"FROM UNTERNEHMEN INNER JOIN (PERSONEN INNER JOIN (MEDIEN INNER JOIN BEZIEHUNGEN ON (MEDIEN.MEDIUM_ID) = (BEZIEHUNGEN.MEDIUM_ID_1)) ON (PERSONEN.PERSON_ID) = (BEZIEHUNGEN.PERSON_ID_1)) ON (UNTERNEHMEN.UN_ID) = (BEZIEHUNGEN.UN_ID_1) " & _
"WHERE(((BEZIEHUNGEN.KUNDE_ID_1) = " & frmHaupt.KID & ") And ((BEZIEHUNGEN.BEZIEHUNGSTYP_ID) = 4) And ((MEDIEN.MEDIUM_ID) = " & MedienID & " ) And ((BEZIEHUNGEN.FUNKTION_ID_1) = 1) AND ((PERSONEN.AUSGESCHIEDEN) = 0)) " & _
"GROUP BY (UNTERNEHMEN.FIRMA1), (UNTERNEHMEN.FIRMA2), (UNTERNEHMEN.STRASSE), (UNTERNEHMEN.LKZ), (UNTERNEHMEN.PLZ), (UNTERNEHMEN.ORT), (PERSONEN.ANREDE), (PERSONEN.TITEL), (PERSONEN.VORNAME), (PERSONEN.NACHNAME), (PERSONEN.EMAIL_GESCHAEFTLICH1), (PERSONEN.TELEFON_GESCHAEFTLICH1), (PERSONEN.TELEFAX_GESCHAEFTLICH1)"
Dim DRDUP_KuAP As DbDataReader
Dim SQLDUP_KuAP As New SqlCommand(sSQLDUP, con)
DRDUP_KuAP = SQLDUP_KuAP.ExecuteReader
Das ist der Code wo es ausgeführt wird. Danach werden die einzelnen Werte an Variablen übergeben, welche für die weitere Arbeit verwendet werden.
-
Hallo,
ich habe folgende Abfrage gebastelt.
SELECT (UNTERNEHMEN.FIRMA1), (UNTERNEHMEN.FIRMA2), (UNTERNEHMEN.STRASSE), (UNTERNEHMEN.LKZ), (UNTERNEHMEN.PLZ), (UNTERNEHMEN.ORT), (PERSONEN.ANREDE), (PERSONEN.TITEL), (PERSONEN.VORNAME), (PERSONEN.NACHNAME), (PERSONEN.EMAIL_GESCHAEFTLICH1), (PERSONEN.TELEFON_GESCHAEFTLICH1), (PERSONEN.TELEFAX_GESCHAEFTLICH1) FROM (UNTERNEHMEN) INNER JOIN ((PERSONEN) INNER JOIN ((MEDIEN) INNER JOIN (BEZIEHUNGEN) ON (MEDIEN.MEDIUM_ID) = (BEZIEHUNGEN.MEDIUM_ID_1)) ON (PERSONEN.PERSON_ID) = (BEZIEHUNGEN.PERSON_ID_1)) ON (UNTERNEHMEN.UN_ID) = (BEZIEHUNGEN.UN_ID_1) WHERE(((BEZIEHUNGEN.KUNDE_ID_1) = 730) And ((BEZIEHUNGEN.BEZIEHUNGSTYP_ID) = 4) And ((MEDIEN.MEDIUM_ID) = 4393 ) And ((BEZIEHUNGEN.FUNKTION_ID_1) = 1) AND ((PERSONEN.AUSGESCHIEDEN) = 0)) GROUP BY (UNTERNEHMEN.FIRMA1), (UNTERNEHMEN.FIRMA2), (UNTERNEHMEN.STRASSE), (UNTERNEHMEN.LKZ), (UNTERNEHMEN.PLZ), (UNTERNEHMEN.ORT), (PERSONEN.ANREDE), (PERSONEN.TITEL), (PERSONEN.VORNAME), (PERSONEN.NACHNAME), (PERSONEN.EMAIL_GESCHAEFTLICH1), (PERSONEN.TELEFON_GESCHAEFTLICH1), (PERSONEN.TELEFAX_GESCHAEFTLICH1)
Wenn ich diese Im SQL-Server-Query-Analyzer ausführe, bekomme ich auch meine Ergebnisse. Wenn ich sie im VB-Code ausführen möchte, bekomme ich die Fehlermeldung
Ungültiger Objektname 'UNTERNEHMEN'. Ungültiger Objektname 'PERSONEN'. Ungültiger Objektname 'MEDIEN'. Ungültiger Objektname 'BEZIEHUNGEN'.
Kann mir jemand sagen, wo der Fehler liegt?
Gruß
Christian
-
Hallo,
ich habe eine Frage. Ich bin noch recht frisch, was das Programmieren mit VB.Net angeht.
Ich will einem Gridview die Feldinhalte so darstellen, dass es wie folgt aussieht:
Gattung: AZB
Sprich die Spaltenüberschrift soll fett und der Wert normal geschrieben werden. Da ich mehrzeilige Gridview-Rows habe, soll die Überschrift mit in die Zelle eingetragen werden.
Ich habe ein Beispiel gefunden, wo das mit HTML-Tags gelöst wurde.
da sieht das so aus als Code
Dim column As GridViewDataColumn = TryCast(e.CellElement.ColumnInfo, GridViewDataColumn)
If column IsNot Nothing AndAlso column.OwnerTemplate.Caption = "Belegungseinheit" ThenIf column.FieldName = "Gattung_ID" Thene.CellElement.Text = "Gattung: " & e.CellElement.RowInfo.Cells("Gattung_ID").ValueEnd If
End If
wenn ich dies nun mit meinem Code ausprobiere, dann schreibt mir das Programm die Tags mit in die Spalte.
Anzeige im Grid:
<html><b>Name</b>: Mustermann, Max
Meine Frage nun:
Muss ich noch etwas einbinden, damit die Tags umgesetzt werden oder ist diese Lösung so nicht umsetzbar und ich muss mir eine andere Lösung überlegen? Kennt jemand eine alternative Lösung?
[VB.Net] SQL-Abfrage über mehrere Tabellen
in .NET
Geschrieben
Der Fehler tritt zur Laufzeit auf.
Der Connectionstring stimmt auch.