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 #4468 @ 20.12.04 00:01

221

Okay har fået rettet et par fejl som jeg troede ville være fejlen. Men det virker stadig ikke

Min kode se nu således ud:

Kode

procedure TForm1.FormCreate(Sender: TObject);
begin
MonthCalendar1.Date:= Date;
Pagecontrol1.ActivePageIndex:= 0;

        //ADOTable1
 ADOTable1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'calendar.mdb;Persist Security Info=False';
  ADOTable1.TableName:= 'Calendar';
        // Sæt hjælpevariablen CurDate til dags dato
  CurDate := Date;
        // Sørg for at ADOTable1 bruger filter
  ADOTable1.Filtered := True;
        // Sæt filter til Dags dato (default for TMonthCal.)
  ADOTable1.Filter := 'Dato = ' + DateTimeToStr(CurDate);
  Datasource1.DataSet:= ADOTable1;
        // Enable autom. redigering.
        // NB! Hvis redigering IKKE ønskes sættes denne til False
  Datasource1.AutoEdit := True;
        // Sæt datafield i DBMemo
      DBMemo1.DataField := 'Note';
  ADOTable1.Active := True;

        //ADOTable2
    ADOTable2.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'calendar.mdb;Persist Security Info=False';
  ADOTable2.TableName:= 'Alarm';
        // Sæt hjælpevariablen CurDate til dags dato
  CurDate := Date;
        // Sørg for at ADOTable1 bruger filter
  ADOTable2.Filtered := True;
        // Sæt filter til Dags dato (default for TMonthCal.)
  ADOTable2.Filter := 'Dato = ' + DateTimeToStr(CurDate);
  Datasource2.DataSet:= ADOTable2;
        // Enable autom. redigering.
        // NB! Hvis redigering IKKE ønskes sættes denne til False
  Datasource2.AutoEdit := True;
 Add2ListBox;
  ADOTable2.Active := True;

end;




procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
Pagecontrol1.ActivePageIndex:= 0;

        // 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
    ADOTable1.Filter := 'Dato = ' + DateTimeToStr(MonthCalendar1.Date);
        // Sæt CurDate til ny dato.
        // NB! Må først ændres EFTER Filteret er sat a.h.t. opdatering
        // 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;
      end;
end;

Bruger #4468 @ 20.12.04 16:11

221

Okay nu har jeg fundet fejlen. Men ved ikke helt fhvardan eg skal udbedre den.
Men det hber jeg en af jer kan hjælpe mig med.
Fejlen er at ADOTable2 bliver filtreret med den dato der er valgt i Monthcalendar. Men feltet den filtrerer i (Dato) indeholder både en dato og et klokkeslæt.
Det den gør er så at den filtrerer alle felter væk (fordi der ikke kun står datoen i dem).
Men den skal kun filtrere for datoen og så være ligeglad med at der også står et tidspunkt i den. Det må vel kunne lade sig gøre ved under
ADOTable2.Filter := 'Dato = ' + DateTimeToStr(MonthCalendar1.Date);

at skrive noget med

ADOTable2.Filter := FormatDateTime('dd-mm-yyyy', FieldByName('Dato').AsDateTime)+' = '+DateTimeToStr(MonthCalendar1.Date);

Men når ovenstående kode bliver kørt kommer den med en fejl:

Argumenterne har en forkert type eller er uden for det angivne område, eller der er opstået en konflikt mellem dem.

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

Bruger #4468 @ 22.12.04 00:25

221

Uhh det virker

Men et lille problem.. Den tilføjer ikke noget til DBListboxen når man starter programmet. Selvom der findes noget til den dato. Men hvis jeg trykker en enkelt gang på datoen (den den starter på) opdaterer den listboxen rigtigt.
Jeg har siddet og prøvet mig en del frem men kan ikke få det til at virke. Så håber der endnu en gang er en der kan hjælpe mig.

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

Bruger #6744 @ 22.12.04 08:12

I FormCreate sætter du da ADOTable2.Active := True FØR kald til Add2ListBox?
I din kode fra d. 20-12 sættes den først EFTER. Dette vil netop medføre at Datasættet er tomt ved opstart...

mvh
hsv

Bruger #4468 @ 22.12.04 11:38

221

I FormCreate sætter du da ADOTable2.Active := True FØR kald til Add2ListBox?
I din kode fra d. 20-12 sættes den først EFTER. Dette vil netop medføre at Datasættet er tomt ved opstart...

mvh
hsv

Den tilføjer stadig intet til min listbox ved opstart.

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

