gpt4 book ai didi

Delphi 从 SQL 数据库填充组合框项目

转载 作者:行者123 更新时间:2023-12-03 15:32:33 27 4
gpt4 key购买 nike

我想用 SQL 数据库中的数据填充组合框,但它不起作用。我的查询有数据库连接,查询SQL属性字段为select * from provider_table

Query1.SQL.Clear;
Query1.SQL.Add('select name from provider_table where region_code = '+quotedstr('eng')');
Query1.Open;

while NOT Query1.Eof do begin
ComboBox1.Items.Add(Query1['name']);
Query1.Next;
end;

有人有想法吗?谢谢各位的解答!

最佳答案

这是您要找的吗?

procedure SelCombo(sql:ansiString;Q:TSQLQuery; var Combo:TComboBox);
var i: integer;
begin
Q.Close;
Q.SQL.Text:='';
Q.Open(sql);
Combo.Text:='';
while not Q.Eof do begin
Combo.Items.Add(Q.Fields.Fields[0].AsString);
Q.Next;
end;
Q.Close;
end;

关于Delphi 从 SQL 数据库填充组合框项目,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/24597682/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com