Problem mit MSSQL und AOD^^

R4Y · Beiträge: 41

hi leutz,

Ich muss für ein project ein programm basteln, was daten in eine datenbank einträgt...

die datenbank sieht wie folgt aus...

Player:

UID PID Admin anderes unwichtiges zeugs...

sooo...

das programm wird eine consolen application...

man soll nun eine id eingeben und das programm soll dann in die spalte Admin eine 3 eintragen. aber nciht in allen..
nur in der, wo UID = die id die man eingetragen hat...

hoffe das is so richtig ^^

ich habe es mit der AOD versucht scheitere aber schon beim anfang^^

hier meine source...

markieren

Delphi-Quelltext

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:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB;

type
  TForm1 = class(TForm)
    sql: TADOConnection;
    command: TADOCommand;
    procedure sqlAfterConnect(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.sqlAfterConnect(Sender: TObject);
begin
writeln('Connected to DB');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 id:string[255];
begin
writeln('Ban / Unban programm by R4Y');
writeln('------------------------------------------');
writeln('');
sql.Connected:=true;

if sql.Connected = true then
 begin
  writeln('');
  writeln('Enter Loginname or ID');
  readln(id);
   if id > '0' then
    begin
     sql.Execute('INSERT INTO Player where ID = ''command''  (''Admin'') VALUES (''3''));
    end;
 end;




end;

end.

joa...

ich hoffe ihr könnt mir helfen... in sachen datenbank in verbindung mit delphi bin ich noob^^

und bitte net lachen :p

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt

//edit
sry^^ kommt nicht mehr vor :p

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo,

bitte ändere den Titel des Topics, da er wenig über das eigentlich Thema verrät. Hier der entsprechende Absatz aus den Richtlinien:

1.2 Beiträge:

Bitte formuliere den Betreff Deiner Beiträge so, dass andere Mitglieder anhand dieser bereits das eigentliche Thema festmachen können. Beiträge wie etwa "Eine Anfängerfrage" oder "Weiß jemand, wie das geht?" lassen den Leser im Unklaren darüber, was das Thema der Diskussion ist.[...]

Einfach oben bei Deinem ersten Beitrag auf user defined image

klicken und den Titel ändern. Danke Dir!

Viele Grüße,
Christian

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

R4Y · Beiträge: 41

edited^^

R4Y · Beiträge: 41

k...ich glaube ich hab das nicht richtig erklärt...

ich habe wie gesagt eine tabelle(Player) dort ist eine spalte die Admin heißt und eine die PID heißt.
und noch ein paar andere spalten die unwichtig sind.

gut

mein programm soll nun folgendes tun:

ich schreibe z.b. 4.
dann sucht er in der tabelle die splate mit pid = 4. gut in der zeile soll er dann bei admin eine 4 eintragen.

ich hoffe das is nun detailiert genug :p

ich benutze übrigends die ADO.

hier is die tabelle nochmal ales querry:

markieren

Quelltext

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:

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Player]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[Player]
GO

CREATE TABLE [dbo].[Player] (
  [UID] [int] NOT NULL ,
  [PID] [int] IDENTITY (1, 1) NOT NULL ,
  [Admin] [tinyint] NOT NULL ,
  [Name] [varchar] (14) COLLATE Chinese_PRC_CS_AS NOT NULL ,
  [Class] [tinyint] NOT NULL ,
  [Specialty] [tinyint] NOT NULL ,
  [Level] [tinyint] NOT NULL ,
  [Contribute] [smallint] NOT NULL ,
  [Exp] [bigint] NOT NULL ,
  [GID] [int] NOT NULL ,
  [GRole] [tinyint] NOT NULL ,
  [Strength] [tinyint] NOT NULL ,
  [Health] [tinyint] NOT NULL ,
  [Intelligence] [tinyint] NOT NULL ,
  [Wisdom] [tinyint] NOT NULL ,
  [Dexterity] [tinyint] NOT NULL ,
  [CurHP] [smallint] NOT NULL ,
  [CurMP] [smallint] NOT NULL ,
  [PUPoint] [smallint] NOT NULL ,
  [SUPoint] [smallint] NOT NULL ,
  [Killed] [tinyint] NOT NULL ,
  [Map] [tinyint] NOT NULL ,
  [X] [int] NOT NULL ,
  [Y] [int] NOT NULL ,
  [Z] [int] NOT NULL ,
  [Face] [tinyint] NOT NULL ,
  [Hair] [tinyint] NOT NULL ,
  [RevivalId] [tinyint] NOT NULL ,
  [Rage] [int] NOT NULL 
) ON [PRIMARY]
GO

espen · Verfasst: Mi 27.12.06 11:51

Hallo,

Probiere mal

markieren

Delphi-Quelltext

1:	sql.Execute('UPDATE Player SET Admin = ' + id + ' WHERE pid = ' + id);

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme