动态创建数据库和数据表（BCB环境）

最新推荐文章于 2019-07-08 17:03:19 发布

原创最新推荐文章于 2019-07-08 17:03:19 发布 · 1.9k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #float #服务器 #table #null

本文介绍如何使用ADO连接本地SQL Server数据库，包括数据库和数据表的创建过程。通过获取计算机名称设置数据库连接字符串，并演示了如何检查数据库及表是否存在，不存在时则创建。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

    char cMyNme[250];
    unsigned long i = 250;
    GetComputerName(cMyNme,   &i);//本机名 
    AnsiString strConnect = "Provider=SQLOLEDB.1;";//设置连接驱动 
    strConnect += "Persist Security Info=True;"; //采用集成安全机制 
    strConnect += "Password=1;";//设置密码 
    strConnect += "User ID=sa;";//设置用户名 
    strConnect += "Data Source=" + AnsiString(cMyNme) + ";" ;//设置服务器名字    
    ado_CreatQuery->ConnectionString = strConnect + "Initial Catalog=master;";
    ado_CreatQuery->Close();
    ado_CreatQuery->SQL->Clear();
    ado_CreatQuery->SQL->Add("select * from master.dbo.sysdatabases where name = 'MYDATABASE'")   ;//这里可以看到所有数据库及其属性列表 
    ado_CreatQuery->Open();
    if(ado_CreatQuery->Eof)
    {
        ado_CreatQuery->Close();
        ado_CreatQuery->SQL->Clear();
        ado_CreatQuery->SQL->Add("CREATE DATABASE MYTAB");
        ado_CreatQuery->ExecSQL();
    }
    ado_CreatQuery->Close();
    ado_CreatQuery->SQL->Clear();
    ado_CreatQuery->SQL->Add("select * from sysobjects where xtype='U' and name='TABLE1'");
    ado_CreatQuery->Open();
    if(ado_CreatQuery->RecordCount == 0)//如果表还没有存在 
    {
        //////TABLE1表设计 
        ado_CreatQuery->Close();
        ado_CreatQuery->SQL->Clear();
        ado_CreatQuery->SQL->Add("USE test CREATE TABLE TABLE1(学号 float(8) NULL,姓名 text NULL)");//text和datetime类型不需要制定类型长度 
        ado_CreatQuery->ExecSQL();
    }
     ado_Connection->ConnectionString = strConnect + "Initial Catalog=MYDATABASE;";//connection到MYDATABASE数据库，以便其他感应器调用 
    ado_Connection->LoginPrompt = false;  
    ado_Connection->Connected = true;