Ich habe mich bei asp net umgewöhnt.
Keine Entwurfszeit.
Delphi-Quellcode:
connStr := session['conn'].tostring;
conn := sqlConnection.Create(connStr);
s:= request.querystring[request.QueryString.keys[3]];
if (ord(s[1])> 47) and (ord(s[1])< 59) then
da := sqlDataAdapter.Create('select cast(lfbis as varchar(8))+'' ''+bewirtschafter+ '' '''+
'+strasse+'' ''+ort as name,ka,id from monatsbericht m '+
' left outer join betriebe b on b.LFBIS = m.BETRIEBNR '+
' where sperre = 1 and jahr = '+j.tostring+
' and monat = '+m.tostring+
' and bewirtschafter like '+
chr(39)+s+chr(39), conn)
else
da := sqlDataAdapter.Create('select cast(lfbis as varchar(8))+'' ''+bewirtschafter+ '' '''+
'+strasse+'' ''+ort as name,ka,id from monatsbericht m '+
' left outer join betriebe b on b.LFBIS = m.BETRIEBNR '+
' where sperre = 1 and jahr = '+j.tostring+
' and monat = '+m.tostring+
' and kontrolldatum = 0 and bewirtschafter like '+
chr(39)+s+'%'+chr(39), conn);
try
conn.Open;
da.Fill(dataSet1, 'suchen');
DataGrid1.DataBind();
finally conn.Close; end;
Keine Visuellen Komponenten. Mehr Platz auf Monitor. Übersichtlicher.
Vorschau über
SQL Monitor.
peter