1188
社区成员
关于数据库的问题（sql 05）
我的面板上有两个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变量未设置 请问各位这是怎么回事？
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变量未设置 请问各位这是怎么回事？
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
cnuser1 2010-10-14
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
zzhgb 2010-10-06
加new，这是类
Private mrdoCon As New rdoConnection
Private mrdoCon As New rdoConnection
饮水需思源 2010-10-05
mrdoCon还没有与数据库连接
lxq19851204 2010-10-05
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
中国新一代信息技术创投生态研究报告2021.pdf 根据36 氪研究院数据，2016 年至2021 年上半年，中国新一代信息技术领域北京、广东和上海获投案例数分别为5,757 起、3,860 起和3,619 起，投资金额排名前三的省市依旧为北京、上海和广东，分别为5,589.86 亿元、2,587.47亿元和2,311.09 亿元。
北京凭借优惠政策、资本集聚、人才多样等优势成为引领全国创新式发展的策源地。诸多优势叠加的北京也培育了众多科技企业，在资本集聚、企业扎堆的情况下，北京地区新一代信息技术领域企业获投数量和金额均位列第一。
广东和上海无论是投资案例数还是投资金额均不相伯仲，但发展优势各有侧重。
上海凭借资本优势扶持了众多企业发展，根据基金业协会数据，截至2021 年6 月底，上海市私募基金管理规模为4.28 万亿元，位列全国第一。
以深圳为代表的广东则凭借粤港澳大湾区地理位置优势，带动当地企业创新发展，培育出一批技术过硬、产品符合市场预期的新一代信息技术企业。
除北上广外，重庆凭借综合科技创新能力链接更多企业和资本，成为西南地区新一代信息技术领域的领军者。根据《中国区域科技创新评价报告2020》，继2018 年之后，重庆综合科技创新水平指数保持全国第7 位。
