请在DELPHI中，如何将ACCESS数据库的表一次性全部显示出来

你可以使用ADO控件列举所有的表,比如ADOConnection1GetTableNames();

procedure TForm1Button1Click(Sender: TObject);

var

objTables: TStringList;

i: Integer;

begin

objTables := TStringListCreate;

try

ADOConnection1GetTableNames(objTables);

ShowMessage('总共有几个表：'+ IntToStr(objTablesCount));

finally

FreeAndNil(objTables);

end;

end;

（注意要把你的数据库文件和你的工程窗体啥的放在同一个文件夹里）

先插入一个模块，在模块里写代码

Public cn As ADODBConnection

Sub con()

Set cn = New ADODBConnection

cnConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\数据库名扩展名;Persist Security Info=False"（在一行里）

End Sub

在窗体里写代码

call con

cnopen //打开数据库

Dim rs As ADODBRecordset //rs是变量

Set rs = New ADODBRecordset

查找

rsOpen "select from 表名 where 字段名1=' " & Text1Text & " ' and 字段名2= ' " & Text2Text & " ' ", cn //text里的内容是符合你要查找的要求

rsOpen "select from 表名" //查找整个表的内容

Set DataGrid1DataSource = rs //显示在DataGrid里

往数据库里添加内容是（不过貌似只能一个一个的吧，要不就用循环）

cnExecute "INSERT INTO 表明 (字段1,字段2,字段3) VALUES('" & Text1 & "','" & Text2 & "','" & Combo3Text & "')"

删除 cnExecute "DELETE FROM 表明 where 字段名='" & Text1 & "'"

'插入到创建了的conn对象下面set rs=conn,execute("select aid,ausername,b,tel,binfo from usertable as a,infrotable as b where atel=btel")if not rseof then while not rseof responsewrite(rs("username")&rs("tel")&rs("info")&"

") rsMoveNext wendelse responsewrite("暂无记录")end if '直接在网页上写的 不知道有没有错的地方'你把这些全部复制到你的页面上 就是你要的效果了'你的数据库设计也有问题 你两个表应该有个连接的列 就是相关联的 不然怎么查只能按照你的不然只能按照你的电话号码来查

'如果你的电话号码有重复的那查询出来的记录也不是准确的建议重新加个标示列/

'如果还有不懂的可以QQ问我方便 以后不懂的也可以问

A关系。

参考数据库access2003应用教程人民邮电出版社第6页“每一个关系都是一个二维表”。

表由字段组成。就像一张纸质表一样，假如你有一张人员基本信息表，姓名、性别、年龄、出生年月日、家庭住址、职务、职称，等等这些在数据库表设计中就称为字段，字段；

有一些属性，最重要属性是它数据类型，比如姓名、性别、家庭住址、职务、职称在ACCESS中一般设置成文本类型，出生年月日则是日期类型，年龄可以整数型或者小数类型。

Access拥有的报表

创建功能能够处理任何它能够访问的数据源。Access提供功能参数化的查询，这些查询和Access表格可以被诸如VB6和NET的其它程序通过DAO或ADO访问。在Access中，VBA能够通过ADO访问参数化的存储过程。

与一般的CS关系型数据库管理不同，Access不执行数据库触发，预存程序或交互式登录 *** 作。Access 2010包括了嵌入ACE数据引擎的表级触发和预存程序，在Access 2010中，表格，查询，图表，报表和宏在基于网络的应用上能够进行分别开发。

百度百科-ACCESS数据库

是VBA吗

DoCmdOpenTable "表名" '看一下帮助,具体第3个参数是打开类型(只读还是可写)

'后面还可以跟一句让表最大化的代码:

DoCmdMaximize

以上就是关于请在DELPHI中，如何将ACCESS数据库的表一次性全部显示出来全部的内容，包括:请在DELPHI中，如何将ACCESS数据库的表一次性全部显示出来、怎么用VB来对ACCESS数据库读写,我想把表直接显示出来.、【ASP】跨表查询 跨表显示 access数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！