DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: lixuan123
今日帖子: 0
在线用户: 5
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 jacklove (jacklove) ★☆☆☆☆ -
普通会员
2003/12/9 15:17:59
标题:
如何在程序中实现:在数据库中加一个表的功能??急! 浏览:1673
加入我的收藏
楼主: 各位大虾,我想通过程序实现往数据库(SQL SERVER2000)加表,并且设置表的各列属性的功能,请大虾们帮个忙,可以吗?
谢谢
----------------------------------------------
-
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2003/12/9 15:33:17
1楼: ADOTable1.Connection :=nil;
        ADOTable2.Connection :=nil;
        ADOTable3.Connection :=nil;
        
        ADOConnection1.ConnectionString :=Format(adocs2,[DBName]);
        ADOQuery1.Connection :=ADOConnection1;

        ADOQuery1.SQL.Clear ;
        ADOQuery1.SQL.Assign(memo1.Lines );
        ADOQuery1.ExecSQL;

        ADOQuery1.SQL.Clear ;
        ADOQuery1.SQL.Assign(memo2.Lines );
        ADOQuery1.ExecSQL;

        ADOQuery1.SQL.Clear ;
        ADOQuery1.SQL.Assign(memo3.Lines );
        ADOQuery1.ExecSQL;

        ADOQuery1.Connection :=nil;
        ADOQuery1.Close ;

create table lianxi1(
姓名 char(50),
邮箱 char(50),
QQ char(50),
主页 varchar(255),
生日 date,
性别 char(2),
手机 char(50),
身份证 char(50),
特长 varchar(255),
国家 char(50),
省 char(50),
市 char(50),
家庭地址 varchar(255),
电话 char(50),
传真 char(50),
邮编 char(50),
单位 varchar(255),
部门 char(50),
职务 char(50),
公司电话 char(50),
公司邮箱 char(50),
公司主页 varchar(255),
公司城市 char(50),
公司地址 char(50),
备注 varchar(255),
primary key(姓名)
)

偶都是这么干的 :)
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 jacklove (jacklove) ★☆☆☆☆ -
普通会员
2003/12/9 15:59:47
2楼: 好,非常感谢,我去实践一下先:)
----------------------------------------------
-
作者:
男 jacklove (jacklove) ★☆☆☆☆ -
普通会员
2003/12/10 11:31:52
3楼: 还是不太明白,bios,能解释一下吗?
----------------------------------------------
-
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2003/12/10 22:02:33
4楼: create table lianxi1(
。。。。

)

把要创建的表的SQL语句复制到Memo控件
然后程序中有:
        ADOQuery1.SQL.Clear 
        ADOQuery1.SQL.Assign(memo3.Lines );
        ADOQuery1.ExecSQL;
这样的语句可以帮助执行
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 jacklove (jacklove) ★☆☆☆☆ -
普通会员
2003/12/11 8:07:59
5楼: 哦,知道了,嘿嘿……行得通就行,哇哈哈

感谢
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行60.54688毫秒 RSS