AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Parameter hat keinen Standardwert

Parameter hat keinen Standardwert

Ein Thema von Kali678 · begonnen am 12. Apr 2016 · letzter Beitrag vom 13. Apr 2016
Antwort Antwort
Kali678

Registriert seit: 12. Mär 2016
3 Beiträge
 
#1

Parameter hat keinen Standardwert

  Alt 12. Apr 2016, 15:35
Datenbank: MS Access • Version: 2013 • Zugriff über: Delphi Seattle
Guten Tag Community,
da mir die Suche nicht wirklich weitergeholfen hat, muss ich wohl ein neues Thema erstellen.
Mein Problem liegt darin, dass ich beim Ausführen meines Programmes die folgendeFehlermeldung bekomme

---------------------------
Bestandsliste
---------------------------
ParametertblBestandsliste.Behaelter hat keinen Standardwert.
---------------------------
OK
---------------------------

Diese Fehlermeldung kommt allerdings spät nach der Initialisierung der DB Komponenten, während Labels und Co. bennant werden

Hier mal der Code in dem die Datenbank initialisiert wird:
Code:
Function InitDB: Boolean;
var
  Datenbankname, ConnString: String;

Begin
  Result := true;
  Try
    Con1 := TADOConnection.Create(Nil);
    qryDat := TADOQuery.Create(Nil);
    qryWork := TADOQuery.Create(Nil);
    qryBestand := TADOQuery.Create(Nil);
    qryStamm := TADOQuery.Create(Nil);
    dsBestand := TDataSource.Create(Nil);
    dsWork := TDataSource.Create(Nil);
    dsDat := TDataSource.Create(Nil);
    dsStamm := TDataSource.Create(Nil);

    Datenbankname := DBPath;
    ConnString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Datenbankname +
      ';Mode=share deny none;Persist Security Info=False';

    SqlText :=
      'SELECT tblBestandsliste.ArtName, tblBestandsliste.ArtAnzahl, tblLagerraum.Lagerraum, tblBehaelter.Behaeltername,'
      + ' tblKategorie1.KatName, tblKategorie2.KatName, tblBestandsliste.BeschFeld, tblBestandsliste.AnlagFeld,'
      + ' tblBestandsliste.EinzelPreis, tblBestandsliste.Lieferant, tblBestandsliste.LieferDatum,'
      + ' tblBestandsliste.EintragsDatum, tblBestandsliste.ID FROM'
      + ' ((tblLagerraum INNER JOIN(tblBehaelter INNER JOIN tblBestandsliste ON tblBehaelter.ID = tblBestandsliste.Behaelter)ON'
      + ' tblLagerraum.ID = tblBestandsliste.Lagerraum) INNER JOIN tblKategorie1 ON tblBestandsliste.Kategorie1 = tblKategorie1.ID)'
      + ' INNER JOIN tblKategorie2 ON tblBestandsliste.Kategorie2 = tblKategorie2.ID';

      Con1.Connected := False;
    Con1.Provider := 'Microsoft.Jet.OLEDB.4.0';
    Con1.ConnectionString := ConnString;
    Con1.LoginPrompt := False;
    Con1.Connected := true;

    qryBestand.SQL.Text := 'select * from tblBestandsliste'{SqlText};
    dsBestand.DataSet := qryBestand;
    dsBestand.Enabled := true;

    qryStamm.SQL.Text := 'select * from tblLagerraum';
    dsStamm.DataSet := qryStamm;
    dsStamm.Enabled := true;

    qryWork.SQL.Text := 'select * from tblBehaelter';
    dsWork.DataSet := qryWork;
    dsWork.Enabled := true;

    qryDat.Connection := Con1;
    qryWork.Connection := Con1;
    qryBestand.Connection := Con1;
    qryStamm.Connection := Con1;

    qryStamm.Open;
    qryWork.Open;
    qryBestand.Open;

    FrmMAin.Grid.DataSource := dsBestand;
  Except
    Result := False;
  End;
End;
Den SQL Text der qryBestand habe ich Testweise durch einen kurzen Text ersetzt, allerdings erfolgslos.
Hier die Stelle im Programm an dem die Fehlermeldung kommt (letzte Zeile)
Code:
procedure TFrmMain.InitForm();
// ******************************************************************************
// *********************** Form Initialisieren **********************************
// ******************************************************************************
var
  i, ArtAnz: integer;
