1.我用这种方法怎么不能插入数据呀(数据库已经连上了,name和id都是字符型的)
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOCommand1 do
 begin
CommandText:='INSERT INTO shiyan (name,id) VALUES(:NEWName,:NEWId)';
CommandType:=cmdText;
Parameters.ParamByName('NEWName').Value:='政权';
Parameters.ParamByName('NEWId').Value:='08';
Execute;
end;
end;2..ini问题:我的.ini文件如下(请指正格式是否正确)[path]
ConnectionString= 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=sykhnh;Data Source=syf;'取值代码如下:procedure TForm1.FormCreate(Sender: TObject);
var
MyIniFile:TIniFile;
zqy:string;
beginMyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'/'+'path.ini');//有问题吗
zqy:=MyIniFile.ReadString('path','connectonstring',' ') ;//有问题吗
showmessage(zqy);
end;
为什么弹出的提示框是空值;  
MyIniFile.ReadString('path','connectonstring',' ') 没有取到值呀

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    with ADOCommand1 do
     begin
    CommandText:='INSERT INTO shiyan (name,id) VALUES(:NEWName,:NEWId)';
    CommandType:=cmdText;
    Parameters.ParamByName('NEWName').Value:='政权';
    Parameters.ParamByName('NEWId').Value:='08';
    Prepared;     //在这里加个这个试一下
    Execute;
    end;
    end;2.MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'/'+'path.ini');//有问题吗ExtractFilePath(Application.ExeName)这个后面已经带有了一个"\"了,所以后面的"\"要去掉.
    MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'path.ini');