菜鸟：倾家荡产（236分），只为一简单的mdb数据库问题？绝对简单，见者有分！^_^(236分)

  • 主题发起人 主题发起人 redone1302
  • 开始时间 开始时间
R

redone1302

Unregistered / Unconfirmed
GUEST, unregistred user!
希望详细点回答！本人未接触过数据库编程。
我已经提取了一些数据在四个LISTBOX中，当然，每个LISTBOX中的COUNT是一样多的，问题
是，在程序中应如何编程才能新建一个ACCESS数据库abc.mdb，并把这些数据存到一个数据
表名为123的表中，新建字段名为a,b,c,d。每个LISTBOX对应于一个字段。具体该添加哪些
控件，如何设置其属性，最重要的是如何实现保存？多谢回答！
 
<h1>这些基础问题最好先看看书！</h1>
 
对于access用ADO吧,数据库创建查create database,好好看看sql帮助,ok?
 
必须要编程创建吗?
 
to www:不是必须的。你只要告诉我该如何做就行了，请详细点。
如果一次成功，或者是谁的启示让我成功了，便给全分。
各位高手，帮帮忙啦。实在是急，只有一天时间了。
 
不是有dblistbox么.
最好先看看书
 
你必须先建立一个空的mdb文件,然后再在里面用sql动态创建表.此时你要定义字段的，然后
用sql语句生成表。
 
to www:空的数据库，没问题。那后面的操作可以具体点吗？求你了。
 
创建新表。
语法
CREATE TABLE table (field1 type [(size)] [NOT NULL] [index1] [, field2 type [(size)] [NOT NULL] [index2] [, ...]] [, CONSTRAINT multifieldindex [, ...]])
CREATE TABLE 语句分为以下几个部分：
部分 说明
table 欲创建的表的名称。
field1, field2 在新表中欲创建的字段的名称。至少必须创建一个字段。
type 在新表中的字段的数据类型。
size 字段的字符长度 (文本及二进制字段)。
index1, index2 定义单一字段索引的 CONSTRAINT 子句。
可以这样做:
query1.sql='CREATE TABLE 表名(zd1 TEXT, zd2 TEXT,zd3 TEXT ,zd4 TEXT)';
query1.exesql;
 
先用Access建库，然后用Delphi的TAdoConnection控件连接数据库，然后用控件Tadoquery的
sql里加入将你的控件内容插入到Database的sql语句，
即可！
我也是强烈建议你还是看一看的基础书，这样的话我想是比较好的，你说呢？
 
给WWW：这只是创建了一个空表，那如何向里面添加指定的内容呢？
不要笑我，我确实太菜。:~P
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin

With Database1 do
begin
DriverName := 'MSACCESS';
DatabaseName := 'Mydb';
Params.Clear;
Params.Add('DATABASE NAME=c:/db1.MDB');
Params.Add('USER NAME=');
Params.Add('PASSWORD=');
LoginPrompt := False;
end;


With Query1 do
begin
Close;
DatabaseName := 'Mydb';
SQL.Clear;
SQL.Add('create table 123'); //邮箱
SQL.Add('(a text,');
SQL.Add(' b text,');
SQL.Add(' c text,');
SQL.Add(' d text)');
ExecSQL;
end;

for i := 0 to Listbox1.Items.Count-1 do
With Query1 do
begin
SQL.Clear;
SQL.Add('insert into 123'); //data为表名
SQL.Add('(a,b,c,d)'); //id为自增字段,插入时不管它
SQL.Add('Values (:PA,:PB,:PC,:PD)');
ParamByName('PA').AsString:=ListBox1.Items.Strings;
ParamByName('PB').AsString:=ListBox2.Items.Strings;
ParamByName('PC').AsString:=ListBox3.Items.Strings;
ParamByName('PD').AsString:=ListBox4.Items.Strings;
ExecSQL;
end;
end;
 
建议最好使用Diamond Access来开发Access数据库应用程序,
不过如果只是救急,上面的代码应该可以解决问题了
 
agree PaulBlue
 
这种问题我也觉得先看看书,别什么问题都来问人,这样会容易产生惰性的. :)
 
如果只是救急,g： PaulBlue；
我觉得您最好是先看看书，这样比较有系统。



 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
W
简单数据库编程(200分)
回复
12
查看
169
骨折
骨
T
简单易答——送分！如何将SQL语句保存到数据库中(10分)
回复
4
查看
109
tanminr
T
S
一个惊人的简单问题，可惜我这个超级菜鸟真的不会(50分)
回复
4
查看
121
siberia
S
L
哭了，昨天的帖子结了，再用200分重发，一个关于sql内部的数据导入问题！[简单+我是菜鸟](200分)
2
回复
34
查看
263
linger_ok
L
后退
顶部