With ADOquery1 Do
Begin
Close;
SQL.Clear;
SQL.Add('SELECT Name From sysdatabases');
Open;
first;
ComboBox1.Items.Clear;
While Not Eof Do
Begin
With ComboBox1 Do
Begin
ComboBox1.Items.add(ADOQuery1.FieldByName('Name').AsString);
End;
ADOQuery1.Next;
End;
End;
Begin
Close;
SQL.Clear;
SQL.Add('SELECT Name From sysdatabases');
Open;
first;
ComboBox1.Items.Clear;
While Not Eof Do
Begin
With ComboBox1 Do
Begin
ComboBox1.Items.add(ADOQuery1.FieldByName('Name').AsString);
End;
ADOQuery1.Next;
End;
End;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货