majidmir
دوشنبه 15 شهریور 1389, 10:41 صبح
سلام
یه پروسیجر دارم که نام فیلد ها رو به فارسی تغییر دادم و موقعی که توی دلفی فراخوانی می کنم دلفی نمی تونه شناسایی کنه و بهم اخطار میده که همچین فیلدی وجود نداره چکار کنم ؟
DataSource1.DataSet:=SPselectBA;
SPselectBA.Close;
SPselectBA.Parameters.ParamValues['@cod']:=txtcod1.Text;
SPselectBA.Open;
dbedit1.Text:=SPselectBA.fieldbyname('[کد مشتري]').AsString;
dbedit2.Text:=SPselectBA.fieldbyname('[کد بازاياب]').AsString;
txtdate.Text:=SPselectBA.fieldbyname('تاريخ') .AsString;
txttakhfif.Text:=SPselectBA.fieldbyname('تخفي ').asstring;
if (SPselectBA.fieldbyname('[نوع خريد]').asstring='1' )then
RadioButton3.Checked:=true
else if (SPselectBA.fieldbyname('[نوع خريد]').asstring='2' )then
RadioButton4.Checked:=true ;
این هم پروسیجر SQL
CREATE PROCEDURE B_K_SELECT_FACTOR
@cod as int
AS
select cod AS کد, radif AS ردیف, codbazaryab AS [کد بازاریاب], codmoshtari AS [کد مشتری], codkala AS [کد کالا], noaekharid AS [نوع خرید], takhfif AS تخفیف,
date1 AS تاریخ, tedad AS تعداد, price1 AS قیمت from kharidBazaryab
where cod=@cod
return 1
GO
این هم خطا
یه پروسیجر دارم که نام فیلد ها رو به فارسی تغییر دادم و موقعی که توی دلفی فراخوانی می کنم دلفی نمی تونه شناسایی کنه و بهم اخطار میده که همچین فیلدی وجود نداره چکار کنم ؟
DataSource1.DataSet:=SPselectBA;
SPselectBA.Close;
SPselectBA.Parameters.ParamValues['@cod']:=txtcod1.Text;
SPselectBA.Open;
dbedit1.Text:=SPselectBA.fieldbyname('[کد مشتري]').AsString;
dbedit2.Text:=SPselectBA.fieldbyname('[کد بازاياب]').AsString;
txtdate.Text:=SPselectBA.fieldbyname('تاريخ') .AsString;
txttakhfif.Text:=SPselectBA.fieldbyname('تخفي ').asstring;
if (SPselectBA.fieldbyname('[نوع خريد]').asstring='1' )then
RadioButton3.Checked:=true
else if (SPselectBA.fieldbyname('[نوع خريد]').asstring='2' )then
RadioButton4.Checked:=true ;
این هم پروسیجر SQL
CREATE PROCEDURE B_K_SELECT_FACTOR
@cod as int
AS
select cod AS کد, radif AS ردیف, codbazaryab AS [کد بازاریاب], codmoshtari AS [کد مشتری], codkala AS [کد کالا], noaekharid AS [نوع خرید], takhfif AS تخفیف,
date1 AS تاریخ, tedad AS تعداد, price1 AS قیمت from kharidBazaryab
where cod=@cod
return 1
GO
این هم خطا