Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.02.2012, 18:50   #1
Илья01
Пользователь
 
Регистрация: 30.12.2010
Сообщений: 14
Вопрос delphi и база данных. Работа без использования компоентов.

Вот есть код:
Код:
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,XPMan,comobj, StdCtrls;
 
type
  TForm1 = class(TForm)
    memo: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var cnn, rs: Variant;
begin
  cnn:=CreateOleObject('adodb.connection');
  cnn.provider:='SQLOLEDB.1';
  cnn.connectionstring:='Data Sourse=C:\Database21.accdb';
Password=pass';
  cnn.open;
 
  rs:=CreateOleObject('adodb.recordset');
  rs.Open('select * from tabl',cnn);
  rs.movefirst;
 

  while Not rs.EOF do
  begin
    Memo1.Lines.Add(trim(rs.Fields[0].Value));
    rs.movenext;
  end;
end;
end.
Скажите пожалуйста, почему код не работает. Только можно на страници с примерами не посылать, а объяснить на данном примере.
Илья01 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
delphi 7 база данных PonkaG Помощь студентам 6 08.06.2011 22:44
RSA в Delphi без использования CryptoAPI PalychXX Компоненты Delphi 1 26.11.2010 03:03
База данных в Delphi Geimer Помощь студентам 1 04.05.2010 14:54
Как создать в Delphi mp3 плеер? Без использования bass.dll. megatronx Помощь студентам 2 10.03.2010 17:15
Групироваие данных по месяцем в кварталы без использования сводных таблиц McKlavishnikov Microsoft Office Excel 17 12.02.2009 14:11