Проблема организации игровой базы...

[Stilet]

Разобрался

Вот и молодец )

[dukales]

Возникла друга проблема:

//чистим старые данные   
ChoiceGame.SimpleDataSet.EmptyDataSet;
kol:=0;
ChoiceGame.SimpleDataSet.First;
  while not ChoiceGame.SimpleDataSet.Eof do
      begin
        ChoiceGame.SimpleDataSet.DataSet.CommandText := 'select state' +
                 ' from games where game = "k";';
        st := ChoiceGame.SimpleDataSet.FieldByName('state').Asstring;
        if st = '1' then
           begin
             kol:=kol+1;
           end;
        ChoiceGame.SimpleDataSet.Next;
      end;

ладно, предположим что у нас вообще ещё нет данных, но и такой код не работает:

ChoiceGame.SimpleDataSet.EmptyDataSet;
kol:=0;
ChoiceGame.SimpleDataSet.First;
  repeat
      begin
        ChoiceGame.SimpleDataSet.DataSet.CommandText := 'select state' +
                 ' from games where game = "k";';
        st := ChoiceGame.SimpleDataSet.FieldByName('state').Asstring;
        if st = '1' then
           begin
             kol:=kol+1;
           end;
        ChoiceGame.SimpleDataSet.Next;
      end;
 until not ChoiceGame.SimpleDataSet.Eof;

Выкидывает ошибку, что поля state нет в датасете. но как его не может быть, если я сделал выборку????
p.s. может лучше какую-нибудь другую связку компонентов для удачной работы моей игры с базой использовать? посоветуйте, пожалуйста!

[Аватар]

С этими компонентами не работал, так, предположительно. Возможно, если в CommandText помещается другой SELECT, то до этого фиелды нужно удалить?

[dukales]

Ну смотри. Я сначала сделал селект из таблицы users для авторизации пользователей. Очистил датасет. Теперь мне нужно сделать запрос в базу games с текущими играми, чтобы на форме выбора игры показать сколько человек где играют.

[Аватар]

Я имел ввиду выполнить ChoiceGame.SimpleDataSet.DataSet.Fi elds.Clear после очистки DataSet и перед новым запросом

[dukales]

function searchin(name: string; state:integer):integer;
var st: string;
    kol: integer;
begin
kol:=0;
//чистим старые данные
ChoiceGame.SimpleDataSet.EmptyDataSet;
ChoiceGame.SimpleDataSet.DataSet.Fields.Clear;

ChoiceGame.SimpleDataSet.First;
  repeat
      begin
        ChoiceGame.Label11.Caption:='ты лошара!';
        ChoiceGame.SimpleDataSet.DataSet.CommandText := 'select state' +
                 ' from games where game = "k";';
        st := ChoiceGame.SimpleDataSet.FieldByName('state').Asstring;
        if st = '1' then
           begin
             kol:=kol+1;
           end;
        ChoiceGame.SimpleDataSet.Next;
      end;
 until not ChoiceGame.SimpleDataSet.Eof;
searchin:=kol;
end;

В цикл заходит, в Label11 выводится надпись, но всё равно вылетает ошибка, мол не знает компилятор что такое state

[Аватар]

А в этом DataSet свойство Active есть? Если есть, то может с ним поиграться?

[dukales]

Уже игрался, бесполезно.

[dukales]

так какого решение проблемки то?