Bazy danych. Wyświetlanie SQL Query

[Ho88it]

Witam ponownie wszystkich.

Zabrałem się za kolejny program, napotkałem kilka problemów a w poradniku CyfrowegoBarona nie ma ich rozwiązania...

Bazę zbudowałem na komponentach:

Kod: Zaznacz cały

ClientDataSet
DataSource
DBGrid
DBNavigator


Program działa poprawnie, problem jest z wyszukiwaniem wprowadzanych fraz. Robię to w ten sposób:

Kod: Zaznacz cały

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
if (Edit1->Text!=""){
   if (ClientDataSet1Producent->Value!=Edit1->Text) { //tu sprawdzam czy wprowadzona wartość jest inna jak w polu "Producent"
               
                //jeżeli tak to:...
               //jaka funkcja pokaże mi w DBGrid1 tylko rekordy speÅ‚niajÄ…ce zaÅ‚ożenie?                                   }
                }
}


Po drugie:
Jak utworzyć kwerendę która pokaże w drugim DBGrid2 rekordy powiązane kluczem z rekordami znalezionymi w DBGrid1?

W załączniku GUI programu.

[Ho88it]

Problem wyświetlania szukanych rekordów sam już rozwiązałem.

Może chociaż ktoś zna sztuczki do zliczania wierszy w obiekcie ClientDataSet?

[Ho88it]

Dla tych co mają podobny problem z wyszukiwaniem wartości w kolumnie umieszczam rozwiązanie (mało efektywne ale skuteczne):

Kod: Zaznacz cały

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
if (Edit1->Text!="") {

int j=1;
ClientDataSet1->First();// <-- ta linijka jest niezbędna aby zacząć wyszukiwanie od początku pliku

  while (ClientDataSet1->Eof!=true)
{
    if (ClientDataSet1->Fields->Fields[0]->Value == Edit1->Text)
              {
              StringGrid1->Cells[0][j]=ClientDataSet1->Fields->Fields[0]->Value; // wstawiamy wyniki

             //break;    //<-- jeżeli chcemy znaleźć pierwszÄ… wartość
            ClientDataSet1->Next(); // jeżeli chcemy znaleźć wszystkie
          j++;
    }
      else

    ClientDataSet1->Next();
  }
}
}


Sposób na wypełnienie nazw kolumn otwieranej bazy:

Kod: Zaznacz cały

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (OpenDialog1->Execute())
  {

  int i=0;

  ClientDataSet1->LoadFromFile(OpenDialog1->FileName);

  StringGrid1->ColCount=ClientDataSet1->FieldCount; // ile mamy kolumn?

  while (i<ClientDataSet1->FieldCount)  //wypeÅ‚nienie wszystkich....
        {
            StringGrid1->Cells[i][0]=ClientDataSet1->Fields->Fields[i]->DisplayLabel; // ... nazwami kolumn z bazy danych
      i++;
        }
    }
}


Program śmiga jak mało co.

[Corvis]

Może chociaż ktoś zna sztuczki do zliczania wierszy w obiekcie ClientDataSet?

ClientDataSet->RecordCount;

Co do wyszukiwania :

Kod: Zaznacz cały

TLocateOptions opts;
opts << loCaseInsensitive  << loPartialKey;

if(!ClientDataSet->Locate("kolumna","szukany tekst",opts)) {
    ShowMessage("brak danych");
}


Sposób prosty kod możesz wrzucić np w zdarzenie OnChange edita i wtedy za naciśnięciem jakieś klawisza na edicie jeżeli litera znajduje sie w bazie zostaniesz przeniesiony tam np. szukasz słowa programowanie
masza w bazie słowa :

próg
program
programowanie

wpisujesz pr zostajesz przeniesiony na próg
wpisujesz prog zostajesz przeniesiony na program
itd.

[Ho88it]

Eeee.... Corvis.... zaimponowałeś mi
Dokładnie oto chodziło!
Wielkie Dzięki!

[Corvis]

Jak utworzyć kwerendę która pokaże w drugim DBGrid2 rekordy powiązane kluczem z rekordami znalezionymi w DBGrid1?

jest parę sposób :
1 ) Zrobienie układu Master Detail z wykorzystaniem ClientDataSet-a dość skomplikowane w zrobieniu.
2 ) Napisanie funkcji która będzie wywoływać odpowiednie zapytanie Sql wyświetlające dane dodatkowe do tego drugiego grida.

Jeżeli mam ci pomóc muszę wiedzieć jakiej bazy używasz.

[Corvis]

ShowMessage

lepiej nie używaj bo będzie to denerwowało lepiej jest wstawić Beep() , albo jakiś czerwony kolor czcionki w Edicie jeżeli wyszukiwanie nie dało dobrego rezultatu

[Ho88it]

ShowMessage nie używam w ogóle bo wg. mnie lepsze jest użycie jakiegoś Memo jako podglądu zdarzeń (logi ).

Baza danych jest plikowa XML. Będę ją musiał rozstrzelić na kategorie i używać kluczy (czyli dochodzi Cała seria obiektów LookUp).

[Ho88it]

Kwerendy czas zacząć i .... chyba będzie trzeba nieco przerobić program..
Corvis co byś polecił do zaimplementowania dla prostej obsługi kwerend? Ja osobiście zaczynam dostrzegać błąd w który zabrnąłem używając komponentów nie obsługujących SQL.

[Ho88it]

Kolejny zgrzyt...
Problem polega na wyświetleniu danych z trzech tablic w jednym komponencie DBGrid za pomocą kwerendy SQL z komponentu Query.

scrsht.JPG

To jak jest skonfigurowany komponent kwerendy (połączenie z bazą)

query.JPG

A takie ma źródło danych Tablica.

dbgrid.JPG

Problem był by rozwiązany gdyby tablica zechciała łaskawie wyświetlić wynik kwerendy a nie ustawionej tablicy...

Da się to tak zrobić, czy trzeba użyć zwykłego StringGrid?

[Corvis]

O matko...

Po 1. Jakiej ty technologi używasz. Jaki silnik bazy danych ??

Po 2. http://helion.pl/ksiazki/cbu6bd.htm

[Ho88it]

No co do silnika to ... freestyle. Nie mam wielkiego doświadczenia w programowaniu baz danych i kombinuje metodą prób i błędów.
Możesz coś zasugerować?

[Corvis]

Opisz zadanie w jednym poście dokładnie a nie roztrzepałeś to na parę

[Ho88it]

Baza danych składa się z 3 tabel:

1. bazasprzętu.db
2. koneksje.db
3. materialyeksploatacyjne.db

W programie mam wyświetlić sprzęt i materiały do niego (oryginalne i zamienniki, czyli więcej jak jeden wynik) i na odwrót.
Wpisując materiał wyświetlić mi powinien sprzęt do jakiego pasuje dana część.

Program moim zdaniem wystarczy żeby wyświetlał wynik kwerendy.. ale za cholerę nie mogę tego ugryźć.

[Corvis]

Nie wiem czemu używasz jakiś plików db ??? nie lepiej zrobić to na serwerze bazodanowym np. MySql ?? Tworzysz bazę danych , robisz strukturę łączysz się odpowiednio przez builedra z bazą i robisz wszystko co ci się podoba - jeżeli jesteś zainteresowany takim rozwiązaniem to mogę ci pomóc trochę. Osobiście nie bawię się w żadne plikowe bazy danych