Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C++ Builder > Работа с DBGrid

Автор: Voldemar2004 1.1.2006, 20:19

Если выделить строку, то работает все нормально. Сделал поиск строки в подстроке,
пробегаем по значениям в столбце, если в строке встречается слово "ЗНАЧЕНИЕ", то
пропускаем, иначе - удаляем. Как сделать так, чтобы не надо было каждый раз выделять строку в DBGrid'e для сравнения.

Код

void __fastcall TForm1::Button5Click(TObject *Sender)
{
char str[50];

char *str1 = Table1->Fields->Fields[14]->AsString.c_str(), *str2 = "ЗНАЧЕНИЕ", *ptr;


OemToChar(str1, str1);
ptr = strstr(str1, str2);

OemToChar(ptr, str);
Table1->Next();


        if(ptr){
        ShowMessage("Совпадает - пропускаем");
        }
        else

        {
        Table1->Edit();
        Table1->Fields->Fields[14] = 0;
        Table1->Post();
        }

}

Автор: Voldemar2004 1.1.2006, 22:19

Вот сам все сделал, но скорость.... оставляет желать лучшего даже без DBGrid. Можно как-нибудь увеличить скорость?

Код

void __fastcall TForm1::Button6Click(TObject *Sender)
{
char str[50];
char *str2 = "ЗНАЧЕНИЕ", *ptr;

for(int i=0; i<Table1->RecordCount; i++){

char *str1 = Table1->Fields->Fields[14]->AsString.c_str();

OemToChar(str1, str1);
ptr = strstr(str1, str2);

OemToChar(ptr, str);

        if(ptr){
        // другие действия
        }
        else

        {
        Table1->Edit();
        Table1->Fields->Fields[14] = 0;
        Table1->Post();
        }

Table1->Next();

}

}

Автор: sexton 3.1.2006, 11:30

А почему не ипсользовать родные функции класса AnsiString?
AnsiCompareText например.

Автор: azesmcar 3.1.2006, 11:40

Я не совсем понял что означает эта запись???

Цитата

Код


        Table1->Edit();
        Table1->Fields->Fields[14] = 0;
        Table1->Post();

Fields[14] возвращяет тебе тип TField * (или TField точно не помню) и ты присваеваешь ему ноль..
Если тебе надо из базы удалить или обновить тогда пиши на SQL чего ради ты циклом делаешь? Используй LIKE он тебе поиск подстроки обеспечит (не забываем про %). А в остальном из вопроса мне ничего не ясно...Что именно ты удаляешь? Ты вроде UPDATE делаешь? С одной стороны ты ишешь строку с другой стороны присваеваешь тому же 14-ому полю значение int...

Вобщем если можно поподробнее...
Добавлено @ 11:41
Кстати для поиска в TTable есть функция Locate..

Автор: _hunter 3.1.2006, 11:52

а зачем так делать?
для того щапросы и придумали, чтобы самому с поискрм не заморачиваться...

Автор: Voldemar2004 3.1.2006, 13:07

Цитата(azesmcar @ 3.1.2006, 11:40)

Если тебе надо из базы удалить или обновить тогда пиши на SQL чего ради ты циклом делаешь?

Да я хотел просто перевести код с VB на С++ Builder. На VB6 скорость раз в 100 больше, чем на С++ Builder:

Код

Private Sub cmdStart_Click()
Dim flag As Boolean

ProgressBar1.Min = 0
ProgressBar1.Max = Data1.Recordset.RecordCount - 1

Dim i As Long

For i = 0 To Data1.Recordset.RecordCount - 1

flag = True

ProgressBar1.Value = i
 
    Dim j As Long
    For j = 0 To List1.ListCount - 1
        If InStr(Data1.Recordset.Fields(14), List1.List(j)) > 0 Then flag = False
    Next j

    If flag Then
        
        Data1.Recordset.Edit
        Data1.Recordset.Fields(14) = ""
        Data1.Recordset.Update
    
    End If
    
Data1.Recordset.MoveNext

Next i

End Sub

Приведенный код удаляет из определенного столбца все значения кроме тех которые выбраны пользователем:

если в столбце "13212333 ЗНАЧЕНИЕ 324"
"4565 ДРУГОЕ 435435543"
"56345 ТРЕТЬЕ 545435555"

а надо удалить все, кроме тех, которые выбраны в ListBox'е: например в ListBox указано "ЗНАЧЕНИЕ".

Цитата(sexton @ 3.1.2006, 11:30)

А почему не ипсользовать родные функции класса AnsiString?
AnsiCompareText например.

Она:

Цитата

Compares AnsiStrings based on the current Windows locale without case sensitivity.

Unit

Sysutils

Category

string handling routines

extern PACKAGE int __fastcall AnsiCompareText(const AnsiString S1, const AnsiString S2);

Description

AnsiCompareText compares S1 to S2, without case sensitivity. The compare operation is controlled by the current Windows locale. AnsiCompareText returns a value less than 0 if S1 < S2, a value greater than 0 if S1 > S2, and returns 0 if S1 = S2.

Ладно попробую.

Автор: azesmcar 3.1.2006, 13:57

Ну делай так, мало ли кто что написал на Бейсике...

Код


UPDATE MY_TABLE SET FIELD_14='' WHERE FIELD_14 LIKE '%ЗНАЧЕНИЕ%'

А если циклом то примерно так будет правильней

Код


Table1->Edit();
Table1->Fields->Fields[14].AsString = ""; //тут точно не помню или так или
//Table1->Fields->Fields[14]->AsString = "";
Table1->Post();

Но не думаю что пробегаться циклом по всем полям xорошая идея...делай функцией Locate

Код


while (Locate(...))
{
   Table1->Edit();
   //...
   Table1->Post();
}

Должно быть намного быстрее