Доброго времени суток
проблема такого рода, нужно написать простейшей приложения в котором БД, из неё вывод данных на DataWindow, и 3 функции добавить, удалить поиск..... проблема в следущем ... вроде всё сделал как надо а данные не добавляет .... подскажите почему ....
это скрипт подключения к БД
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=MYDB'"
CONNECT;
If SQLCA.SqlCode<>0 Then
MessageBox("Îøèáêà.","Íå ìîãó ïîäêëþ÷èòñÿ ê áàçå." + SQLCA.SQLErrText,StopSign!,OK!)
Else

End if

Open (main)

ошибок вроде не выдаёт....

это скрипт добавления данных .... открывается новое окно (add) где есть поля для ввода данных в таблицу ....

integer adr_nmb=0
integer izd_nmb=0
integer nom_nmb=0
integer red_nmb=0
integer main_nmb=0
integer temp
date birth




main_nmb=0;

SELECT Max(id)
INTO :main_nmb
FROM main;

if isnull(main_nmb) then
main_nmb=-1
end if
main_nmb= main_nmb+1

adr_nmb=0;

SELECT Max(id_adres)
INTO :adr_nmb
FROM adres;

if isnull(adr_nmb) then
adr_nmb=-1
end if

adr_nmb=adr_nmb+1


SELECT Max(id_izdat)
INTO :izd_nmb
FROM izdat;

if isnull(izd_nmb) then
izd_nmb=-1
end if

izd_nmb=izd_nmb+1


SELECT Max(id_nomer)
INTO :nom_nmb
FROM nomer;

if isnull(nom_nmb) then
nom_nmb=-1
end if

nom_nmb=nom_nmb+1


SELECT Max(id_redak)
INTO :red_nmb
FROM redak;

if isnull(red_nmb) then
red_nmb=-1
end if

red_nmb=red_nmb+1


birth=date(sle_data_nomer.text)


INSERT INTO main (id, nomer,izdat, redak, period, main_com, nazvanie)
VALUES (:main_nmb, :nom_nmb, :izd_nmb, :red_nmb, :sle_period.text,:sle_nazvanie.text);
COMMIT;

зы здесь привёл пример тока заполенения 1 таблицы


main.dw_main.SetTransObject(SQLCA)
IF main.dw_main.Retrieve()=-1 THEN
MessageBox("âíèìàíèå","îøèáêà îáíîâëåíèÿ!",Exclamation!,Ok!)
END IF
close (add)

main это окно где содержится элемент datawindow control (dw_main)

код ошибок не вызывает но и ничего не добавляет ...а хотелось бы....

а это другой используемый скрипт для заполнения тьаблицы....

string usr, comm //1
usr = sle_1.text
comm = sle_2.text

if trim(usr) = '' or IsNull(usr) then //2
messagebox('Îøèáêà!', 'Ââåäèòå èìÿ êîìïüþòåðà àäðåñàòà!', StopSign!)
end if
if IsNull(comm) then comm = '' //3

main.dw_main.InsertRow(1) //4
main.dw_main.SetItem(1, 'main_main_com', usr) //5
main.dw_main.SetItem(1, 'main_nazvanie', comm) //6
main.dw_main.update() //7

выдаёт сообщение типа datawindow не имеет способности обновлятся ....
Народ помогите новичку плиз...заранее спасибо

VanoRсразу после
INSERT INTO main (id, nomer,izdat, redak, period, main_com, nazvanie)
VALUES (:main_nmb, :nom_nmb, :izd_nmb, :red_nmb, :sle_period.text,:sle_nazvanie.text);
вставьте свою проверку
If SQLCA.SqlCode<>0 Then
MessageBox("Îøèáêà.","Íå ìîãó ïîäêëþ÷èòñÿ ê áàçå." + SQLCA.SQLErrText,StopSign!,OK!)

(перед коммитом)

и смотрите ошибку


посмотрел выдаёт SQLSTATE=21S01

что посоветуешь?

Dim2000Lokoпосмотрел выдаёт SQLSTATE=21S01
Это чтобы вы#$нуться и заставить нас полезть в справку по неизвестному нам серверу?

Lokoчто посоветуешь?
Код выкинуть (ламерский мусор), тебя выгнать.

По существу: у тебя количество параметров в INSERT-е не совпадает с числом полей.

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