баги в MS SQL Server 2000

[vbilez]

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

project opc2sql raised exception class EOleException with message 'Invalid object name opc_sig''
Process stoped
Use step or run to continue

в другой програме, которая как раз отвечает за записть в базу, выдается следующая ошибка
"Операция не допускается, если объект закрыт"

[mihali4]

баги в MS SQL Server 2000

Сервер то тут при чем?
Баги в вашей программе. Помогает знаменитая утилита "vipryamitelruk.exe"
'Invalid object name opc_sig' - прямое указание на неверно указанное имя поля (точнее сказать трудно - мало инфы). А-а-а, это таблица?
"Операция не допускается, если объект закрыт" - и что тут удивительного? Вы не произвели подключение к серверу, но пытаетесь обратиться к какой-то таблице... То же самое, что в Москве спрашивать, как пройти к Исакию...

[vbilez]

код не мой. пытаюсь разобратся в чужих исходах
если не получится придется писать самому, скорее всего С++
но повторюсь, каким то образом соединение с базой происходит со второго запуска проги


так подключаюсь к базе

s:='CREATE DATABASE ['+name+']  ON (NAME = N'''+name+'_Data'', FILENAME = N''D:\1\SQL\'+name+'_Data.MDF'' , SIZE = 19, FILEGROWTH = 10%) LOG ON (NAME = N'''+name+
'_Log'', FILENAME = N''D:\1\SQL\'+name+'_Log.LDF'' , SIZE = 1, FILEGROWTH = 10%) COLLATE Cyrillic_General_CI_AS';
ADOConnection1.Execute(s);
s:='use ['+name+']';
ADOConnection1.Execute(s);
s:='CREATE TABLE [dbo].[opc_sig]([sig_id] [int] IDENTITY (0, 1) NOT NULL, [sig_name] [varchar](50) COLLATE Cyrillic_General_CI_AS NULL, [sig_type] [smallint] NULL) ON [PRIMARY] ';
ADOConnection1.Execute(s);
s:='CREATE TABLE [dbo].[opc_sz]([sz_sig_id] [smallint] NOT NULL, [sz_datetime] [datetime] NULL, [sz_data] [real] NULL, [sz_id] [int] IDENTITY (0, 1) NOT NULL) ON [PRIMARY] ';
ADOConnection1.Execute(s);
s:='CREATE TABLE [dbo].[opc_tmp]([id] [smallint] NULL, [dt] [datetime] NULL, [da] [real] NULL) ON [PRIMARY] ';
ADOConnection1.Execute(s);
s:='ALTER TABLE [dbo].[opc_sig] WITH NOCHECK ADD CONSTRAINT [DF_opc_sig_sig_type] DEFAULT  (0) FOR [sig_type], CONSTRAINT [PK_opc_sig] PRIMARY KEY CLUSTERED ([sig_id]) ON [PRIMARY] ';
ADOConnection1.Execute(s);
s:='SET              QUOTED_IDENTIFIER OFF ';
ADOConnection1.Execute(s);
s:='SET              ANSI_NULLS OFF ';
ADOConnection1.Execute(s);
s:=Memo2.Text;
ADOConnection1.Execute(s);
s:='SET              QUOTED_IDENTIFIER OFF';
ADOConnection1.Execute(s);
s:='SET              ANSI_NULLS ON';
ADOConnection1.Execute(s);

function TForm1.Convert;
        var s:string;
            n:integer;
            r:_Recordset;
begin
ADOConnection1.Connected:=true;
        s:=ExtractFileName(MySigName);
        r:=ADOConnection1.Execute('select count(*) from opc_sig where sig_name='''+s+'''');
{тут произошла ошибка}        n:=integer(r.Fields[0].Value);
        r.Close;

строка подключения

'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog='+name+';Data Source=127.0.0.1';

[vbilez]

насчет таблицы opc_sig ее и не может быть, ибо база не создана
насчет багов возможны вы правы, дело в програме

[Dark_Spirit]

А вот интерессно код который приведён ниже, каждый раз выполняется когда запускается программа?

Так подключаюсь к базе
Код:
s:='CREATE DATABASE ['+name+'] ON (NAME = N'''+name+'_Data'', FILENAME = N''D:\1\SQL\'+name+'_Data.MDF'' , SIZE = 19, FILEGROWTH = 10%) LOG ON (NAME = N'''+name+
'_Log'', FILENAME = N''D:\1\SQL\'+name+'_Log.LDF'' , SIZE = 1, FILEGROWTH = 10%) COLLATE Cyrillic_General_CI_AS';
ADOConnection1.Execute(s);
s:='use ['+name+']';
ADOConnection1.Execute(s);
s:='CREATE TABLE [dbo].[opc_sig]([sig_id] [int] IDENTITY (0, 1) NOT NULL, [sig_name] [varchar](50) COLLATE Cyrillic_General_CI_AS NULL, [sig_type] [smallint] NULL) ON [PRIMARY] ';
ADOConnection1.Execute(s);
s:='CREATE TABLE [dbo].[opc_sz]([sz_sig_id] [smallint] NOT NULL, [sz_datetime] [datetime] NULL, [sz_data] [real] NULL, [sz_id] [int] IDENTITY (0, 1) NOT NULL) ON [PRIMARY] ';
ADOConnection1.Execute(s);
s:='CREATE TABLE [dbo].[opc_tmp]([id] [smallint] NULL, [dt] [datetime] NULL, [da] [real] NULL) ON [PRIMARY] ';
ADOConnection1.Execute(s);
s:='ALTER TABLE [dbo].[opc_sig] WITH NOCHECK ADD CONSTRAINT [DF_opc_sig_sig_type] DEFAULT (0) FOR [sig_type], CONSTRAINT [PK_opc_sig] PRIMARY KEY CLUSTERED ([sig_id]) ON [PRIMARY] ';
ADOConnection1.Execute(s);
s:='SET QUOTED_IDENTIFIER OFF ';
ADOConnection1.Execute(s);
s:='SET ANSI_NULLS OFF ';
ADOConnection1.Execute(s);
s:=Memo2.Text;
ADOConnection1.Execute(s);
s:='SET QUOTED_IDENTIFIER OFF';
ADOConnection1.Execute(s);
s:='SET ANSI_NULLS ON';
ADOConnection1.Execute(s);

[vbilez]

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

[vbilez]

код срабатывает когда приходит win-сообщение с другой программы

[Dark_Spirit]

мож проще не создавать каждый раз новую базу, а сначала проверять наличие базы на сервере:
SELECT
sys.sysdatabases.name
FROM
sys.sysdatabases
where name='<имя базы>'
-----
или
-----
SELECT
HAS_DBACCESS('<имя базы>')
sys.sysdatabases.name
FROM
sys.sysdatabases


, если её нет то создать, ну а если есть - проверить наличие нужной таблицы....
SELECT
sys.sysobjects.name,
sys.sysobjects.xtype
FROM
sys.sysobjects
where xtype='U'
and name='<имя таблицы>'


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

[vbilez]

проблема решена
спасибо всем за ответы
проблема была связана с переменной типа recordset
тема закрыта