做ppt做好的网站,开发一个手机软件app需要多少钱,wordpress 建立网站,深圳互动网站建设Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long)一、数据录入通过VB向SQL Server数据库中录入数据#xff0c;可以使用数据绑定控件录入数据与使用SQL语句录入1.利用数据绑定控件录入数据使用数据绑定控件录入数据可以运行较少的代码kernel32 (ByVal dwMilliseconds As Long) 一、数据录入通过VB向SQL Server数据库中录入数据可以使用数据绑定控件录入数据与使用SQL语句录入1.利用数据绑定控件录入数据使用数据绑定控件录入数据可以运行较少的代码实现向数据库中录入数据数据绑定后由于数据绑定控件已经与数据表相连接所以只需通过ADO控件的AddNew方法添加一条新的空白记录再通过Update方法保存当前的记录即可完成向数据库中录入数据。例向数据库中添加一条记录?123456789101112131415161718192021 Private Sub cmdAdd_click() Adodc1.Recordset.AddNew End Sub Private Sub cmdSave_click() Dim I as Long for I 0 to 6 Adodc.Recordset.Fields(i).valueText(i1).text Next I Adodc1.Recoedset.Update MsgBox添加信息成功 End Sub 2.使用Insert语句录入数据 使用SQL语句录入数据通过connection对象的execute方法执行SQL语句语法如下 connection.execute 字符串记录数字符串参数例向student数据库中添加一条学生信息?Dim cnn as ADODB.conection Dim rst as ADODB.recordset Private sub Form_Load() set cnnNew ADODB.connection set rstnew ADODB.recordset cnn.openproviderSQLOLEDB;Persist security InfoTrue;User IDsa;Initial Catalogstudent;Data Source. rst.openselect * from student_info,cnn set MSHFlexGrid.DataSourcerst End Sub Private sub cmdAdd_click() cnn.executeinsert into student_info(txtSID,txtName,txtSex;txtBornData,txtRuDate,txtClassNo) _ value( txtSID , txtName , txtSex , txtBornDate , txtRuDate , txtClassNo ) End Sub 二、数据删除通过VB删除数据时不仅可以使用SQL语句中的Delete语句来实现也可以使用AD控件Delete方法来删除数据。1.使用ADO控件Delete方法删除数据使用ADO控件Delete方法删除数据时被删除的数据信息表面上是被删除了实质上数据还存在与内存中这时还需要使用ADO控件的Update方法才能够将数据彻底地删除例删除表中的指定记录Adodc1.Recordset.DeleteAdodc1.Recordset.Update例通过ADO控件Delete方法删除表中指定的数据?Private Sub Form_Load() Adodc1.ConnectionStringProviderSQLOLEDB;Persist Security InfoTrue;User IDsa;Initail Catalogstudent;Data Source. Adodc1.CommandtypeadCmdText Adodc.Recordsourceselect * from student_info Set DataGrid1.DataSourceAdodc1 End Sub Private Sub Command1_Click() Adodc1.Recordset.Delete If Msgbox(确认删除指定数据吗,vbYesNo,提示)vbYes then Adodc1.Recordset.Refresh End If End Sub 2.执行Delete语句进行数据删除使用Delete语句删除数据不仅可以删除指定的一条或多条语句也可以将数据表中的数据全部删除例在VB中执行Delete语句删除表student中的全部数据Cnn.Executedelete from student可以在Delete语句后使用where来限定条件将条件符合的数据删除例删除表student中年龄大于25岁的数据?Cnn.Execute delete from student where 年龄25 3.删除列中的数据无论是通过ADO控件Delete方法还是delete语句删除数据都是将一行或多行数据全部删除如果表中一些行的数据需要保留某些列中的信息那么使用ADO控件Delete方法或Delete语句都是比较麻烦的。对于删除表中的数据可以采取数据的方式实现即将删除列中的数据直接更新为Null例通过ADO控件Update方法删除表中列的数据?Private Sub Command1_Click() Adodc1.Recordset.Update 1,Nul End Sub 三、数据修改在VB中修改数据不仅仅可以采用执行SQL语句实现也可以通过数据绑定控件进行数据的修改。数据绑定控件进行数据的修改采用的代码较少特别是一些表格类数据绑定控件不需要代码即可对数据进行修改如DataGrid控件。1.使用Update语句修改数据Update语句通过ADO对象的Execute方法执行达到对数据表中的数据进行修改Cnn.ExecuteUpdate 数据表名称 set 字段1表达式1字段2表达式2……where子句在Update语句中可以使用where子句还有符合条件的数据可执行修改操作如果使用where指定条件则Update语句会修改表中的全部数据通常都是在批量更改时采用该语句这种方法要比ADO的Update方法逐条地修改数据方便但VB中一些表格控件可以不需要代码而直观实现数据的批量修改2.表格数据绑定控件修改数据在VB中采用表格数据绑定修改控件修改数据基本上不需要代码只需要设置表格数据绑定控件的一些属性即可实现例如DataGrid控件将其绑定到相应的数据源上再设置其AllowUpdate属性为True即可实现表格中修改的数据及时更新到数据库中该属性可返回或设置一个值指示用户能否修改DataGrid控件中的数据语法DataGrid.AllowUpdate布尔表达式例使用DataGrid控件修改数据?Private Sub Form_Load 设置连接字符串 Adodc1.ConnectionStringProviderSQLOLEDB;Persist Security InfoTrue;User IDsa;Initial Catalogstudent;Data Source. 设定数据源 Adodc1.CommandTypeadcmdText Adodc1.RecordSourceselect * from student_Info order by student_ID 为DataGrid控件绑定数据源 Set DataGrid1.DataSouceAdodc1 允许DataGrid1控件更新表中的数据 DataGrid1.AllowUpdateTrue End Sub 3.使用文本数据绑定控件修改数据与DataGrid控件不同文本类控件绑定数据后在修改数据时由于所修改的数据只是写入在缓存当中所以需要通过ADO的Update方法提交修改另外ADO还提供CancelUpdate方法用此方法来撤销在使用Update方法前对数据所作的修改在程序中使用CancelUpdate方法的代码如下Adodc1.Recordset.CancelUpdate例使用文本控件绑定数据并进行修改数据?设置连接字符串与数据源并绑定数据源 Private Sub Form_Load() Adodc1.ConnectiongStringProviderSQLOLEDB;Persist Security InfoTrue;User IDsa;Initial Catalogstudent;Data Source. Adodc1.RecordSourceselect * from Course_Info Set Text1.DataSourceAdodc1 Text1.DataField课程名称 End Sub 提交保存数据 Private Sub Commad1_Click() Adodc1.Recordset.Update MsgBox保存成功,vbOKOnly,提示 End Sub 撤销数据修改 Private Sub Command2_Click() Adodc1.Recordset.CancelUpdate End Sub 四、数据查询VB中查询数据库中的数据不仅可以通过执行SQL语句实现也可以通过控件或对如ADO限定检索数据的条件来实现。1.简单查询简单查询可以通过Select语句限定数据源来实现。在Select语句中使用关键字、子句等实现。下面对几种常用的简单查询进行介绍1使用AS改变查询数据的列名多数情况下在SQL Server中创建表的字段都是以英文命名的这些字段名在显示时给一般用户带来不便那么可以在查询中采用AS来改变字段在显示时的名称。例使用AS改变查询数据的列名?Private Sub cmdModify_Click() Adodc.RecordSourceselect ID as 编号,Mailbox as 电子邮箱 from Mail_Info Adodc.Refresh End Sub 2计算查询的结果VB编写的程序中往往需要将数据库中的数据进行计算以便获得所需的数值。通过在查询语句中使用算术运算符在配合AS为计算出的字段设置名称即可在查询结果中显示计算得到的数据。例计算查询的结果?Private Sub cmdAcount_Click() Adodc.RecordSourceselect 卡号,每小时上机费用上机时间每小时上机费用*上机时间as 收费金额 from 学生上机收费金额表 Adodc.Refresh End Sub 3比较条件查询在查询语句中可以包含比较运算常用的比较运算符有、、、、!、!、、、!。使用这些运算符连接表达式形成一个比较条件系统将根绝该查询条件返回的布尔值来判断数据是否满足该查询条件只有满足条件的数据才会出现在查询的结果集中。这些比较条件在查询语句中需要与where子句连用但是VB提供Filter属性为Recordset中的数据指定筛选条件。该属性根据条件可选择性地屏蔽Recordset对象中的记录该属性语法如下Recordset.Filter字符串例通过Filter属性实现比较条件查询?设置连接、数据源与初始化程序 Private Sub Form_Load() Adodc.connectionStringproviderSQLOLEDB;Data Source.;Initail CataLogstudent;UIDsa;PWD123456 Adodc.Recordsetselect stuID as 学号,stuname as 姓名,stuage as 年龄 from student_info set DataGrid.DataSourceAdodc Combo1.AddItem学号 Combo1.AddItem姓名 Combo1.AddItem年龄 Combo2.AddItem Combo2.AddItem Combo2.AddItem Combo2.AddItem Combo2.AddItem End Sub 查询信息以及错误处 Private Sub cmdQuery_Click() On Error Resume Next If Combo1.text and Combo2.text then Adodc.Recordset.FilterAdodc.Recordset.Fields(Combo1.ListIndex).Name Combo2.Text Trim(txtQuery.text) End If If Err then Msgbox请输入正确信息,vbOKOnly,警告 End Sub 2.模糊查询模糊查询是通过在VB中查询与所给查询内容相似的信息。实现模糊查询可以通过执行SQL语句中的Like语句实现。Like语句用来确定给定的数据信息是否与指定的模式匹配。模式可以包含常规字符和通配符字符。Like也可以在ADO的Filter属性中使用。下面介绍在Filter属性中使用Like与通配符的几种方法 3.日期和时间查询对日期和时间的数据查询可以通过VB中的ADO的Filter属性限定筛选条件或执行查询SQL语句实现。1查询指定日期时间的数据在SQL语句中可以使用运算符、、、Like等查询日期/时间类型的数据。日期时间字符串的书写要符合一定的格式例如“2012-08-13 0:00:01”。例查询指定日期时间的数据?Private Sub cmdQuery_Click() On Error Resume Next Adodc.Recordset.Filter出生日期 Trim(txtYear.Text) - Trim(txtMonth.Text) - Trim(txtDay.Text) 0:00:00 If Err then Msgbox请输入正确信息,vbOKOnly,错误 End sub Private Sub Form_Load() Adodc.ConnectonStringProviderSQLOLEDB;Data Source.;Initail Catalogstudent;UIDsa;PWD123456 Adodc.RecordSourceselect stuID as 学号,stuName as 姓名,stuAge as 年龄,stuBornDate as 出生日期 from Student_Info set DataGrid.DataSourceAdodc End Sub 2分别按年、月、日等查询数据在设计数据库系统应用程序时往往需要查询某一年、某个月或某一天的数据。如果采用指定日期时间的方式来查询虽然可以实现但是过程是很麻烦的。这时可以采用Year、Month、Day等函数对数据库中日期时间数据提取年、月、日等相关信息然后结合指定日期时间的查询方式即可方便地查询到某一年、某个月或者某一天的数据。例按年、月、日等查询数据?Private Sub cmdQuery_Click() Dim stc as string On Error Resume Next Select Case combo1.ListIndex Case 0 stcyear Case 1 stcmonth Case 2 stcday End Select Adodc.RecordSourceselect stuID as 学号,stuName as 姓名,stuAge as 年龄,stuBornDate as 出生日期 from Student_Info where stc (stuBornDate) txtQuery.Text Adodc.Refresh If Err then Msgbox请输入正确信息,vbOKOnly,错误\ End Sub Private Sub Form_Load() Adodc.ConnectonStringProviderSQLOLEDB;Data Source.;Initail Catalogstudent;UIDsa;PWD123456 Adodc.RecordSourceselect stuID as 学号,stuName as 姓名,stuAge as 年龄,stuBornDate as 出生日期 from Student_Info set DataGrid.DataSourceAdodc combo1.AddItem按年 combo1.AddItem按月 combo1.AddItem按日 End Sub 转载于:https://blog.51cto.com/ycluwq/1691154
