关于数据库的问题（sql 05）

[cedvfr]

我的面板上有两个text框 txt1 和txt2 两个按钮 确定 和 取消 我想实现的功能是用 rdo连接 在输入完text框的值时点击确定 将两个text框的值写进数据库的对应的表里 库名 comeet 表名是 test 字段是 usern 和 password

Private mrdoCon As rdoConnection
Dim mRes As rdoResultset
Dim mSQL As String
Private Sub Command1_Click()
If txt1.Text = "" Or txt2.Text = "" Then
MsgBox "原因或类型不能为空!", vbCritical, "错误"
Else
mrdoCon.Execute "update test set [usern ] = '" & txt1 & "' ,usern = " & txt2 & " where RStyle='" & curRstyle & "'"
End If
End Sub

运行时报错了 说是with变量未设置 请问各位这是怎么回事？

[lxq19851204]

Private mrdoCon As rdoConnection
Dim mRes As rdoResultset
Dim mSQL As String
Private Sub Command1_Click()
  If txt1.Text = "" Or txt2.Text = "" Then
  MsgBox "原因或类型不能为空!", vbCritical, "错误"
  Else
  mrdoCon.Execute  "update test set [usern] = '" & txt1.text & "',password= '" & txt2.text & "'  where RStyle='" & curRstyle & "'"
  End If
End Sub

• 打赏
• 举报

回复 赞

[饮水需思源]

mrdoCon还没有与数据库连接

• 打赏
• 举报

回复 赞

[zzhgb]

加new，这是类
Private mrdoCon As New rdoConnection

• 打赏
• 举报

回复 赞

[cnuser1]

Private Sub cmdSave_Click()
    Dim UpdateSql As String
    Dim UpdateCommand As New ADODB.Command
On Error GoTo eNext:
    UpdateSql = "update tabPowerRange set " + _
                "RatedPower=" + Trim(txtRatedPower.Text) + "," + _
                "Ratedv=" + Trim(txtRatedV.Text) + " where id=" & Trim(txtID.Text)
    UpdateCommand.ActiveConnection = SqlConn
    UpdateCommand.CommandType = adCmdText
    UpdateCommand.CommandText = UpdateSql
    UpdateCommand.Execute
    
    Call frmMain.ReLoadData
    MsgBox "Update Success...", vbInformation, App.Title
    
    Unload Me
eNext:
    MsgBox Err.Description, vbCritical, Err.Number
End Sub

• 打赏
• 举报

回复 赞