VB6.0用recordset对数据库进行的更新操作

VB6.0⽤recordset对数据库进⾏的更新操作

手机硬件加速Dim num As Integer

Dim sql As String

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim com As ADODB.Command

Set cn = New ADODB.Connection

cn.CursorLocation = adUseClient

num = Val(Text1.Text)

精炼剂sql = "update articleinfo set state='正常'where id=" & num & " and lendoutperson='⽆'"

cn.ConnectionString = "Driver={SQL Server};Server=MICROSOFT01;UID=sa;PWD=sa;Database=articlemanaged" cn.Open

程控电压衰减器Set rs = New ADODB.Recordset

rs.ActiveConnection = cn标本夹

Set com = New ADODB.Command

Set com.ActiveConnection = cn

rs.Open sql, cn, adOpenKeyset, adLockOptimistic

cn.Close

龙吸水设备Set cn = Nothing

导演椅

⽤recordset对数据库进⾏的更新操作

本文发布于:2024-09-21 16:26:52，感谢您对本站的认可！

标签：衰减器硬件加速设备程控手机吸水电压

留言与评论（共有 0 条评论）