ADOQuery

最新推荐文章于 2024-07-09 21:34:05 发布

Nada_Red

最新推荐文章于 2024-07-09 21:34:05 发布

阅读量906

点赞数

CC 4.0 BY-SA版权

分类专栏： DataBase 文章标签：数据库 security

本文链接：https://blog.youkuaiyun.com/Nada_Red/article/details/332309

DataBase 专栏收录该内容

11 篇文章

订阅专栏

博客给出了数据库连接、刷新及执行操作的代码。包含连接数据库时的配置，若成功则显示相关信息并获取表名和字段名；刷新可重新获取表名；执行操作根据列表框内容或默认查询语句执行，并显示对应窗口。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//*******************连接数据库部分******************** 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;