vb update 语句怎么执行 80

up="updategerenseterrorzaixian='1'whereerroryonghuming='"&yonghuming(0)&"'"我怎么让这个语句更新... up = " update geren set errorzaixian = '1'where erroryonghuming='" & yonghuming(0) & "'"
我怎么让这个语句更新到数据库里面啊
我的目的就是每次登陆的时候吧这个数据更新到数据库里!这是我想到的用户上线的一个思路!

各位谁还有没有就是和QQ一样的只要用户上线了就变红,下线就变灰色,请吧代码写出来谢谢
展开
 我来答
zdingyun
推荐于2017-09-28 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48173
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部

VB的Update 方法有多种用途:

  • Update 方法 (ADO),保存对 Recordset 对象的当前记录所做的所有更改。

    语法

    recordset.Update Fields, Values

    参数

    Fields   可选。变体型,代表单个名称;或变体型数组,代表需要修改的字段(单个或多个)名称或序号位置。

    Values   可选。变体型,代表单个值;或变体型数组,代表新记录中字段(单个或多个)值。

    说明

    使用 Update 方法保存自从调用 AddNew
    方法,或自从现有记录的任何字段值发生更改之后,对 Recordset 对象的当前记录所作的所有更改。Recordset
    对象必须支持更新。

  • Update 和 CancelUpdate 方法范例

    该范例连同 CancelUpdate 方法说明 Update 方法。

    Public Sub UpdateX()

      Dim rstEmployees As ADODB.Recordset
      Dim strOldFirst As String
      Dim strOldLast As String
      Dim strMessage As String
      ' 使用雇员表中的姓名打开记录集。
         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 Employee ORDER BY lname", strCnn, , , adCmdText
      ' 储存原始数据。
      strOldFirst = rstEmployees!fname
      strOldLast = rstEmployees!lname
      ' 更改编辑缓冲区中的数据。
      rstEmployees!fname = "Linda"
      rstEmployees!lname = "Kobara"
      ' 显示缓冲区的内容并获取用户输入。
      strMessage = "Edit in progress:" & vbCr & _
         "  Original data = " & strOldFirst & " " & _
         strOldLast & vbCr & "  Data in buffer = " & _
         rstEmployees!fname & " " & rstEmployees!lname & vbCr & vbCr & _
         "Use Update to replace the original data with " & _
         "the buffered data in the Recordset?"
      If MsgBox(strMessage, vbYesNo) = vbYes Then
         rstEmployees.Update
      Else
         rstEmployees.CancelUpdate
      End If
      ' 显示结果数据。
      MsgBox "Data in recordset = " & rstEmployees!fname & " " & _
         rstEmployees!lname
      ' 恢复原始数据,因为这只是演示。
      If Not (strOldFirst = rstEmployees!fname And _
            strOldLast = rstEmployees!lname) Then
         rstEmployees!fname = strOldFirst
         rstEmployees!lname = strOldLast
         rstEmployees.Update
      End If
      rstEmployees.Close
    End Sub

    Public Sub UpdateX2()
      Dim cnn1 As ADODB.Connection
      Dim rstEmployees As ADODB.Recordset
      Dim strEmpID As String
      Dim strOldFirst As String
      Dim strOldLast As String
      Dim strMessage As String
      ' 打开连接。
      Set cnn1 = New ADODB.Connection
         strCnn = "Provider=sqloledb;" & _
         "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
      cnn1.Open strCnn
      ' 使用雇员表中的数据打开记录集。
      Set rstEmployees = New ADODB.Recordset
      rstEmployees.CursorType = adOpenKeyset
      rstEmployees.LockType = adLockOptimistic
      rstEmployees.Open "employee", cnn1, , , adCmdTable

      rstEmployees.AddNew
      strEmpID = "B-S55555M"
      rstEmployees!emp_id = strEmpID
      rstEmployees!fname = "Bill"
      rstEmployees!lname = "Sornsin"
      ' 显示缓冲区内容并获取用户输入。
      strMessage = "AddNew in progress:" & vbCr & _
         "Data in buffer = " & rstEmployees!emp_id & ", " & _
         rstEmployees!fname & " " & rstEmployees!lname & vbCr & vbCr & _
         "Use Update to save buffer to recordset?"

      If MsgBox(strMessage, vbYesNoCancel) = vbYes Then
         rstEmployees.Update
         ' 转到新记录并显示结果数据。
         MsgBox "Data in recordset = " & rstEmployees!emp_id & ", " & _
             rstEmployees!fname & " " & rstEmployees!lname
      Else
         rstEmployees.CancelUpdate
         MsgBox "No new record added."
      End If
      ' 删除新数据,因为这只是演示。
      cnn1.Execute "DELETE FROM employee WHERE emp_id = '" & strEmpID & "'"
      rstEmployees.Close
    End Sub
  • Update 方法(远程数据),将复制缓冲区行的内容保存到一个指定的可更新的
    rdoResultset 对象中,并废弃复制缓冲区。

    语法

    object.Update

    object 所在处代表对象表达式,其值为“应用于”列表中的一个对象。

  • AddNew、Update、CancelUpdate 方法示例

    下面的示例用以说明使用 AddNew
    方法在基本表中添加一个新行。该例假定有权对这个表进行读写访问,所提供的列数据符合与该表相关的规则及其它的约束条件,并且该表有唯一的索引。用于操作的数据值从窗体的三个
    TextBox 控件中获得。注意这个表的唯一的关键字不在这儿提供,而自动提供的是—一个标识列。

    Option Explicit
    Dim er As rdoError
    Dim cn As New rdoConnection
    Dim qy As New rdoQuery
    Dim rs As rdoResultset
    Dim col As rdoColumn

    Private Sub AddNewJob_Click()
    On Error GoTo ANEH

    With rs
      .AddNew
      !job_desc = JobDescription
      !min_lvl = MinLevel
      !max_lvl = MaxLevel
      .Update
    End With
    Exit Sub

    UpdateFailed:
    MsgBox "Update did not suceed."
    rs.CancelUpdate
    Exit Sub
    A
    NEH:
    Debug.Print Err, Error
    For Each er In rdoErrors
      Debug.Print er
    Next
    Resume UpdateFailed
       
    End Sub

    Private Sub Form_Load()

    cn.CursorDriver = rdUseOdbc
    cn.Connect = "uid=;pwd=;server=sequel;" _
      & "driver={SQL Server};database=pubs;dsn='';"
    cn.EstablishConnection
    With qy
      .Name = "JobsQuery"
      .SQL = "Select * from Jobs"
      .RowsetSize = 1
      Set .ActiveConnection = cn
      Set rs = .OpenResultset(rdOpenKeyset, _
         rdConcurRowver)
      Debug.Print rs.Updatable
    End With

    Exit Sub
    End Sub


