Witam!
Probuje w PhpMyAdmin utworzyc bazę, ktora wczesniej utworzylem w DBDesignerze, oto tabele:
http://imageshack.us/photo/my-images/856/bazaf.png/
a to blad, ktory sie pojawia
#1064 - You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'NULL,
nr_domu INTEGER UNSIGNED NULL,
nr_lokalu INTEGER UNSIGNED NULL,
k' at line 4
Przy usunieciu tej tabeli i przejsciu do nastepnej wystepuje ten sam blad.
od kiedy to mysql ma typy integer unsigned??
A tutaj?
Zapytanie SQL:
CREATE TABLE klienci(
idKlienci INTEGER NOT NULL AUTO_INCREMENT ,
imie VARCHAR NULL ,
nazwisko VARCHAR NULL ,
nip CHAR NULL ,
regon CHAR NULL ,
PRIMARY KEY ( idKlienci )
);
MySQL zwrócił komunikat:
#1064 - You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'NULL,
nazwisko VARCHAR NULL,
nip CHAR NULL,
regon CHAR NULL,
PRIMARY' at line 3
PS. Albo teraz po zmianach:
CREATE TABLE klienci(
idKlienci INTEGER NOT NULL AUTO_INCREMENT PRIMARY KEY ,
imie VARCHAR NULL ,
nazwisko VARCHAR NULL ,
nip VARCHAR NULL ,
regon VARCHAR NULL ,
);
MySQL zwrócił komunikat:
#1064 - You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'NULL,
nazwisko VARCHAR NULL,
nip VARCHAR NULL,
regon VARCHAR NULL,
)' at line 3
Problem rozwiazany.
Nalezalo dopisac do CHAR I VARCHAR np. (255)
Panowie mam problem którego nie mogę rozwiązać dam cały kod może wy do tego dojdziecie.
Jest to program pisany w pascalu chodzi mi o bląd w procedurze edytuj to jest numer 4. Po skąpilowaniu programu i próbie edycji wyskakuje błąd proszę o pomoc.
Program Baza_kalis;
uses crt;
type samochod = record
marka:string;
nazwa:string;
rok:byte;
silnik:byte;
typ:string;
end;
var
d:file of samochod;
o,y:array[1..30] of samochod;
b: samochod;
Procedure ar;
begin
writeln('# Program Jest baza danych dla komisu samochodowego#');
writeln('###########################################');
writeln('# Autor: #');
writeln('# Dawid Kalis #');
writeln('###########################################');
end;
Procedure dane;
var i,a:byte;
begin
clrscr;
Write('Podaj ile samochodow chcesz wpisac do bazy');
readln(a);
Assign(d,'baza.dat');
rewrite(d);
for i:=1 to a do
begin
clrscr;
writeln;
write('marka:'); readln(b.marka);
write('nazwa:'); readln(b.nazwa);
write('rok:'); readln(b.rok);
write('silnik');readln(o[i].silnik);
write('typ');readln(b.typ);
write(d,b);
end;
close(d);
end;
procedure wczytywanie;
var i,a: byte;
begin
assign(d,'baza.dat');
reset(d);
while not eof(d) do
begin
read(d, b);
Writeln;
write('marka: ', b.marka );
write('nazwa:', b.nazwa);
write('rok:', b.rok);
write('silnik', b.silnik);
write('typ', b.typ);
end;
end;
Procedure dopisanie;
var i,a:byte;
begin
clrscr;
assign(d,'baza.dat');
reset(d);
Seek(d,FileSize(d));
write('podaj liczbe samochodow do dopisania: ');
readln(a);
for i:=1 to a do
begin
clrscr;
Writeln;
write('marka:'); readln(b.marka);
write('nazwa:'); readln(b.nazwa);
write('rok:'); readln(b.rok);
write('silnik');readln(b.silnik);
write('typ');readln(b.typ);
write(d,b);
clrscr
end;
close(d);
end;
Procedure edytuj;
var i,pom:byte;
a: samochod;
t:string;
begin
clrscr;
assign(d,'baza.dat');
reset(d);
write('Podaj nazwe modelu ktorego chcesz edytowac: ');
readln(t);
while b.marka <> a.marka do
begin
read(d, a );
end;
Writeln('Podaj marke');
readln( b.marka );
Writeln('Podaj nazwe');
readln( b.nazwa );
Writeln('Podaj silnik');
readln( b.silnik );
Writeln('Podaj typ');
readln( b.typ );
Writeln;
write('marka:'); readln(b.marka);
write('nazwa:'); readln(b.nazwa);
write('rok:'); readln(b.rok);
write('silnik');readln(b.silnik);
write('typ');readln(b.typ);
write(d,b);
seek( d,Filepos(d) - sizeof( samochod) );// po zczytaniu ustawia sie na tej pozycji co byl rekort i zapisuje
write(d, b );
close(d);
end;
Procedure cys;
begin
clrscr;
end;
Procedure menu;
var q:byte;
begin
textcolor(4);
writeln('###########################################');
Writeln('# Witam w spisie aut co chcesz zrobic? #');
Writeln('# 1.Wprowadzic dane do bazy. #');
Writeln('# 2.Wypisac dane z bazy. #');
writeln('# 3.Dopisac samochody do bazy. #');
writeln('# 4.Edytowac samochod w bazie. #');
writeln('# 5.Wyczyscic ekran. #');
textcolor(4+128);
Writeln('# 6.Zakonczyc program. #');
writeln('###########################################');
textcolor(15);
readln(q);
if q=1 then
begin
dane;
menu;
end else;
if q=2 then
begin
wczytywanie;
menu;
end else;
if q=3 then
begin
dopisanie;
menu;
end else;
if q=4 then
begin
edytuj;
menu;
end else;
if q=5 then
begin
cys;
menu;
end else;
if q=6 then
begin
clrscr;
Writeln('Prosze nacisnac dowolny klawisz w celu potwierdzenia zamkniecia programu');
end;
end;
begin
ar;
menu;
readln;
end.
