本文整理自网络,侵删。
最近在学习delphi 7编程,尽管已经这门语言已经落寞了,但是作为新手,我目前觉得delphi难度比其他的小,可能与可视化环境有关,尤其很多控件拖拖拖就可以了。以下理解可能有很多错误,希望高手指正,谢谢啦。
界面如下:
添加相关控件:
控件 属性修改 修改后的内容 ADOConnection1 ConnectionString ADOTable1 Connection ADOConnection1 DataSource1 DataSet ADOTable1 DBGird1 DataSource DataSource1
代码如下:
procedure TForm1.Button1Click(Sender: TObject);//“打开”按钮单击事件
const//常量
dbadoconstr = 'Provider=%s;Data Source=%s;Persist Security Info=false';
//Provider=[驱动程序];Password=[密码];Persist Security Info=True;User ID=[用户名];Data Source=[数据源别名]
//Persist Security Info属性的意思是表示是否保存安全信息,其实可以简单的理解为"ADO在数据库连接成功后是否保存密码信息",True表示保存,False表示不保存
dbprovider = 'Microsoft.Jet.OLEDB.4.0';//数据库驱动的名称
var
myaccess : string;//定义数据库文件路径变量
begin
OpenDialog1.FileName := '*.mdb';//打开文件的名称
if OpenDialog1.Execute then //如果文件打步骤执行了,就返回True
begin
myaccess := OpenDialog1.FileName; //文件路径
Edit1.Text := myaccess;//在Edit1中显示文件路径
ADOConnection1.Connected := False;
ADOConnection1.ConnectionString := Format(dbadoconstr,[dbprovider,myaccess]);
//上条语句为将格式化后的字符串给ConnectionString,用于连接数据库
ADOConnection1.Connected := True;
ADOConnection1.GetTableNames(ListBox1.Items);//获得数据库文件中所有的表的名称,赋值到listbox1.items中
end;
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);//Listbox1中双击事件
begin
ADOTable1.Close;//表名查询关闭
ADOTable1.TableName := ListBox1.Items.Strings[ListBox1.Itemindex];//将当前双击的表名赋值给ADOTable1的表名中。
ADOTable1.Open;//表名查询打开
end;
相关阅读 >>
Delphi 获取本机 hostname ip address
Delphi winapi: getnextwindow - 获取指定窗口z上或z下的窗口的句柄
更多相关阅读请进入《Delphi》频道 >>