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',' ') 没有取到值呀
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',' ') 没有取到值呀
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');