vb sql server创建数据库实现增、删、改、查等基本操作

最新推荐文章于 2023-12-02 15:01:11 发布

gyzsky

最新推荐文章于 2023-12-02 15:01:11 发布

阅读量2k

点赞数

分类专栏： VB数据库

VB数据库专栏收录该内容

7 篇文章

订阅专栏

本文为初学者提供了SQLServer数据库的基础操作指导，包括创建数据库、数据表，以及修改字段属性等实用技巧。

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

'-------------------创建数据库----------------------------

Dim Cn    As Connection
        Dim Rs     As New ADODB.Recordset
        Dim connstr     As String
    connstr = "Driver={SQL Server};Server=" & strServer & ";Uid=" & strUser & ";Pwd=" & strPwd & ";"
    Set Cn = New Connection
    Cn.Open connstr

sqlStr = "select Name from dbo.sysdatabases where Name = '数据库名'"

Set Rs = New Recordset
Rs.Open sqlStr, Cn, adOpenKeyset, adLockOptimistic

    If Rs.RecordCount = 0 Then
        '数据库不存在，则创建数据库
        Rs.Close
        Cn.BeginTrans
        sqlStr = "Create Database 数据库名"
        Cn.Execute sqlStr
        Cn.CommitTrans
    Else
        Rs.Close
    End If

'sqlStr = "select Name from dbo.sysdatabases where Name = '数据表名'"

'如果无则可以创建数据表

'判断是否为主键的方法
Rs.Fields(0).Properties '判断是否为主键的方法
ado的Recordset的fields的properties里好像有判断是否是主键的，
你自己查查，
Rs.Fields(intIndex).Properties("KEYCOLUMN").Value = True

'-------------------创建数据表----------------------------

W3School:http://www.w3school.com.cn/sql/sql_create_table.asp

W3School2:http://www.w3school.com.cn/sql/sql_intro.asp

sql="create table nam(id int identity(1,1), ACCT_ID char(255),ACC_NBR float,ACC_FLAG char(255),SERV_NAME char(255),BILLING_FLAG_ID float,COUNTRY_FLAG float,DEVICE_TERM_TYPE char(255),ZFY money,FY1 money,FY2 money,FY3 money,FY5 money,FY8 money,FY6 money,CHARGE40 money,CHARGE4003 money,CHARGE50 money,CHARGE5001 money)"
conn.execute(Sql)

'-------事务------

BeginTrans 启动新的事务。
CommitTrans 保存所有更改并结束当前事务。它也可以启动新事务。
RollbackTrans 取消当前事务中所做的任何更改并结束事务。它也可以启动新事务。

'------------常见SQL语句-创建表添加主键添加列----------------------

新建表：
create table [表名]
(
[自动编号字段] int IDENTITY (1,1) PRIMARY KEY ,
[字段1] nVarChar(50) default \'默认值\' null ,
[字段2] ntext null ,
[字段3] datetime,
[字段4] money null ,
[字段5] int default 0,
[字段6] Decimal (12,4) default 0,
[字段7] image null ,
)

删除表：
Drop table [表名]

插入数据：
INSERT INTO [表名] (字段1,字段2) VALUES (100,\'51WINDOWS.NET\')

删除数据：
DELETE FROM [表名] WHERE [字段名]>100

更新数据：
UPDATE [表名] SET [字段1] = 200,[字段2] = \'51WINDOWS.NET\' WHERE [字段三] = \'HAIWA\'

新增字段：
ALTER TABLE [表名] ADD [字段名] NVARCHAR (50) NULL

删除字段：
ALTER TABLE [表名] DROP COLUMN [字段名]

修改字段：
ALTER TABLE [表名] ALTER COLUMN [字段名] NVARCHAR (50) NULL

重命名表：(Access 重命名表，请参考文章：在Access数据库中重命名表)
sp_rename \'表名\', \'新表名\', \'OBJECT\'

新建约束：
ALTER TABLE [表名] ADD CONSTRAINT 约束名 CHECK ([约束字段] <= \'2000-1-1\')

删除约束：
ALTER TABLE [表名] DROP CONSTRAINT 约束名

新建默认值
ALTER TABLE [表名] ADD CONSTRAINT 默认值名 DEFAULT \'51WINDOWS.NET\' FOR [字段名]

删除默认值
ALTER TABLE [表名] DROP CONSTRAINT 默认值名

删除Sql Server 中的日志，减小数据库文件大小
dump transaction 数据库名 with no_log
backup log 数据库名 with no_log
dbcc shrinkdatabase(数据库名)
exec sp_dboption \'数据库名\', \'autoshrink\', \'true\'

\\\'添加字段通用函数
Sub AddColumn(TableName,ColumnName,ColumnType)
Conn.Execute(\"Alter Table \"&TableName&\" Add \"&ColumnName&\" \"&ColumnType&\"\")
End Sub

\\\'更改字段通用函数
Sub ModColumn(TableName,ColumnName,ColumnType)
Conn.Execute(\"Alter Table \"&TableName&\" Alter Column \"&ColumnName&\" \"&ColumnType&\"\")
End Sub

\\\'检查表是否存在

sql=\"select count(*) as dida from sysobjects where id = object_id(N\'[所有者].[表名]\') and OBJECTPROPERTY(id, N\'IsUserTable\') = 1\"

set rs=conn.execute(sql)

response.write rs(\"dida\")\'返回一个数值，0代表没有，1代表存在

判断表的存在:
select * from sysobjects where id = object_id(N\'[dbo].[tablename]\') and OBJECTPROPERTY(id, N\'IsUserTable\') = 1

某个表的结构
select * from syscolumns where id = object_id(N\'[dbo].[你的表名]\') and OBJECTPROPERTY(id, N\'IsUserTable\') = 1

'-------------------------------------------

　对于初学者来说，刚刚开始接触SQL Server数据库时，可能会感觉到学习起来有一点难度，尤其是对于SQL语句的使用。本文我们针对初学者总结了一些SQL Server数据库修改字段属性方面的操作，希望能够对您有所帮助。

　　1：向表中添加字段

　　Alter table [表名] add [列名] 类型

　　2: 删除字段

　　Alter table [表名] drop column [列名]