delphi - Fejl i database kode - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

<< < 1 2 3 > >>

Bruger #4468 @ 16.12.04 18:54

Kode

ADOQuery.SQL.Text :=
  'INSERT INTO Alarm (Dato, Tidspunkt, AlarmOptionLyd, AlarmOptionProgram,'+
  '                  AlarmOptionBesked, AlarmOptionLås, AlarmOptionLogOff,'+
  '                  AlarmOptionLuk, AlarmOptionGenstart, AlarmOptionForce,'+
  '                  AlarmLyd, AlarmProgram, AlarmBesked)'+
  '  VALUES'+
  ' (:Dato,:Tidspunkt,:Option1,:Option2,:Option3,:Option4,:Option5,'+
  '  :Option6,:Option7,:Opton8,:AlarmLyd,:AlarmProgram,:Alarmbesked)';

ADOQuery.Parameters.ParamByName('Dato').Value := now;
ADOQuery.Parameters.ParamByName('Tidspunkt').Value := now;
ADOQuery.Parameters.ParamByName('Option1').Value := 'Jep, det er en option';
...

ADOQyery.ExecSQL();

Når jeg kører denne kode (ikke når programmet compiles) får jeg en fejl om at et indekparameter eller primær nøgle kan ikke indeholde en null værdi.
Dato er min primære nøgle.

Nogen der kan se hvad der er galt?

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

[Redigeret d. 16/12-04 18:58:37 af Rune Jensen (RoZ)]

22 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 2 karma

Sorter efter stemmer Sorter efter dato

Bruger #955 @ 16.12.04 20:49

1.624

Der skal vist justeres lidt på dato-parameteren, den skal vist ændres fra:

ADOQuery.Parameters.ParamByName('Dato').Value := now;
til
ADOQuery.Parameters.ParamByName('Dato').Value := FormatDateTime(ShortDateFormat,now);

men det kommer også an på hvordan din database og tabel er sat op.

MvH

Stefan Svensson
http://fusket.frac.dk

[Redigeret d. 16/12-04 20:50:34 af Stefan Svensson]

Bruger #6744 @ 21.12.04 09:44

Du skal bruge Event'en OnFilterRecord i stedet for Filter på ADOTable2.

Kode

uses
  DateUtil;  // pga. DateOf-funktionen
....
procedure TForm1.ADOTable2FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  Accept := DateOf(DataSet['Dato']) = CurDate;
end;

NB! Du bør fjerne Filter-expression på ADOTable2, eftersom du ellers kører med et dobbelt filter, hvilket som oftest resulterer i et tomt dataset...

Kode

...
  //ADOTable2
  ADOTable2.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'calendar.mdb;Persist Security Info=False';
  ADOTable2.TableName:= 'Alarm';
  //**FJERNET** CurDate := Date; ER sat tidl. for ADOTable1...
  // Sørg for at ADOTable2 bruger filter
  ADOTable2.Filtered := True;
  //**FJERNET**  ADOTable2.Filter := 'Dato = ' + DateTimeToStr(CurDate);
  Datasource2.DataSet:= ADOTable2; //
  // Enable autom. redigering.
  Datasource2.AutoEdit := True;
  ADOTable2.Active := True;
  Add2ListBox;
...

Endelig skal du sørge for opdatering ved datoskift. F.eks. ved at resette filteret således:

Kode

  // undgå unødv. overhead og sæt kun filter ved reelle datoskift
  if CurDate <> MonthCalendar1.Date then
  begin
    // Fjern filtrering på ADOTable2
    ADOTable2.Filtered := False;
    // opdater filter. NB! Medfører opdatering af evt. ændret Note
    ADOTable1.Filter := 'Dato = ' + DateTimeToStr(MonthCalendar1.Date);
    // Sæt CurDate til ny dato.
    // NB! Må først ændres EFTER ADOTable1.Filter er sat a.h.t. opdatering
    CurDate := MonthCalendar1.Date;
    // Sæt filtrering på ADOTable2 med ny dato
    ADOTable2.Filtered := True;
    Add2ListBox;
  end;

