VPF::Выдает ошибку при подключении к базе

neokortex

Дата 5.3.2008, 11:13 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Только учусь, помогите новичку.
Создаю ado connection, запускаю прогу, все работает. Создаю ADO Table? насраиваю, запускаю, работает. Но когда перевожу ADO Table active в true и запускаю run выдает ошибку.
Синим выделяет сроку в коде проекта

Код


Application.run;

я только учусь, не понимаю чего он от меня хочет, помогите пожалуйста

ТоляМБА

Дата 5.3.2008, 11:28 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 1
Всего: 252

Цитата(neokortex @ 5.3.2008, 13:13

)

не понимаю чего он от меня хочет

Пока ты не напишешь нам какую он

Цитата(neokortex @ 5.3.2008, 13:13

)

выдает ошибку

мы это тоже наврядли поймём - телепаты в отпуске smile

Данкинг

Дата 5.3.2008, 11:33 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Наверное, или не указано имя таблицы, или же подключения.

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

There's nothing left but silent epitaphs.

neokortex

Дата 5.3.2008, 11:44 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Debugger Exception Notification
Project Project1.exe raised exception class EVariantError with message 'Invalid variant type conversion'
...
ок и показывает эту строку Application.Run; (предпоследняя)
в контексте

Код


program Project1;

uses
  Forms,
  test in 'test.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end

ТоляМБА

Дата 5.3.2008, 11:55 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 1
Всего: 252

Ой чую я что недавно похожая тема тут пробегала. Если кода немного - опубликуй, если много прикрепи в архиве.

neokortex

Дата 5.3.2008, 12:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Код


unit test;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB;

type
  TForm1 = class(TForm)
    my_connection: TADOConnection;
    my_table: TADOTable;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

Код


object Form1: TForm1
  Left = 292
  Top = 106
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object my_connection: TADOConnection
    Connected = True
    ConnectionString = 'FILE NAME=D:\Neokortex\prog\1.udl'
    LoginPrompt = False
    Left = 32
    Top = 24
  end
  object my_table: TADOTable
    Active = True
    Connection = my_connection
    CursorType = ctStatic
    TableName = 'test'
    Left = 88
    Top = 24
  end
end

Rennigth

Дата 5.3.2008, 12:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76

neokortex,
а отдельно твой "D:\Neokortex\prog\1.udl" подключается нормально к базе?

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

(* Honesta mors turpi vita potior *)

neokortex

Дата 5.3.2008, 12:35 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

да подключение работает нормально.
я и говорю что вся прога нормально работает до тех пор пока я не активирую ADO Table, а если false поставить, то ошибки не будет

ТоляМБА

Дата 5.3.2008, 13:09 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 1
Всего: 252

А в дизайн-тайме (до нажатия Run) если делаешь активе=тру то тоже всё нормально или нет?

neokortex

Дата 5.3.2008, 13:37 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

да

Akella

Дата 7.3.2008, 21:15 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Цитата(neokortex @ 5.3.2008, 11:13

)

я только учусь, не понимаю чего он от меня хочет, помогите пожалуйста

от тебя, наверное, хотят, что бы ты купил хотябы 1-2 книженций по дельфи и по базам данных smile

aalexstorm

Дата 10.3.2008, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

По-моему проблема решается просто:
Выставлять свойство active в true нужно непосредственно после подключения в коде программы

neokortex

Дата 21.3.2008, 17:06 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

эээ, а как это сделать? :(

Rodman

Дата 21.3.2008, 17:17 (ссылка)

(нет голосов)

Загрузка ...

CIO

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

Репутация: 1
Всего: 122

в Table есть такое свойство, вот его и устанавливай!

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

CRM с функцией АвтоОбзвона

Лотереи мира

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »