哥哥姐姐们，帮妹妹个小忙，好吗？

Question

Label5.Caption:='SELECT 商品名称 from commodity where 序号=IntToStr(CurrentCommodityIndex)';这样让Label5显示商品名称 行吗？

Answer 1

这是在VB里？VB操作MYSQL我 也不清楚，但至少你要有个函数用于执行查询语句：
'SELECT 商品名称 from commodity where 序号=IntToStr(CurrentCommodityIndex)'然后从得到的结果集中取得数据，然后在赋给Label5.Caption

Answer 2

不是VB，是Delphi
我改成这样，还是不行，怎么办？
var
  CommodityName:string;
begin
  Randomize;//初始化随机数
  CurrentCommodityIndex:=Random(10);//产生一个0到9的随机数
  CommodityName:='Select 商品名称 from commodity';
  Label5.Caption:=CommodityName[CurrentCommodityIndex];
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add(CommodityName);
  try
    query1.Open;
  except
    query1.ExecSQL;
  end;

Answer 3

SELECT 商品名称 from commodity where 序号=IntToStr(CurrentCommodityIndex）
这一句是有些问题的
应该是这样子
Var SQL: String;
begin
  Randomize;//初始化随机数
  CurrentCommodityIndex:=Random(10);//产生一个0到9的随机数
  SQL := "SELECT 商品名称 from commodity where 序号 = "
       + IntToStr(CurrentCommodityIndex）;
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add(CommodityName);
  try
    query1.Open;
  except
    query1.ExecSQL;
  end;不知是不是这个意思了???嘻嘻,有问题继续吧你上面的

Answer 4

是有问题  我又改了 还是不行  你看看下面的
var
  CommodityName:string;
begin
  Randomize;//初始化随机数
  CurrentCommodityIndex:=Random(10);//产生一个0到9的随机数
  CommodityName:='Select 商品名称 from commodity';
  Label5.Caption:=CommodityName[CurrentCommodityIndex];
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add(CommodityName);
  query1.Open;

Answer 5

接上面：
CommodityPicture:='SELECT 图片路径 from commodity where 序号="'+IntToStr(CurrentCommodityIndex)+'"';
  DBImage1.Picture.LoadFromFile('CommodityPicture');
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add(CommodityPicture);
  query1.Open;
  end;帮我看看  谢谢了！

Answer 6

Label5.Caption:=CommodityName[CurrentCommodityIndex]; // 这句是想做什么呀??你的意思是读出所有的商品名,以及它的图片再显示吧!!!!
那应该在  query1.Open;  后处理呀!!

Answer 7

Randomize;//初始化随机数
  CurrentCommodityIndex:=Random(10);//产生一个0到9的随机数
  CommodityName:='Select 商品名称 from commodity';
  Label5.Caption:=CommodityName[CurrentCommodityIndex];//这句话的意思就是把随机产生的那张图片的名字赋给Label5.Caption（您是说把这一句放在query1.Open;之后是吗？）
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add(CommodityName);
  query1.Open;