高手帮忙

Question

procedure TForm30.BitBtn1Click(Sender: TObject);
beginif combobox1.Text='上年12月'
  then
  begin
    form39.ADOConnection1.ConnectionString:=
  'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\航天' +
      '信息\database\cha0912.mdb;Persist Security Info=False'; end;
 begin
 form39.Show;
 end.做这个时总出错，我想通过从combobox的选择来调用不同的数据库在同一个窗体中显示，窗体数据库连接已经成功但是想改变连接却不行。高手给指点一下！谢谢！

Answer 1

你只设置了ADOConnection1的链接字符串，但是没有打开ADOConnection1

Answer 2

ADOConnection1.close;
ADOConnection1.open;

Answer 3

procedure TForm30.BitBtn1Click(Sender: TObject);
beginif combobox1.Text='上年12月'
  then
  begin
  form39.ADOConnection1.close;
  form39.ADOConnection1.ConnectionString:=
  'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\航天' +
  '信息\database\cha0912.mdb;Persist Security Info=False';
   form39.ADOConnection1.open;
 end;
 begin
 form39.Show;
 end.

Answer 4

如果要连不图同的数据库，可以这样试试，关键是改变ConnectionString，重新打开ADOConnection1。
procedure TForm30.BitBtn1Click(Sender: TObject);
beginif combobox1.Text='上年12月'
  then
  begin
  关闭所有与ADOConnection1连接的数据集;
  form39.ADOConnection1.close;
  form39.ADOConnection1.ConnectionString:= '';
  form39.ADOConnection1.ConnectionString:= '其他数据库的连接字符串'
  form39.ADOConnection1.open;
  打开所有与ADOConnection1连接的数据集;
 end;
 begin
 form39.Show;
 end.