delphi根据填写的字符串连接数据库并读取数据库的表和表的字段及数据

在Delphi中，你可以使用ADO连接组件连接到，并读取数据库的表、字段和数据。以下是一个示例代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  ConnectionString: string;
  ADOConnection1: TADOConnection;
  ADOTable1: TADOTable;
  ADOQuery1: TADOQuery;
begin
  // 构建连接字符串
  ConnectionString := Edit1.Text; // 假设连接字符串由一个Edit控件输入
  
  // 创建ADO连接组件
  ADOConnection1 := TADOConnection.Create(Self);
  try
    // 设置连接字符串
    ADOConnection1.ConnectionString := ConnectionString;

    // 连接数据库
    ADOConnection1.Connected := True;

    // 创建ADOTable组件
    ADOTable1 := TADOTable.Create(Self);
    ADOTable1.Connection := ADOConnection1;

    // 设置要读取的表名
    ADOTable1.TableName := 'YourTableName'; // 替换为你要读取的表名

    // 打开表
    ADOTable1.Open;

    // 显示表名
    Memo1.Lines.Add('表名: ' + ADOTable1.TableName);

    // 显示字段名
    Memo1.Lines.Add('字段名:');
    for var i := 0 to ADOTable1.FieldCount - 1 do
      Memo1.Lines.Add(ADOTable1.Fields[i].FieldName);

    // 显示数据
    Memo1.Lines.Add('数据:');
    ADOTable1.First;
    while not ADOTable1.Eof do
    begin
      Memo1.Lines.Add(ADOTable1.FieldByName('YourFieldName').AsString); // 替换为你要读取的字段名
      ADOTable1.Next;
    end;

    // 关闭并释放ADOTable组件
    ADOTable1.Close;
    ADOTable1.Free;
  finally
    // 关闭并释放连接组件
    ADOConnection1.Close;
    ADOConnection1.Free;
  end;
end;

在上述示例代码中，我们假设连接字符串由一个名为Edit1的Edit控件输入。点击按钮后，会获取Edit1中的连接字符串，并使用ADO连接组件连接到数据库。然后，我们创建一个ADOTable组件，并设置要读取的表名。然后打开表，并逐个显示表名、字段名和数据到Memo控件中。

请注意，上述示例中使用了ADO连接组件（TADOConnection）、ADOTable组件（TADOTable）和ADO查询组件（TADOQuery）。你需要在使用前确保已经在程序中添加了相应的ADO组件，并进行相应的设置。

希望这可以帮助到你！如果你有任何其他问题，请随时提问。