delphi 下如何实现sql demo编程，请高手指点。在线等待

Question

delphi 下如何实现sql demo编程，请高手指点。在线等待

Answer 1

做一个允许输入sql语句的界面，你想点就点罗！

Answer 2

举例：  得到网内所有的sqlserver服务名：
function TFormDataSet.GetSQLServer(ComboBox: TComboBox): Boolean;
var
  SQLServer: Variant;
  ServerList: Variant;
  i, nServers: integer;
  sRetValue: string;
begin
  ComboBox.Items.Clear;
  Result := False;
  try
    Screen.Cursor := crHourGlass;
    SQLServer := CreateOleObject('SQLDMO.Application');
    ServerList := SQLServer.ListAvailableSQLServers;
    nServers := ServerList.Count;
    for i := 1 to nServers do
      ComboBox.Items.Add(ServerList.Item(i));
    SQLServer := NULL;
    ServerList := NULL;
    Result := True;
    cbSQLServer.Style := csDropDownList;
  except
  end;
  Screen.Cursor := crDefault;
end;