Bruger #6744 @ 22.12.04 13:54

Problemet må ligge i FormCreate.
Herunder har jeg listet mit testeksempel som virker. Dvs. den skriver i Listboksen ved opstart. Så kan du evt. sammenligne

Kode

procedure TForm1.FormCreate(Sender: TObject);
begin
 ADOTable1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'calendar.mdb;Persist Security Info=False';
  ADOTable1.TableName:= 'Calendar';
  ADOTable2.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'calendar.mdb;Persist Security Info=False';
  ADOTable2.TableName:= 'Alarm';
  // Sæt hjælpevariablen CurDate til dags dato
  CurDate := Date;
  // Sørg for at ADOTable1 bruger filter
  ADOTable1.Filtered := True;
  ADOTable2.Filtered := True;
  // Sæt filter til Dags dato (default for TMonthCal.)
  ADOTable1.Filter := 'Dato = ' + DateTimeToStr(CurDate);
  Datasource1.DataSet:= ADOTable1;
  Datasource2.DataSet:= ADOTable2;
  // Enable autom. redigering.
  // NB! Hvis redigering IKKE ønskes sættes denne til False
  Datasource1.AutoEdit := True;
  Datasource2.AutoEdit := True;
  // Sæt datafield i DBMemo
  DBMemo1.DataField := 'Note';
  ADOTable1.Active := True;
  ADOTable2.Active := True;
  Add2ListBox;
end;

mvh
Hsv

Bruger #4468 @ 22.12.04 18:48

221

Problemet må ligge i FormCreate.
Herunder har jeg listet mit testeksempel som virker. Dvs. den skriver i Listboksen ved opstart. Så kan du evt. sammenligne

Kode

procedure TForm1.FormCreate(Sender: TObject);
begin
 ADOTable1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'calendar.mdb;Persist Security Info=False';
  ADOTable1.TableName:= 'Calendar';
  ADOTable2.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'calendar.mdb;Persist Security Info=False';
  ADOTable2.TableName:= 'Alarm';
  // Sæt hjælpevariablen CurDate til dags dato
  CurDate := Date;
  // Sørg for at ADOTable1 bruger filter
  ADOTable1.Filtered := True;
  ADOTable2.Filtered := True;
  // Sæt filter til Dags dato (default for TMonthCal.)
  ADOTable1.Filter := 'Dato = ' + DateTimeToStr(CurDate);
  Datasource1.DataSet:= ADOTable1;
  Datasource2.DataSet:= ADOTable2;
  // Enable autom. redigering.
  // NB! Hvis redigering IKKE ønskes sættes denne til False
  Datasource1.AutoEdit := True;
  Datasource2.AutoEdit := True;
  // Sæt datafield i DBMemo
  DBMemo1.DataField := 'Note';
  ADOTable1.Active := True;
  ADOTable2.Active := True;
  Add2ListBox;
end;

mvh
Hsv

Hvor mærkeligt det end lyder så virker det ikke

Jeg har endda først prøvet at rette min kode så den lignede din og da de ikke virkede prøvede jeg også at copy-paste din kode ind men det virkede stadig ikke.
Har du nogen ideer til hvorfor eller hvad der kan være galt?

Kan det have noget at gøre med indstillingerne i databasen?

Eller indstillinger andre steder?

Hvis ikke lyder det nemlig meget mærkeligt at det virker ved dig men ikke hos mig

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

[Redigeret d. 23/12-04 00:37:03 af Rune Jensen (RoZ)]

Bruger #4468 @ 23.12.04 18:02

221

Og en ting til... Den tilføjer kun en linje til min listbox nu selvom der er 2 der passer til den dato? Det har virket før så det er altså rimeligt mærkeligt

Bruger #4468 @ 23.12.04 23:35

221

Hvis ikke du lige kan se hvorfor min kode ikek virker kan du så ikke sende dit projekt? Så jeg kan sammenligne.

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

Bruger #4468 @ 24.12.04 14:34

221

Har løst problemet med at den ikke tilføjede noget under OnCreate.
Klarede det ved at ændre

ADOTable1.Fields[0].Value := MonthCalendar1.Date;

til

ADOTable1.Fields[0].Value := CurDate;

Men har stadig det problem at den kun tilføjer en ting til min listbox ligemeget hvor mange der passer til den dato.

Er der nogen der kan hjælpe med at løse det problem?

Evt. HSV. Virker det i dit testprojekt? Altså kan den tilføje flere items?
Kunne virkeligt godt bruge noget hjælp

<< < 1 2 3 > >>

Fejl i database kode

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler