第十二周学习笔记

沉凝导图

 

生物科技 1

知识要点

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

相关文章