盒子论坛 v2.1

我做的小程序想在远方的朋友机子上运行，但代码里需要动态创建数据库，谁帮帮我，把动态创建的代码给我写出来啊，多谢了。
----------------------------------------------
Function IThink(Boy,Girl : TPerson) : String;
begin
  if Boy.钱 < 10W then Girl.Say(''滚!'') else
  begin
     if Girl.Anser = ''我愿意'' then
     Result := ''结婚'' else
     Result := IntToStr(88);
  end;
风过不折→百炼成尧 QQ: 7315910

作者：

root_lh (Lhxs)	★☆☆☆☆	-
	盒子活跃会员

2004/3/17 10:21:23

1楼：

mssql数据库/oracle /....
CREATE TABLE
创建新表。

语法
CREATE TABLE
    [ database_name.[ owner ] .| owner.] table_name
    ( { < column_definition >
        | column_name AS computed_column_expression
        | < table_constraint > ::= [ CONSTRAINT constraint_name ] }

            | [ { PRIMARY KEY | UNIQUE } [ ,...n ]
    )

[ ON { filegroup | DEFAULT } ]
[ TEXTIMAGE_ON { filegroup | DEFAULT } ]

< column_definition > ::= { column_name data_type }
    [ COLLATE < collation_name > ]
    [ [ DEFAULT constant_expression ]
        | [ IDENTITY [ ( seed , increment ) [ NOT FOR REPLICATION ] ] ]
    ]
    [ ROWGUIDCOL]
    [ < column_constraint > ] [ ...n ]

< column_constraint > ::= [ CONSTRAINT constraint_name ]
    { [ NULL | NOT NULL ]
        | [ { PRIMARY KEY | UNIQUE }
            [ CLUSTERED | NONCLUSTERED ]
            [ WITH FILLFACTOR = fillfactor ]
            [ON {filegroup | DEFAULT} ] ]
        ]
        | [ [ FOREIGN KEY ]
            REFERENCES ref_table [ ( ref_column ) ]
            [ ON DELETE { CASCADE | NO ACTION } ]
            [ ON UPDATE { CASCADE | NO ACTION } ]
            [ NOT FOR REPLICATION ]
        ]
        | CHECK [ NOT FOR REPLICATION ]
        ( logical_expression )
    }

< table_constraint > ::= [ CONSTRAINT constraint_name ]
    { [ { PRIMARY KEY | UNIQUE }
        [ CLUSTERED | NONCLUSTERED ]
        { ( column [ ASC | DESC ] [ ,...n ] ) }
        [ WITH FILLFACTOR = fillfactor ]
        [ ON { filegroup | DEFAULT } ]
    ]
    | FOREIGN KEY
        [ ( column [ ,...n ] ) ]
        REFERENCES ref_table [ ( ref_column [ ,...n ] ) ]
        [ ON DELETE { CASCADE | NO ACTION } ]
        [ ON UPDATE { CASCADE | NO ACTION } ]
        [ NOT FOR REPLICATION ]
    | CHECK [ NOT FOR REPLICATION ]
        ( search_conditions )
    }

参数

----------------------------------------------
中流一壶，千金争挈。宁为铅刀，毋为楮叶。错节盘根，利器斯别。识时务者，呼为俊杰！

作者：

chengyao (百炼成尧)	★☆☆☆☆	-
	盒子活跃会员

2004/3/17 10:33:25

2楼：

那你创建数据库的语句在哪呀？
----------------------------------------------
Function IThink(Boy,Girl : TPerson) : String;
begin
  if Boy.钱 < 10W then Girl.Say(''滚!'') else
  begin
     if Girl.Anser = ''我愿意'' then
     Result := ''结婚'' else
     Result := IntToStr(88);
  end;
风过不折→百炼成尧 QQ: 7315910

作者：

waterstone (waterstone)	★☆☆☆☆	-
	盒子活跃会员

2004/3/17 10:35:57

3楼：

唉！

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com

作者：

chengyao (百炼成尧)	★☆☆☆☆	-
	盒子活跃会员

2004/3/17 10:40:17

4楼：

