VB如何用代码停止sqlserver服务
来源:百度知道 编辑:UC知道 时间:2024/06/04 16:31:56
修改时和添加时差不多,需要先链接数据库,然后返回待修改的记录,然后使用下面语句修改:
rs!字段名=XXX
rs!字段名=XXX
...
rs.Update
--------------------------------------------->示例
Public Sub UpdateX()
Dim rstEmployees As ADODB.Recordset
Dim strOldFirst As String
Dim strOldLast As String
Dim strMessage As String
' Open recordset with names from Employees table.
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; "
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open "SELECT fname, lname " & _
"FROM Employees ORDER BY lname", strCnn, , , adCmdText
' Store original data.
strOldFirst = rstEmployees!fname
strOldLast = rstEmployees!lname
' Change data in edit buffer.
rstEmployees!fname = "Lin