Ну например так:
1. Клиентская сторона:
*-- T1 - ваша таблица
*-- Я в своих приложениях использую ODBC для работы с SQL Server (Driver=SQL Server)
*-- В примере использую вашу строку подключения к SQL серверу. Судя по всему у вас SQL 2005
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
FUNCTION Export
LOCAL gnConnect, lcCommand
m.gnConnect=SQLSTRINGCONNECT("Driver=SQL Native Client;SERVER=название сервера;Trusted_Connection=NO;APP=Microsoft Visual FoxPro;UID=sa;PWD=пасс;")
IF m.gnConnect <= 0
MESSAGEBOX("Ошибка соединения с SQL сервером!", 16 , "ОШИБКА")
RETURN .F.
ENDIF
SELECT T1
INDEX ON Nomer TAG Tag1
GOTO TOP
SCAN
TEXT TO lcCommand TEXTMERGE NOSHOW PRETEXT 15
AddNewItem <<T1.Nomer>>, '<<T1.Name>>'
ENDTEXT
IF SQLEXEC(m.gnConnect, m.lcCommand) < 0
MESSAGEBOX("Ошибка выполнения команды " + m.lcCommand + " на SQL сервере!", 16 , "ОШИБКА")
RETURN .F.
ENDIF
ENDSCAN
RETURN .F.
ENDFUNC
2. Серверная сторона:
Таблица называется Table1
Ее DDL команда может выглядить, например, так:
1.
2.
3.
4.
CREATE TABLE Table1
( id_cls INT IDENTITY( 1 , 1 ) NOT NULL,
id_supper_cls INT NULL,
cls_name CHAR ( 40 ) NOT NULL
)
Хранимая процедура:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
CREATE PROCEDURE [dbo].[AddNewItem]
@NOMER INT = NULL,
@NAME CHAR( 40 ) = NULL
AS
IF (@NOMER IS NULL) OR (@NAME IS NULL)
BEGIN
RAISERROR('Не заданы все параметры!', 16 , 1 )
RETURN (- 2 )
END
DECLARE @PARENT_ID INT
IF @NOMER = 0
BEGIN
-- Корневой Item
INSERT INTO Table1 (id_supper_cls, cls_name)
VALUES (NULL, @NAME)
IF @@ERROR <> 0
BEGIN
RAISERROR('Не могу добавить корневой Item!', 16 , 1 )
RETURN (- 1 )
END
END
ELSE
BEGIN
-- Подчиненный Item
-- Сначала находи ранее добавленный корневой Item
SELECT @PARENT_ID = id_cls FROM Table1 WHERE id_supper_cls IS NULL
IF @PARENT_ID IS NULL
BEGIN
RAISERROR('Не могу найти корневой Item', 16 , 1 )
RETURN (- 1 )
END
INSERT INTO Table1 (id_supper_cls, cls_name)
VALUES (@PARENT_ID, @NAME)
IF @@ERROR <> 0
BEGIN
RAISERROR('Не могу добавить подчиненный Item!', 16 , 1 )
RETURN (- 1 )
END
END
RETURN ( 0 )
GO
GRANT EXECUTE ON dbo.AddNewItem TO Public
GO
Разумеется, это только пример кода. Вариантов очень много. Изучайте, пробуйте.
Удачи!
С уважением, Алексей
P.S. Код написан с учетом того, что у вас только одна запись корневого уровня и уровень вложения = 1
P.P.S. Для записи данных на сервер я использую технологию pass-through (PT)
P.P.P.S. Советую все-таки самому изучить язык MS SQL Server - Transact-SQL (T-SQL)