OnFilterRecord giver meget større fleksibilitet m.h.t. filtrering, men er til gengæld også (lidt) langsommere...

mvh
hsv

[Redigeret d. 21/12-04 09:48:58 af HSV]

Bruger #5789 @ 16.12.04 19:00

640

har du forsøgt at udskrive den sql sætning før du sætter den ind ? det er højst sandsynligt noget med at den ikke lige får ordentligt fat i dato, eller formatet ikke er rigtigt.. altså ikke passer til feltet primær nøgle..

skriv lige den her, og gerne sql koden til oprettelse af tabellen..

Med venlig hilsen
/Jokke Jensen
www.jj-multimediedesign.dk

Bruger #4468 @ 16.12.04 19:25

221

Tja koden ser ud som den skal. og tabellen er oprettet i forvejen.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bruger #5789 @ 16.12.04 20:02

640

Ja men jeg tænkte nu på at du kunne forsøge at udskrive sql koden, du generere.. det er ikke til at gennemse hvad dine variabler udskriver for os..

Jeg mener.. hvis alt ser ud som det skal, burde det også virke..

Med venlig hilsen
/Jokke Jensen
www.jj-multimediedesign.dk

[Redigeret d. 16/12-04 20:41:51 af Jokke Jensen]

Bruger #4468 @ 16.12.04 22:50

221

Der skal vist justeres lidt på dato-parameteren, den skal vist ændres fra:

ADOQuery.Parameters.ParamByName('Dato').Value := now;
til
ADOQuery.Parameters.ParamByName('Dato').Value := FormatDateTime(ShortDateFormat,now);

men det kommer også an på hvordan din database og tabel er sat op.

MvH

Stefan Svensson
http://fusket.frac.dk

[Redigeret d. 16/12-04 20:50:34 af Stefan Svensson]

Ups skrev vist min gamle kode.. Min Dato linje ser således ud:

ADOQuery.Parameters.ParamByName('Dato').Value := Dato;

Dato er så en string.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bruger #4468 @ 16.12.04 23:16

221

Har prøvet i min database at ændre feltet Dato fra Dato og klokkeslet til tekst. Det skulle gøre det samme som din kode men jeg får stadig samme fejl.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bruger #4468 @ 16.12.04 23:43

221

Nu fik jeg det sørme til at virke! Men nu har jeg et andet problem.
Når man trykker på min MonthCalender skal den søge efter og tilføje alle rækker hvor den valgte dato i MonthCalender står i feltet Dato.
Det har jeg indtil nu brugt denne kode til:

Kode

   ADOTable2.TableName:= 'Alarm';
  // undgå unødv. overhead og sæt kun filter ved reelle datoskift
  if CurDate <> MonthCalendar1.Date then
  begin
    // opdater filter. NB! Medfører opdatering af evt. ændret Note
    ADOTable2.Filter := 'Dato = ' + DateTimeToStr(MonthCalendar1.Date);
    // Sæt CurDate til ny dato.
    // NB! Må først ændres EFTER Filteret er sat a.h.t. opdatering
    CurDate := MonthCalendar1.Date;
    Add2ListBox;

og preceduren Add2Listbox:

Kode

procedure TForm1.Add2ListBox;

  function Commarize(S: array of String): String;
  var
    I: Integer;
  begin
    Result := '';
    for I := Low(S) to High(S) do
    begin
      Result := Result + S[I];
      if I < High(S) then Result := Result + ', ';
    end;
  end;