百度网友f0a824f
2009-10-11 · TA获得超过314个赞
知道答主
回答量:68
采纳率:0%
帮助的人:0
展开全部
介绍VB Update方法,可能好多人还不了解VB Update方法,没有关系,看完本文你肯定有不少收获,希望本文能教会你更多东西。在VB Update方法被调用前,在ConsoleProgressBar对象中什么也没有发生:

Public Sub Update(ByVal CurrentValue As Long) m_currentValue = CurrentValue m_currentBarLength = CInt((m_currentValue / m_maximumValue) * m_length) Refresh() End Sub 这个VB Update方法使用一个值作参数(在此是指当前刚刚复制的文件数)。我设置成员m_currentValue,然后计算m_currentBarLength。计算的结果为进度条当前应该覆盖的列数。

最后,我调用Refresh方法,它又调用UpdatePercentComplete、UpdateProgressBar和UpdateMessageBar方法。

因为所有这三个方法功能相类似,所以我将集中讨论UpdateProgressBar方法:

Private Sub UpdateProgressBar() Dim originalForegroundColor As ConsoleConsoleColor = Console.ForegroundColor Dim originalBackgroundColor As ConsoleConsoleColor = Console .BackgroundColor Console.ForegroundColor = ConsoleColor.Black Console.BackgroundColor = ConsoleColor.Green Console.SetCursorPosition(m_left + 1 m_progressBarRow) Dim progress As New String("O", m_currentBarLength) Console.Write(progress) Console.ForegroundColor =originalForegroundColor Console.BackgroundColor = originalBackgroundColor End Sub 首先,该代码保存当前的前景和背景颜色。然后,它把ForegroundColor属性设置为黑色,把BackgroundColor属性设置为绿色。在把光标放置到进度条的左边缘后,它打印一串长度为m_currentBarLength的“O”。

其它问题

这个DirCopy应用程序,虽然有些用处,但是还远非成品。为了使其更为强壮,还需要增加大量的错误处理方式。你还可以改进ConsoleProgressBar类以实现更灵活的控制。下列是一些可能的改进:
◆允许控制进度条的位置和长度
◆允许百分比完成区域放到你选择的任何位置
◆允许定制进度条中的消息
◆添加一个选项以选择水平的或垂直的进度条
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
hesipu123
2009-10-11 · 超过10用户采纳过TA的回答
知道答主
回答量:84
采纳率:0%
帮助的人:39.4万
展开全部
介绍VB Update方法,可能好多人还不了解VB Update方法,没有关系,看完本文你肯定有不少收获,希望本文能教会你更多东西。在VB Update方法被调用前,在ConsoleProgressBar对象中什么也没有发生:
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
浮云是他连4g
2009-10-11 · TA获得超过532个赞
知道小有建树答主
回答量:446
采纳率:0%
帮助的人:286万
展开全部
讨厌 那种 老太婆的缠脚布 ---- 又臭又长的回答 (还JB跑题..)

---------------

如果用户量大的话 数据库服务器负担将会很重,建议搞张内存表,速度快点,

你可以用Adodb 实现的

链接:

http://zhidao.baidu.com/question/38612791.html?si=1
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
带卿问M0v
2014-11-27 · TA获得超过191个赞
知道答主
回答量:75
采纳率:0%
帮助的人:52.5万
展开全部
Conn.Execute (UP)
秒杀乱回答
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
?>

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式