第十二周学习笔记

思维导图

 

知识要点

1、独立子查询

实现查询内的查询

注意:独立子查询的内容要用括号括起来

      当要查询内容为单个值时用=,多个值用IN,任意用ANY

示例代码

查询药品供应商名称为金河生物科技股份有限公司的药品名称

SELECT 

     S.Name

     FROM

         tb_Medicine AS S

      WHERE

         S.SupplierNo IN

              (SELECT

                    SS.No

                    FROM

                       tb_Supplier AS SS

                    WHERE

                       SS.Name='金河生物科技股份有限公司');

 

2、外部数据源

打开sql,找到服务器对象,点开链接服务器找访问接口访问外部数据源

3、更新

实现表的更新

UPDATE tb_表名

      SET 要改的属性=''

  WHERE 限制条件='';

示例代码

更新药品供应商名称为金河生物科技股份有限公司的药品名称为

金霉素

UPDATE tb_Medicine

     Set Name=’金霉素

     WHERE

         S.SupplierNo IN

              (SELECT

                    SS.No

                    FROM

                       tb_Supplier AS SS

                    WHERE

                       SS.Name='金河生物科技股份有限公司');

4、删除

删除表格里不需要的整行数据

SQL数据库里的定义,操纵,查询都可实现增删改查

DELETE tb_表名

WHERE 限制条件;

示例代码

删除名称为金霉素和药品供应商名称为金河生物科技股份有限公司的药品

DELETE tb_ Medicine

WHERE Name=’金霉素’ 

      AND S.SupplierNo IN

              (SELECT

                    SS.No

                    FROM

                       tb_Supplier AS SS

                    WHERE

                       SS.Name='金河生物科技股份有限公司');

5、建立视图

为相应的表建立视图,使查找更加快捷

首先查询这个表是否存在视图,如存在则删除它

IF OBJECT_ID('vw_表名') IS NOT NULL

DROP VIEW vw_表名;

接下来建立视图

GO

CREATE VIEW vw_表名

AS

SELECT

   需要显示的列的属性

   FROM

      tb_表名;

示例代码

建立供应商表的视图

IF OBJECT_ID('vw_Supplier') IS NOT NULL

DROP VIEW vw_Supplier;

GO

CREATE VIEW vw_Supplier

AS

SELECT

   S.No

      ,S.Name

      ,S.Telephone

      ,S.Address

   FROM

      tb_Supplier AS S;

6、VB连接数据库

实现VB和数据库的相连

示例代码

1、先在VB上添加相应控件

2、’点击按学号查找按钮

Private Sub btn_FindByNo_Click()

Dim dbConnection AS New Connection

Dim sqlCommand AS String

Dim recordSet as Recordset

dbConnection.ConnectionString=“Provider=SQLOLEDB.1;Database=EduBase;Integrated Security=sspi”

sqlCommand=“SELECT S.Name,S.Class FROM vw_Student AS S WHERE S.No=’“+txb_No.Text+”’”

dbConnection.Open

Set recordSet =dbConnection.Execute(sqlCommand)

If recodSet.EOF Then

          MsgBox(“不存在的”)

Else

Txb_Name.Text=recordSet.Fields(“Name”)

Txb_Class.Text=recordSet.Fields(“Class”)

dbConnection.Close

End Sub

posted @ 2017-11-27 15:27  哗啦啦啦啦  阅读(235)  评论(0编辑  收藏  举报