begin
  with ADOTable2 do
    if not IsEmpty then  // Check om dataset er tomt

      DBListBox1.AddItem(Commarize([        FormatDateTime('hh:mm:ss', FieldByName('Tidspunkt').AsDateTime),
                                  FieldByName('AlarmOptionLyd').AsString,
                                  FieldByName('AlarmOptionProgram').AsString,
                                  FieldByName('AlarmOptionBesked').AsString,
                                  FieldByName('AlarmOptionLås').AsString,
                                  FieldByName('AlarmOptionLogAf').AsString,
                                  FieldByName('AlarmOptionLuk').AsString,
                                  FieldByName('AlarmOptionGenstart').AsString,
                                  FieldByName('AlarmOptionForce').AsString]), nil);
end;

men den virker ikke længere.. Hvad skal jeg ændre?

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bruger #6744 @ 17.12.04 13:43

Det ser for mig ud som om du glemmer at aktivere ADOTable2 (samt muligvis at aktivere filteret). Når du sætter TableName lukkes datasættet.

Indsæt/tilføj jvnf. flg.:

Kode

  ADOTable2.Active := False; 
  ADOTable2.TableName:= 'Alarm';
  ADOTable2.Filtered := True; // Har du muligvis gjort...
  // undgå unødv. overhead og sæt kun filter ved reelle datoskift
  if CurDate <> MonthCalendar1.Date then
  begin
    // opdater filter. NB! Medfører opdatering af evt. ændret Note
    ADOTable2.Filter := 'Dato = ' + DateTimeToStr(MonthCalendar1.Date);
    // Sæt CurDate til ny dato.
    // NB! Må først ændres EFTER Filteret er sat a.h.t. opdatering
    ADOTable2.Active := True; // AKTIVER
    CurDate := MonthCalendar1.Date;
    Add2ListBox;
  end else
    ADOTable2.Active := True; // AKTIVER m/gl. filter ?

eller bedre (?) idet datasættet har været lukket...

  ADOTable2.Active := False;
  ADOTable2.TableName:= 'Alarm';
  ADOTable2.Filtered := True; // Har du muligvis gjort...
  ADOTable2.Filter := 'Dato = ' + DateTimeToStr(MonthCalendar1.Date);
  ADOTable2.Active := True; // AKTIVER
  CurDate := MonthCalendar1.Date;
  Add2ListBox;

mvh
hsv

Bruger #4468 @ 17.12.04 16:01

221

Det ser for mig ud som om du glemmer at aktivere ADOTable2 (samt muligvis at aktivere filteret). Når du sætter TableName lukkes datasættet.

Indsæt/tilføj jvnf. flg.:

Kode

  ADOTable2.Active := False; 
  ADOTable2.TableName:= 'Alarm';
  ADOTable2.Filtered := True; // Har du muligvis gjort...
  // undgå unødv. overhead og sæt kun filter ved reelle datoskift
  if CurDate <> MonthCalendar1.Date then
  begin
    // opdater filter. NB! Medfører opdatering af evt. ændret Note
    ADOTable2.Filter := 'Dato = ' + DateTimeToStr(MonthCalendar1.Date);
    // Sæt CurDate til ny dato.
    // NB! Må først ændres EFTER Filteret er sat a.h.t. opdatering
    ADOTable2.Active := True; // AKTIVER
    CurDate := MonthCalendar1.Date;
    Add2ListBox;
  end else
    ADOTable2.Active := True; // AKTIVER m/gl. filter ?

eller bedre (?) idet datasættet har været lukket...

  ADOTable2.Active := False;
  ADOTable2.TableName:= 'Alarm';
  ADOTable2.Filtered := True; // Har du muligvis gjort...
  ADOTable2.Filter := 'Dato = ' + DateTimeToStr(MonthCalendar1.Date);
  ADOTable2.Active := True; // AKTIVER
  CurDate := MonthCalendar1.Date;
  Add2ListBox;

mvh
hsv

Hmm den tilføjer ikke noget til min listbox.
Det er som om den ikke fr filtrerer rigtigt. Tror du jeg skal bruge noget med FormatTime og så dato format?

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

[Redigeret d. 18/12-04 00:29:22 af Rune Jensen (RoZ)]

<< < 1 2 3 > >>

Fejl i database kode

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler