第十二周学习笔记4858美高梅

研商导图

 

4858美高梅 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

4858美高梅,         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

相关文章