waterstone  你别笑我嘛，帮帮忙啦，我现在在线等待啊
----------------------------------------------
Function IThink(Boy,Girl : TPerson) : String;
begin
  if Boy.钱 < 10W then Girl.Say(''滚!'') else
  begin
     if Girl.Anser = ''我愿意'' then
     Result := ''结婚'' else
     Result := IntToStr(88);
  end;
风过不折→百炼成尧 QQ: 7315910

作者：

endo (燕子帝国)	★☆☆☆☆	-
	盒子活跃会员

2004/3/17 16:27:05

5楼：

//获取数据库连接字符串(SqlServer2000)
Function GetDBConnectionString(IP,DataBaseName,UserName,UserPassWord:String):String;
Var
  DBConnectionString:String;
  DBTableName:String;
  ADOConnection_DB:TADOConnection;
  ADODataSet_DB:TADODataSet;
  DataSource_DB:TDataSource;
Begin
  DBConnectionString:='Provider=SQLOLEDB.1;Password='+UserPassWord+';Persist Security Info=True';
  DBConnectionString:=DBConnectionString+';User ID='+UserName+';Initial Catalog='+DataBaseName+';Data Source='+IP;
  Result:=DBConnectionString;
End;

//连接SQLSERVER2000数据库
Function ConnectDataBase():Boolean;
Var
  DataBaseName,UserName,UserPassWord,IP:String; //定义数据库名、用户名、密码、表名和连接IP
Begin
  IP:=GetIPAddress; //ReadConfig(IniFileName,'DBSet','IP');                    //获取计算机IP
  DataBaseName:=ReadConfig('DBSet','DataBaseName','); //数据库名称
  UserName:=ReadConfig('DBSet','UserName',');         //数据库用户名称
  UserPassWord:=ReadConfig('DBSet','UserPassWord','); //数据库密码
  Try
    With ADOConnection_DB Do
    Begin
      LoginPrompt:=False;
      ConnectionString:=GetDBConnectionString(IP,DataBaseName,UserName,UserPassWord);
      Connected:=False;
      Connected:=True;
      Result:=True;
    End;
  Except
    On E:EOleException Do
    Begin
      Result:=False;
      Beep();Beep();
      MessageDLG('Error：'+E.Message,MtWarning,[MBOK],0);
    End;
  End;
End;
----------------------------------------------
『惠安人才网』 www.harcw.net

作者：

chengyao (百炼成尧)	★☆☆☆☆	-
	盒子活跃会员

2004/3/18 9:43:31

6楼：

endo  我想你的代码一定是对的，但我是刚刚才学，怎么也看不懂啊。

这些代码是写在哪个地方的？怎么利用呢？能不能标注得详细一点啊？

谢谢了啊。

----------------------------------------------
Function IThink(Boy,Girl : TPerson) : String;
begin
  if Boy.钱 < 10W then Girl.Say(''滚!'') else
  begin
     if Girl.Anser = ''我愿意'' then
     Result := ''结婚'' else
     Result := IntToStr(88);
  end;
风过不折→百炼成尧 QQ: 7315910

作者：

yuanguoxing1976 (袁国星)	★☆☆☆☆	-
	普通会员

2004/3/24 18:03:09

7楼：

就是使用ADO连接的Execute方法传递建立数据库的字符串即可你也可以使用ADOX，但目前好象只是对ACCESS和SQL支持的还不错其它数据库的ADOX好象还不怎么样。
----------------------------------------------
Email:yuanguoxing1976@163.com
QQ:172649628

作者：

hongama (hongama)	★☆☆☆☆	-
	盒子活跃会员

2004/3/26 10:56:48

8楼：

其实原理很简单，静态的就是直接输入连接信息，动态的就是把连接信息以其他的形式或让用户设置（如果连接成功，就保存在text文本文件，ini文件中，问一下：有没有人做过保存在dll文件下的，我现在老大要我把记录信息的文件改成直接打开就乱码，我只好用加密的方法进行了，如果有谁做成功dll文件保存的请指导我一下思路），那下次他再登陆就从记录文件中调出来，进行连接。
----------------------------------------------
-

信息

登陆以后才能回复