Autor |
Beitrag |
H0mer1234
Hält's aus hier
Beiträge: 4
|
Verfasst: Sa 08.05.10 10:01
Hallo,
ich programmiere gerade eine Datnbank mit eingebauter Suchfunktion. Wenn ich allerdings das Programm starten möchte kommt folgende Fehlermeldung (im Dateianhang)
Die Fehlermeldung erscheint immer dann, wenn ich Buchstaben eingeben möchte.
Wisst ihr eine Lösung?
--- Moderiert von Narses: Beiträge zusammengefasst---
Weiß keiner Rat?
Einloggen, um Attachments anzusehen!
|
|
jaenicke
Beiträge: 19276
Erhaltene Danke: 1741
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Sa 08.05.10 11:12
Hallo und im Forum!
Naja, das könnte daran liegen, dass die BDE seit vielen Jahren (fast 10) nicht mehr weiterentwickelt wird und die deshalb fast nirgends mehr verwendet wird.
Für ernsthafte Verwendung ist die BDE einfach nicht mehr geeignet.
Die Fehlermeldung hört sich danach an als ob in der Tabelle kein Index ausgewiesen ist. Aber genaueres zur BDE wird kaum noch jemand sagen können.
// EDIT:
Außerdem ist pushen hier im Forum erst nach 24 Stunden erlaubt...
Etwas mehr Geduld als 20 Minuten wirst du ja aufbringen können, wie soll in derart kurzer Zeit denn jemand antworten?!?
|
|
Xion
Beiträge: 1952
Erhaltene Danke: 128
Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
|
Verfasst: Sa 08.05.10 13:10
_________________ a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)
|
|
jaenicke
Beiträge: 19276
Erhaltene Danke: 1741
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Sa 08.05.10 14:00
Xion hat folgendes geschrieben : | Verstehe nicht warum das den Fehler produzieren sollte |
Das bezog sich auf die Frage direkt davor. (Ob keiner Rat weiß.)
Dass er schon nach 20 Minuten diese Frage gestellt hat ( ), habe ich ja erst hinterher gesehen...
Was Probleme angeht: Du Glücklicher, sei froh, dass es dir nicht wie vielen anderen ging...
|
|
Xion
Beiträge: 1952
Erhaltene Danke: 128
Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
|
Verfasst: Sa 08.05.10 14:34
jaenicke hat folgendes geschrieben : |
Was Probleme angeht: Du Glücklicher, sei froh, dass es dir nicht wie vielen anderen ging... |
Ok, ich muss zugeben, ich hab immer nur einfache Datenbanken gemacht...sozusagen einfach nur Tabellen. Dafür hats immer gereicht und es lief auch prima im Netzwerk (wenn man erstmal weiß wie ^^ aber das muss man immer erstmal wissen)
_________________ a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)
|
|
H0mer1234
Hält's aus hier
Beiträge: 4
|
Verfasst: Sa 08.05.10 19:16
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: 94: 95: 96: 97: 98: 99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 127: 128: 129: 130: 131: 132: 133: 134: 135: 136: 137: 138: 139: 140: 141: 142: 143: 144: 145: 146: 147: 148: 149: 150: 151: 152: 153: 154: 155: 156:
| unit UnitMus;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, DBTables, Mask;
type TForm1 = class(TForm) Table1: TTable; DataSource1: TDataSource; DBGrid1: TDBGrid; Panel1: TPanel; BitBtn1: TBitBtn; Panel2: TPanel; DBNavigator1: TDBNavigator; Table1TITEL: TStringField; Table1INTERPRET: TStringField; Table1ART: TStringField; Table1MEDIUM: TStringField; Table1EPOCHE: TStringField; Table1ERWERB: TDateField; RadioGroup1: TRadioGroup; Panel3: TPanel; DBEdit1: TDBEdit; Label1: TLabel; Table1AUTOR: TStringField; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit; DBEdit7: TDBEdit; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; DBComboBox1: TDBComboBox; RadioGroup2: TRadioGroup; RadioGroup3: TRadioGroup; Label8: TLabel; DBEdit4: TDBEdit; Table1DAUER: TStringField; Edit1: TEdit; procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure RadioGroup1Click(Sender: TObject); procedure RadioGroup2Click(Sender: TObject); procedure RadioGroup3Click(Sender: TObject); procedure Edit1Change(Sender: TObject); private public end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject); begin table1.DatabaseName:=ExtractfilePAth(paramstr(0)); if not table1.active then table1.Open; dbgrid1.Align:=alclient; panel3.Align:=alclient; dbgrid1.Hide; radiogroup1.itemindex:=0; end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if (table1.State = dsEdit)or (table1.State = dsInsert) then table1.Post; if table1.active then table1.Close; end;
procedure TForm1.RadioGroup1Click(Sender: TObject); begin panel3.visible:=Radiogroup1.ItemIndex=0; dbgrid1.visible:=Radiogroup1.ItemIndex=1; end;
procedure TForm1.RadioGroup2Click(Sender: TObject); begin If Radiogroup2.ItemIndex = 0 then table1.IndexName :='TITEL'; If Radiogroup2.ItemIndex = 1 then table1.IndexName :='INTERPRET'; If Radiogroup2.ItemIndex = 2 then table1.IndexName :='ART'; If Radiogroup2.ItemIndex = 3 then table1.IndexName :='MEDIUM'; If Radiogroup2.ItemIndex = 4 then table1.IndexName :='EPOCHE'; If Radiogroup2.ItemIndex = 5 then table1.IndexName :='ERWERB'; If Radiogroup2.ItemIndex = 6 then table1.IndexName :='AUTOR'; end;
procedure TForm1.RadioGroup3Click(Sender: TObject); begin If Radiogroup3.ItemIndex=0 then begin table1.Filter:=''; table1.filtered:=false; end;
If Radiogroup3.ItemIndex=1 then begin table1.Filter:= 'MEDIUM='+quotedstr('CD'); table1.filtered:=true; end;
If Radiogroup3.ItemIndex=2 then begin table1.Filter:= 'EPOCHE='+quotedstr('20.Jahrh'); table1.filtered:=true; end;
If Radiogroup3.ItemIndex=3 then begin table1.Filter:= 'INTERPRET='+quotedstr('Alexandra'); table1.filtered:=true; end;
If Radiogroup3.ItemIndex=4 then begin table1.Filter:='ART='+quotedstr('Oper'); table1.filtered:=true; end; end;
procedure TForm1.Edit1Change(Sender: TObject); begin table1.SetKey; table1INTERPRET.value:=Edit1.Text; table1.GotoNearest; end;
end. |
Moderiert von Narses: Delphi-Tags hinzugefügt
|
|
Xion
Beiträge: 1952
Erhaltene Danke: 128
Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
|
Verfasst: So 09.05.10 10:57
_________________ a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)
|
|
H0mer1234
Hält's aus hier
Beiträge: 4
|
Verfasst: Fr 14.05.10 15:40
|
|
H0mer1234
Hält's aus hier
Beiträge: 4
|
Verfasst: Sa 22.05.10 19:51
Für das Programm, das kein Mensch braucht auch noch ne 2 bekommen ^^
|
|
acnut
Beiträge: 172
Erhaltene Danke: 3
Windows 7, Windows Vista, Windows XP, Ubuntu, Kubuntu, Pardus
Delphi 2010 SV, Java Editor, VS 2010 SV
|
Verfasst: Sa 22.05.10 22:26
|
|
|