//*******************连接数据库部分******************** procedure TForm1.BitBtn1Click(Sender: TObject); begin if OD1.Execute then begin if od1.FileName<>'' then begin edit1.Text:=od1.FileName ; Acon.Close ; Acon.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+od1.FileName+';Persist Security Info=False'; try acon.Connected :=true; edit1.Color :=clwhite; combobox4.Items.Clear ; acon.GetTableNames(combobox4.Items,false); sb1.SimpleText :='数据库链接成功!'; bitbtn3.Enabled :=true; combobox4.ItemIndex :=0; listbox1.Items.Clear ; at1.Close ; at1.TableName :=combobox4.Text ; at1.Open ; combobox1.Items.Clear ; at1.GetFieldNames(combobox1.items); combobox1.ItemIndex :=0; except edit1.Color :=clred; sb1.SimpleText :='数据库链接失败!'; combobox4.Items.Clear ; bitbtn3.Enabled :=false; end; end; end; end; //************刷新******************************* procedure TForm1.BitBtn3Click(Sender: TObject); begin combobox4.Items.Clear ; acon.GetTableNames(combobox4.Items,false); end; procedure TForm1.ComboBox4Change(Sender: TObject); begin if combobox4.ItemIndex>=0 then begin at1.Close ; at1.TableName :=combobox4.Text ; at1.Open ; combobox1.Items.Clear ; at1.GetFieldNames(combobox1.items); combobox1.ItemIndex :=0; ComboBox1Change(nil); end; end; //****************执行********************************** //****************执行********************************** procedure TForm1.BitBtn2Click(Sender: TObject); begin if listbox1.Items.Count<>0 then begin aq1.SQL.Clear ; aq1.SQL.Add(listbox1.Items.Text); aq1.open; form2.showmodal; end else begin if combobox4.Text<>'' then //***没有加入条件的话默认执行 begin aq1.SQL.Clear ; aq1.SQL.Add('select * from '+combobox4.text); aq1.open; form2.showmodal; end; end; end;
ADOQuery
最新推荐文章于 2020-03-09 12:40:31 发布