procedure TForm2.FormShow(Sender: TObject);
begin
label2.Caption :=song.Form1.temp_id ;
ADODataset1.Close;
ADODataset1.CommandText:='select * from song where quse_id = '+trim(label2.Caption) ;
ADODataset1.Open;
label2.Caption:=adodataset1.FieldByName('quse_content').AsString;end;
提示错误,说quse_id参数没有默认值,怎么回事呢
begin
label2.Caption :=song.Form1.temp_id ;
ADODataset1.Close;
ADODataset1.CommandText:='select * from song where quse_id = '+trim(label2.Caption) ;
ADODataset1.Open;
label2.Caption:=adodataset1.FieldByName('quse_content').AsString;end;
提示错误,说quse_id参数没有默认值,怎么回事呢
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货