请帮我检查一下代码,谢谢！

2003-09-04 09:35:54 72 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

wangyanqiu0918 墨衍会员 · AI 创作全网分发关注 + 加入社区

牛客网：python2和python3的区别--关于map函数，错误提示：空.请检查一下你的代码，有没有循环输入处理多个case. 华为2016年校园招聘上机笔试题：最高分是多少一、‘空，检查是否有多个循环输入case’问题题目很简单，主要是测试case时出现的‘空，检查是否有多个循环输入case’问题。刚开始的python2提交代码: # _*_ coding:utf-8 _*_ import sys N, M = map(int,sys.stdin.readline().strip().split()) sc... 阅读详情

总说with变量未设置，不知道那的错。
Public Function executesql(ByVal sql As String) As ADODB.Recordset
Dim cn As ADODB.Connection, rs As New ADODB.Recordset

End Function

Private Sub Command2_Click()

End Sub

Private Sub bc_Click()
Dim sql As String
Const connstring = "provider=microsoft.jet.oledb.4.0;data source=c:\图书管理系统\libary.mdb"
Set cn = New ADODB.Connection
cn.Open connstring
sql = "select * from zhikuandan"
Set rs = executesql(sql)
rs.AddNew
rs.Fields(0) = Trim("combobm.text")
rs.Fields(1) = Trim("txtyy.text")
rs.Fields(2) = Trim("txtje.text")
rs.Fields(3) = Trim("txtjed.text")
rs.Fields(4) = Trim("txtcz.text")
rs.Fields(5) = Trim("txtzkr.text")
rs.Fields(6) = Trim("txtrq.text")
rs.Update
End Sub

Private Sub qx_Click()
Unload Me
End Sub

...全文

Zynq项目踩坑记：SD卡死活读不到？先别急着改代码，检查一下Vivado里这个隐藏选项！本文详细解析了Zynq项目中SD卡无法识别的常见问题及解决方案，重点指出Vivado配置中CD/WP引脚的隐藏选项是关键。从硬件原理图检查到软件层配置，提供了一套完整的排查流程，帮助开发者快速定位并解决SD卡读写异常问题。阅读详情

wangyanqiu0918

数据库(包含打印，安装，报表) 1,218 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

wangyanqiu0918 2003-09-04

打赏
举报

都不行。我用的是access数据库，跟它有关系吗？还是由于我没有安装msdn的缘故？

null1027 2003-09-04

打赏
举报

瞧，MSDN上的范例，你改用这样的语法看看
rstEmployees.AddNew
rstEmployees!emp_id = strID
rstEmployees!fname = strFirstName
rstEmployees!lname = strLastName
rstEmployees.Update
booRecordAdded = True

或者你试着在你的那些rs.fields(1)的后面加上 .value 也就是说

rs.AddNew
rs.Fields(0).value = Trim("combobm.text")
rs.Fields(1).value = Trim("txtyy.text")
rs.Fields(2).value = Trim("txtje.text")
rs.Fields(3).value = Trim("txtjed.text")
rs.Fields(4).value = Trim("txtcz.text")
rs.Fields(5).value = Trim("txtzkr.text")
rs.Fields(6).value = Trim("txtrq.text")
rs.Update

chao778899 2003-09-04

打赏
举报

Private Sub bc_Click()
Dim sql As String
Const connstring = "provider=microsoft.jet.oledb.4.0;data source=c:\图书管理系统\libary.mdb"
Set cn = New ADODB.Connection
cn.Open connstring
sql = "select * from zhikuandan"
rs.open sql
rs.AddNew
rs.Fields(0) = Trim("combobm.text")
rs.Fields(1) = Trim("txtyy.text")
rs.Fields(2) = Trim("txtje.text")
rs.Fields(3) = Trim("txtjed.text")
rs.Fields(4) = Trim("txtcz.text")
rs.Fields(5) = Trim("txtzkr.text")
rs.Fields(6) = Trim("txtrq.text")
rs.Update
End Sub

Private Sub qx_Click()
Unload Me
End Sub

wbwx 2003-09-04

打赏
举报

rs.open sql,cn

wangyanqiu0918 2003-09-04

打赏
举报

还是不对

yijiansong 2003-09-04

打赏
举报

Dim cn As ADODB.Connection, rs As New ADODB.Recordset
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Function executesql(ByVal sql As String) As ADODB.Recordset

End Function

Private Sub Command2_Click()

End Sub

Private Sub bc_Click()
Dim sql As String
Const connstring = "provider=microsoft.jet.oledb.4.0;data source=c:\图书管理系统\libary.mdb"
Set cn = New ADODB.Connection
cn.Open connstring
sql = "select * from zhikuandan"
Set rs = executesql(sql)
rs.AddNew
rs.Fields(0) = Trim("combobm.text")
rs.Fields(1) = Trim("txtyy.text")
rs.Fields(2) = Trim("txtje.text")
rs.Fields(3) = Trim("txtjed.text")
rs.Fields(4) = Trim("txtcz.text")
rs.Fields(5) = Trim("txtzkr.text")
rs.Fields(6) = Trim("txtrq.text")
rs.Update
End Sub

Private Sub qx_Click()
Unload Me
End Sub

请帮我检查一下代码,谢谢！

相关推荐