begin
  GridMainShow();

  for i := 0 to 5 do // Grid.Columns.Count - 2 do
    cbxSearch.Items.Add(Grid.Columns[i].Title.Caption);

  cbxSearch.Items.Delete(1);

  cbxSort.Items.Add(Grid.Columns[0].Title.Caption);
  cbxSort.Items.Add(Grid.Columns[2].Title.Caption);
  cbxSort.Items.Add(Grid.Columns[3].Title.Caption);
  cbxSort.Items.Add('Kategorie');

  cbxSearch.ItemIndex := 0;
  cbxSort.ItemIndex := 0;
  cbxSearch.DropDownCount := 11;

  FeldNameSearch[0] := 'ArtName';
  FeldNameSearch[1] := 'Lagerraum';
  FeldNameSearch[2] := 'Behaeltername';
  FeldNameSearch[3] := 'tblKategorie1.KatName';
  FeldNameSearch[4] := 'tblKategorie2.KatName';

  FeldNameSort[0] := 'ArtName';
  FeldNameSort[1] := 'Lagerraum';
  FeldNameSort[2] := 'Behaeltername';
  FeldNameSort[3] := 'tblKategorie1.KatName, tblKategorie2.KatName';

  Search := '';
  SortBy := 'ArtName';
  SearchAfter := 'ArtName';

  cbxSearch.ItemIndex := 0;
  cbxSort.ItemIndex := 0;

  lblSearch.Caption := 'Suchbegriff';
  edtSearch.Text := '';
In einem Testprogramm, dass ich eben schnell erstellt habe geht alles wunderbar mit dem langen String.

Hier auch nochmal der Codes des Testprogrammes (Die Einrichtung der DB Komponenten hab ich diesmal nicht über den Code gemacht)
Code:
procedure TForm2.FormCreate(Sender: TObject);
begin
  ADOQuery1.SQL.Text :=
    'SELECT tblBestandsliste.ArtName, tblBestandsliste.ArtAnzahl, tblLagerraum.Lagerraum, tblBehaelter.Behaeltername,' +
    ' tblKategorie1.KatName, tblKategorie2.KatName, tblBestandsliste.BeschFeld, tblBestandsliste.AnlagFeld,' +
    ' tblBestandsliste.EinzelPreis, tblBestandsliste.Lieferant, tblBestandsliste.LieferDatum,' +
    ' tblBestandsliste.EintragsDatum, tblBestandsliste.ID FROM' +
    ' ((tblLagerraum INNER JOIN(tblBehaelter INNER JOIN tblBestandsliste ON tblBehaelter.ID = tblBestandsliste.Behaelter)ON'
    + ' tblLagerraum.ID = tblBestandsliste.Lagerraum) INNER JOIN tblKategorie1 ON tblBestandsliste.Kategorie1 = tblKategorie1.ID)'
    + ' INNER JOIN tblKategorie2 ON tblBestandsliste.Kategorie2 = tblKategorie2.ID';
  ADOQuery1.Open;
end;
Momentan echt ratlos

Edit:
Also wenn ich im Original Code den Original SQL Text wieder einsetze (qryBestand.SQL.Text := SQLText kommt folgende Fehlermeldung:
---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Bestandsliste.exe ist eine Exception der Klasse EOleException mit der Meldung 'Für mindestens einen erforderlichen Parameter wurde kein Wert angegeben' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------
Dann stürzt das Programm schon beim Öffnen der Query ab.
Vielleicht hilft das ja noch
Miniaturansicht angehängter Grafiken
unbenannt.png   unbenannt2.png  

Geändert von Kali678 (12. Apr 2016 um 15:48 Uhr) Grund: Mehr Informatioen
  Mit Zitat antworten Zitat
Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Parameter hat keinen Standardwert

  Alt 12. Apr 2016, 16:10
Ist edtSearch ein TEdit oder was ist das?
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.269 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Parameter hat keinen Standardwert

  Alt 12. Apr 2016, 17:12
Hallo,

edtSearch.Text := '';

Wenn das wirklich die Zeile ist (auskommentieren?), was hast du denn im OnChange dieses Edits stehen?


Heiko
Heiko
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#4

AW: Parameter hat keinen Standardwert

  Alt 12. Apr 2016, 18:13
Das ist eine Access-/Ado-typische Fehlermeldung, die immer dann auftritt, wenn man irgendwo in den Tabellen- und/oder Spaltennamen einen Schreibfehler hat.

Alles, was die Schnittstelle nicht als "datenbankzugehörig" identifizieren kann, wird als Parameter betrachtet, dem bei 'nem Fehler, natürlich kein Wert zugewiesen wurde.

Die Fehlermeldung ist irgendwie absolut irreführend.

1. Prüfung: Innerhalb des SQLs genau auf Schreibfehler prüfen.

2. Prüfung: Bei Datenbankkomponenten, die zugewiesenen Feld- und Tabellennamen bzw. TDataSource ... überprüfen.

Mit an Sicherheit grenzender Wahrscheinlichkeit gibt es irgendwo einen banalen Schreib- bzw. Zuordnungsfehler, in SQL-Statements bitte auch auf fehlende Leerzeichen ... achten.
  Mit Zitat antworten Zitat
Kali678

Registriert seit: 12. Mär 2016
3 Beiträge
 
#5

AW: Parameter hat keinen Standardwert

  Alt 13. Apr 2016, 09:16
Danke für die Antworten, das Problem lag darin, dass das Programm den Datenpfad für die Datenbank "vertauscht" hat und auf eine alte Datenbank zugegriffen hat, die den neuen Anforderungen noch nicht entsprach. Also eigentlich ein ganz schöner Schusselfehler
Trotzdem danke für die Antworten
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:00 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz