5,388
社区成员
发帖
与我相关
我的任务
分享
with simpledataset1.Connection do
begin
DriverName := 'dbxmysql';
GetDriverFunc := 'getSQLDriverMYSQL50';
LibraryName := 'dbxopenmysql50.dll';
VendorLib := 'libmysql.dll';
Params.Append('HostName='+edit1.Text);
Params.Append('port='+edit2.Text );
Params.Append('Database='+edit3.Text );
Params.Append('User_Name='+edit4.Text );
Params.Append('Password='+edit5.Text );
Params.Append('charset=gbK');
end;
simpledataset1.DataSet.CommandText :='SET NAMES GBk ';
simpledataset1.Execute;
simpledataset1.DataSet.CommandText :='select max(unSongInfoId) as maxid from '+edit6.Text ;
simpledataset1.Open;
Edit7.Text:=IntToStr(strtointdef(simpledataset1.Fieldbyname('maxid').AsString,0)+1);