ببخشید من اینقد سوال میکنم،انشالا روزیم بتونم تو این تالار به دیگران کمک کنم.یه مشکل برام پیش اومده
function translate(word:string):string;
var
rs:_Recordset;
res:string;
AppPath:string;
begin
AppPath:=GetCurrentDir();
frmMain.ADOConnection1.ConnectionString:='Provider =Microsoft.Jet.OLEDB.4.0;data source='+AppPath+'/db.mDB';
frmMain.ADOConnection1.Open;
rs:=frmMain.ADOConnection1.Execute('select * from (English inner join Farsi on English.Word_ID=Farsi.English_ID) Where English_Word="'+word+'"');
if rs.EOF then
begin
result:='';
rs.Close;
frmMain.ADOConnection1.Close;
Exit;
end;
res:=rs.Fields.Item['Farsi_Word'].Value;
rs.Close;
frmMain.ADOConnection1.Close;
result:=res;
end;
با کد بالا مشکلی نیست.اما
function translate(word:string):string;
var
rs:_Recordset;
res:string;
AppPath:string;
begin
AppPath:=GetCurrentDir();
frmMain.ADOConnection1.ConnectionString:='Driver={ Microsoft Access Driver (*.mdb)};Dbq='+AppPath+'/db.mDB';
frmMain.ADOConnection1.Open;
rs:=frmMain.ADOConnection1.Execute('select * from (English inner join Farsi on English.Word_ID=Farsi.English_ID) Where English_Word="'+word+'"');
if rs.EOF then
begin
result:='';
rs.Close;
frmMain.ADOConnection1.Close;
Exit;
end;
res:=rs.Fields.Item['Farsi_Word'].Value;
rs.Close;
frmMain.ADOConnection1.Close;
result:=res;
end;
خطای ران تایم میگیره(Too few parameters expected '1') برا خط
if rs.EOF then
ممنون میشم دوستان راهنمایی کنن.
پاسخ با نقل قول