当前位置: 开源爱好者 » VB源码 » 数据库编程 » 详情页

VB SQLSERVER 数据库游标更新一例

  • 时间:2018-03-22
  • 测试环境:VB6+MSSQL
  • 源码概述:游标

VB SQLSERVER 数据库游标更新一例,
  '声明名为“aaa”游标,指定可以更新的列是序号和借阅时间
  con.Execute ("declare aaa cursor for select * from 借书表 for update of 序号,借阅时间 ")
  '打开游标
  con.Execute ("open mrsoft")
  MsgBox "游标aaa声明成功"
  End Sub
  Private Sub Command2_Click()
  con.Execute ("fetch next from mrsoft")
  '应用游标更新借阅时间
  con.Execute ("update 借书表 set 借阅时间='" & Val(Text1.Text) & "' where current of aaa ")
  Set MSHFlexGrid1.DataSource = con.Execute("select * from 借书表")
  End Sub
  Private Sub Form_Load()
  '数据库连接
  con.ConnectionString = " Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=book"
  con.Open
  Set MSHFlexGrid1.DataSource = con.Execute("select * from 借书表")
  End Sub
  Private Sub Form_Unload(Cancel As Integer)
   con.Close
  End Sub

VB SQLSERVER 数据库游标更新一例测试效果图
源码包大小:2.38K
该源码已累计下载了:

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图