[Hugues de Payens]

Кто-нить знает как работать с параметрами в SQL?
Вернее с параметрами в SQL под Delphi?

Comments

[Falka]

когда-то мы это возможно знали...

[Forumsdk]

с какими параметрами?

[*Мультяшка*]

помоему в Делфе просто обьявляются переменные, а потом через собаку перед именем для разименования используются в СКЛ

[Forumsdk]

если вызывается процедура сохранённая в СУБД, то в запросе через @ описываются переменные, потом вызывается эта процедура со списком значений для них.

CREATE FUNCTION [dbo].[f_getFirstPart] (
	@str nvarchar(4000),
	@sep nvarchar(1)
)  
RETURNS nvarchar(125) AS  
BEGIN

if @str = @sep 
	return ''
declare @lastCh nvarchar(1)
declare @pos int
declare @len int
declare @ifOverSep int

set @len = LEN(@str)
set @lastCh = SUBSTRING(@str, 1,1+LEN(@sep))
if(@lastCh = @sep)
	set @ifOverSep = 1
else
	set @ifOverSep = 0
set @pos = CHARINDEX(@sep, @str, 1 + @ifOverSep)
Return SUBSTRING(@str, 1 + @ifOverSep, @pos - 1 - @ifOverSep)
END

или тупо в коде пишется примерно так

'select * from demotable where id ='+inttostr(N);

[Hugues de Payens]

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

и хотелось бы сделать это похитрее чем просто

Memo1.Lines.Append('insert into Accounts');
  Memo1.Lines.Append('(AccName, Type, UserSurname, Username,');
  Memo1.Lines.Append('UserCountry, UserCity, UserAdress,PostCode, Phone,');
  Memo1.Lines.Append('Question, Answer)');
  Memo1.Lines.Append('values');
  Memo1.Lines.Append('('+#39+AccName+#39+', 1, '+#39+UserSurname+#39+', ');
  Memo1.Lines.Append(#39+UserName+#39+', '+IntToStr(UserCountry)+', ');
  Memo1.Lines.Append(#39+UserCity+#39+', '+#39+UserAdress+#39+', ');
  Memo1.Lines.Append(IntToStr(PostCode)+', '+#39+Phone+#39+', ');
  Memo1.Lines.Append(IntToStr(Question)+', '+#39+Answer+#39+');');
  Query1.SQL.Text:=Memo1.Lines.Text;
  Query1.ExecSQL;

думал сделать через свойство Param объекта Query...
но попробовал три разных способа их поюзать и везде вылезала ошибка

[Forumsdk]

вот такой вариант

AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('insert into Accounts (AccName, Type, UserSurname, Username,UserCountry, UserCity, UserAdress,PostCode, Phone,Question, Answer) values');
AdoQuery1.SQL.Add('('+#39+AccName+#39+', 1, '+#39+UserSurname+#39+', '+#39+UserName+#39+', '+IntToStr(UserCountry)+', +'#39+UserCity+#39+', '+#39+UserAdress+#39+', '+IntToStr(PostCode)+', '+#39+Phone+#39+', '+IntToStr(Question)+', '+#39+Answer+#39+');');
AdoQuery1.Active:=true;

можно так (делфи под рукой нету, поэтому могу ошибаться)

AdoQuery1.Active:=true;
AdoQuery1.Insert;
AdoQuery1.FieldValues['AccName'] = AccName;
....
ADOQuery1.Post;

а чем тебе стандартные контролсы для работы с БД не нравятся?

[Hugues de Payens]

мне как раз хочется без #39
просто куча текстовых полей,
в sql они через апострофы обозначаются
и в делфе апостроф - специальный символ

[Forumsdk]

ОО, нашёл

form1.ADOQuery2.SQL.Add('SELECT * FROM пользователи WHERE пользователь='+''''+combobox1.text+''''+' AND пароль='+''''+edit1.text+'''');

[Hugues de Payens]

ок, над позырить

[Hugues de Payens]

Форум, мож ты еще знаешь как значение из ячейки DBGrid в переменную выцепить?

[Forumsdk]

Это нафиг никому не надо, берёшь текущую запись из источника данных (TTable, TAdoQuery и подобных), при выборе ячейки в DBGrid'е выбранная запись становится текущей, а потом вытаскиваешь через ***.FieldValues['AccName']

[Hugues de Payens]

Мну просто надо кароч какую хрень сделать...
При добавлении в таблицу, одно поле интеджеровское увеличивать на единицу.
При этом максимальное значение легко вытащить запросом в DBGrid
а вот как его вытащить в переменную - я хз