Поиск:

Ответ в темуСоздание новой темы Создание опроса
> DBComboBox не видит структуру таблицы, DBComboBox не видит структуру таблицы 
:(
    Опции темы
Shokan
Дата 10.5.2007, 07:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.5.2007

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

Код

procedure TForm1.FormActivate(Sender: TObject);
var a: Cardinal;
begin
for a:=1 to table1.RecordCount do  begin
DBListBox1.Items.Add(table1.FieldByName('name').AsString);
table1.next;
end;
end;


где их можно указать?
извеняюсь та тупой вопрос
PM MAIL   Вверх
Rodman
Дата 10.5.2007, 08:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Shokan, а таблицу открыл?

не туда написал, тебе в Базы данных...


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
skyboy
Дата 10.5.2007, 09:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


неОпытный
****


Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260
Нужны компоненты: TDBComboBox(DBComboBox1), TDataSource(DataSource1), TTable(Table1)
Надо установить:
  • Свойство DBCombobox.DataSource := DataSource1;
  • Свойство DataSource1.DataSet:= Table1;
  • Свойство Table1.Active:= True;
PM MAIL   Вверх
Shokan
  Дата 10.5.2007, 10:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.5.2007

Репутация: нет
Всего: нет
Да, там все в порядке.
Все это сделано.
вот виды ошибок:
[Error] Unit1.pas(105): Undeclared identifier: 'departments'
[Error] Unit1.pas(105): 'DO' expected but identifier 'RecordCount' found
[Error] Unit1.pas(106): ')' expected but identifier 'FieldByName' found
[Error] Unit1.pas(106): Missing operator or semicolon
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'
PM MAIL   Вверх
Rodman
Дата 10.5.2007, 10:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Цитата(Shokan @  10.5.2007,  09:04 Найти цитируемый пост)
[Error] Unit1.pas(105): Undeclared identifier: 'departments'

в той строке такого нет.. выложи весь код...


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Shokan
Дата 10.5.2007, 10:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.5.2007

Репутация: нет
Всего: нет
вот

Код
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, DB, DBTables, ADODB, Buttons,
  jpeg, Menus, DBCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Panel4: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Image1: TImage;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N13: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Image2: TImage;
    DBComboBox1: TDBComboBox;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    Button1: TButton;
    procedure Edit1Change(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
  var
    caption: String;
    i:integer;
begin
  caption:='Family';
  if RadioButton1.Checked=true then
  Caption := 'Family'
  else if RadioButton2.Checked=true then
  Caption := 'Name'
  else if RadioButton3.Checked=true then
  Caption := 'Sname'
  else if RadioButton4.Checked=true then
  Caption := 'Workphone'
  else if RadioButton5.Checked=true then
  Caption := 'Cellphone' ;

    with ADOQuery1 do begin
    Close;
    SQL.Clear;
    SQL.Text := 'select * from Personal where ' + Caption + ' like "%'+Edit1.Text+'%"';;
    //Parameters.ParamByName('v_mid').Value := Edit1.Text;
    Open;
  end;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
  Form1.Close;
end;

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Close;
  Form2.Close;
end;

procedure TForm1.DBComboBox1Change(Sender: TObject);
var a: Cardinal;
begin
for a:=1 to departments.RecordCount do  begin
DBComboBox1.Items.Add(departments.FieldByName('2').AsString);
departments.next;
end;

end.



Это сообщение отредактировал(а) Shokan - 10.5.2007, 10:59
PM MAIL   Вверх
Rodman
Дата 10.5.2007, 11:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
ну во первый ты departments даже не обьявил

Добавлено через 2 минуты и 22 секунды
Код

procedure TForm1.DBComboBox1Change(Sender: TObject);
var a: Cardinal;
begin
for a:=1 to ADOQuery1.RecordCount do  
begin
     DBComboBox1.Items.Add(ADOQuery1.Fields[2].AsString);
     ADOQuery1.next;
end;


что так?


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Shokan
Дата 10.5.2007, 11:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.5.2007

Репутация: нет
Всего: нет
Я только начинаю этот язык. пришел с пхп.
горю желением освоится в этой среде.

при обявления откуда надо вытаскивать эти переменные?
Обясните пожалуйста

нет. вот это вот не работает
Код


procedure TForm1.DBComboBox1Change(Sender: TObject);
var a: Cardinal;
begin
  for a:=1 to ADOQuery2.RecordCount do
begin
  DBComboBox1.Items.Add(ADOQuery2.Fields[2].AsString);
  ADOQuery2.next;
end;
     end;
end.


выводит только 1-запись из этого поле

Это сообщение отредактировал(а) Shokan - 10.5.2007, 11:27
PM MAIL   Вверх
Rodman
Дата 10.5.2007, 11:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
ооо плин.
Код

procedure TForm1.DBComboBox1Change(Sender: TObject);
var a: Cardinal; //можно целочисленное, ну это я думаю ты понял
begin
for a:=1 to ADOQuery1.RecordCount do  // если ADOQuery открыт то в переменной RecordCount кол-во строк
begin
     DBComboBox1.Items.Add(ADOQuery1.Fields[2].AsString);//записываешь в DBComboBox 3й столбей
     ADOQuery1.next;//переходишь на следующую запись
end;




--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Shokan
Дата 10.5.2007, 11:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.5.2007

Репутация: нет
Всего: нет
выходит только 1-запись всего поля:
в чем может быть дело?  smile 

Код

procedure TForm1.DBComboBox1Change(Sender: TObject);
var a: Cardinal;
begin
  for a:=1 to ADOQuery2.RecordCount do
begin
  DBComboBox1.Items.Add(ADOQuery2.Fields[2].AsString);
  ADOQuery2.next;
end;
     end;
PM MAIL   Вверх
Rodman
Дата 10.5.2007, 12:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
значит твоему условию
Код

SQL.Text := 'select * from Personal where ' + Caption + ' like "%'+Edit1.Text+'%"';

cоответствует только одна запись.


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Shokan
Дата 10.5.2007, 12:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.5.2007

Репутация: нет
Всего: нет
нет. этот комбо бокс(DBComboBox1) не имеет никого отношения к ADOQuery1.
он связывается с ADOQuery2.
а там(в ADOQuery2) написано select * from departments
PM MAIL   Вверх
Rodman
Дата 10.5.2007, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
покажи что ты исправил...


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Shokan
Дата 10.5.2007, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.5.2007

Репутация: нет
Всего: нет
вот ваш код:
я оттуда исправил выделенные красным

Код

procedure TForm1.DBComboBox1Change(Sender: TObject);
var a: Cardinal; //можно целочисленное, ну это я думаю ты понял
begin
for a:=1 to [color=red]ADOQuery1[/color].RecordCount do  // если ADOQuery открыт то в переменной RecordCount кол-во строк
begin
     DBComboBox1.Items.Add([color=red]ADOQuery1[/color].Fields[2].AsString); //записываешь в DBComboBox 3й столбей
     [color=red]ADOQuery1[/color].next; //переходишь на следующую запись
end;


вообщем ADOQuery1 на ADOQuery2 и все.
мне надо высести на DBComboBox1 из запроса:
Код

select * from departments

поле 2

структура подключения к файлу access такая:
Код

                              ADOQuery1                    DataSource1
ADOConnection1
                              ADOQuery2                    DataSource2 вот сюда вот подключен DBComboBox1  
PM MAIL   Вверх
Rodman
Дата 10.5.2007, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
запрос напиши полностью,
Код

select ID, NAme1, Name2 from departments

Цитата(Shokan @  10.5.2007,  11:43 Найти цитируемый пост)
поле 2

в таком случае поле 2 будет - Name2...


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Shokan
Дата 10.5.2007, 13:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.5.2007

Репутация: нет
Всего: нет
не в этом дело.
само структура таблицы departement такая.
та толко два поле под именами 1 и 2
PM MAIL   Вверх
Rodman
Дата 10.5.2007, 13:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Цитата(Shokan @  10.5.2007,  12:15 Найти цитируемый пост)
под именами 1 и 2

арегинальные имя полей... переименуй их на Name1, Name2.. из-за имен тоже могут быть ошибки...

скажешь результат...


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Shokan
Дата 10.5.2007, 14:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.5.2007

Репутация: нет
Всего: нет
я переименовал имена  полей в таблице Depaterments на id(number) & name(text)

вложил этот код

Код

var a: Cardinal;
begin
  for a:=1 to ADOQuery2.RecordCount do
begin
  DBComboBox1.Items.Add(ADOQuery2.Fields[2].AsString);
  ADOQuery2.next;
end;
     end;


но... опять smile 
выходит только самая первая строка этого толя, гребанный 
Административный департамент
ихвеняюсь за выражения
PM MAIL   Вверх
Rodman
Дата 10.5.2007, 20:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
так... бедь терпимее... во первый ты открываешь запрос далеко..

напиши...
Код

procedure TForm1.DBComboBox1Change(Sender: TObject);
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('SELECT ID, Name1 FROM Depaterments ;');
adoquery2.Open;
while not adoquery2.Eof do
begin
     ComboBox1.Items.Add(ADOQuery2.Fields[1].AsString); //обычный комбобокс попробуй
     ADOQuery2.next; 
end;


вот такой код все что надо выведет...

иначе вылажуй базу и исходник - гляну...


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Shokan
Дата 11.5.2007, 05:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.5.2007

Репутация: нет
Всего: нет
Вот --->

Присоединённый файл ( Кол-во скачиваний: 8 )
Присоединённый файл  tel.rar 51,75 Kb
PM MAIL   Вверх
Shokan
Дата 11.5.2007, 05:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.5.2007

Репутация: нет
Всего: нет
вот исходник программы

Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  123.rar 84,76 Kb
PM MAIL   Вверх
Rodman
Дата 11.5.2007, 08:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Цитата(Shokan @  10.5.2007,  13:23 Найти цитируемый пост)
id(number) & name(text)

Name - зарезервированное слово (тебя аксесс должен был предупредить), а в таком случае его нужно брать в [name]

PS: никогда не называй поля одним словом... используй динный названия, типа - NameUser или FIOName...

Код

procedure TForm1.FormCreate(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('SELECT Departments.id, Departments.name FROM Departments;');
adoquery1.Open;
while not adoquery1.Eof do
begin
     DBComboBox1.Items.Add(ADOQuery1.Fields[1].AsString); 
     ADOQuery1.next;
end;
end;

вот этот код у меня вывел все.

только внимательно его прочитай, заполнение в создании формы висит...


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Shokan
Дата 11.5.2007, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.5.2007

Репутация: нет
Всего: нет
все заработала!
спасибо большое. дело не в комбо боксе, оказывается в adoquery.
не знаю теперь... в пхп есть форма:
Код

<select name=depart>
<option>Адм. блок
<option>Фин. блок
<option>Тех. блок
</select>


и берешь значении выбранного так скажем Selecta

Код

$depart = $_post['depart'];
$sql = 'select * from Personal where depottament_id=$depart';


как на дельфи все это проиходит?
я сам решил вот так:
при выборке сразу же брать значения комбо бокса и вставлять его переменным
в sql запрос другого ADOQuery(через который подключается dbgrid) что бы у меня при выборке люди выберались с того департамента. правильно ли размышляю? как дальше с синтаксисом помогите



Код

procedure TForm1.FormCreate(Sender: TObject);
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('SELECT Departments.id, Departments.name FROM Departments;');
adoquery2.Open;
while not adoquery2.Eof do
begin
DBComboBox1.Items.Add(ADOQuery2.Fields[1].AsString);
     ADOQuery2.next;
end;

adoquery1.Close;
adoquery1.SQL.Clear;
??????????????????????
adoquery1.Open;
end;
PM MAIL   Вверх
Rodman
Дата 11.5.2007, 12:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Код

procedure TForm1.DBComboBox1Change(Sender: TObject);
begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select * from Departments where Departments.name=:Prm1');
    adoquery1.ParamByname('Prm1').Value:=DBComboBox1.Text;
    adoquery1.Open;
   //если связи прописаны выведется в DBGrid
end;



--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Shokan
Дата 11.5.2007, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.5.2007

Репутация: нет
Всего: нет
Извеняюсь за тупизм: smile 
Код

 adoquery1.SQL.Add('select * from Departments where Departments.name=:Prm1');


Prm1 откуда передается?
а оператор ParamByname он вообще не определяет
PM MAIL   Вверх
Rodman
Дата 11.5.2007, 14:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Цитата(Shokan @  11.5.2007,  12:21 Найти цитируемый пост)
Prm1 откуда передается?

это и есть твой параметр...

подобный твоему $depart...
Код

adoquery1.ParamByname('Prm1').Value:=//присваиваешь нужное значение



--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Shokan
Дата 14.5.2007, 05:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.5.2007

Репутация: нет
Всего: нет
Здраствуйте! мой следующий вопрос не подходит к теме, но я продолжаю что бы была лутче понятна сетуация моих вопросов.
DBComboBox1.Text- у меня выдодится названия(name) а не Id. можно ли сделать какое то скрытое поле для передачи параметра?
потому что в таблице Personal значения Department переданы через Id.
вышепоказанном коду дельфи ругается на эту строку:

  adoquery1.ParamByname('Department.Id').Value:=DBComboBox1.Text;
......
  //[Error] Unit1.pas(122): Undeclared identifier: 'ParamByname'
  //[Error] Unit1.pas(122): Missing operator or semicolon

вроде все нормально?
или их надо заранее задать на свойствах  adoquery1 в Object inspector-e?
PM MAIL   Вверх
Rodman
Дата 14.5.2007, 09:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Shokan, запрос из adoquery1 в студию...

Добавлено через 10 минут и 40 секунд
Код

procedure TForm1.FormCreate(Sender: TObject);
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('SELECT Departments.id, Departments.name FROM Departments;');
adoquery2.Open;
while not adoquery2.Eof do
begin
     ComboBox1.Items.AddObject(ADOQuery2.Fields[1].AsString, Pointer(ADOQuery2.Fields[0].AsInteger));
     ADOQuery2.next;
end;
end;


а потом передавать запросу
Код

SELECT ID,[name] from Department WHERE id=:Prm1;


Код

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  adoquery1.Close;
  adoquery1.ParamByname('Prm1').Value:=integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);//передаст ID
  adoquery1.Open;
end;



--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Shokan
Дата 14.5.2007, 15:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.5.2007

Репутация: нет
Всего: нет
все. вроде бы решил.
поставил DBLookupComboBox1 в место комбобокса
прописал следуюшее 

Код

procedure TForm1.DBLookupComboBox1CloseUp(Sender: TObject);
begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select * from Personal where Department=:par1');
    adoquery1.Parameters.ParamByName('par1').Value:=DBLookupComboBox1.KeyValue;
    adoquery1.Open;
end;
PM MAIL   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0776 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.