关于rs的变量定义,解决即给分,急!!!

zjh216 2003-05-19 11:57:56
Option Explicit

Private Sub Combo1_Click()
Text1.Text = ""
Text1.SetFocus
Select Case Combo1.Text

Case "按身份证号"
Label3.Caption = "如:42015689851565"


Case "按姓名"
Label3.Caption = ""
Case "按出生日期"
Label3.Caption = "如:1999-9-8"
Case "按籍贯"
Label3.Caption = ""
Case "按性别"
Label3.Caption = ""
End Select
End Sub

Private Sub Command1_Click()

Set rs = New ADODB.Recordset

Select Case Combo1.Text
Case "按姓名"
CString = "huzhuming='"
Case "按性别"
CString = "xingbie='"
Case "按身份证号"
CString = "shengfenhao='"
Case "按出生日期"
CString = "shengri='"
Case "籍贯"
CString = "jiguan='"

End Select
CString = CString & Trim(Text1.Text) & "'"
rs.Open "select * from HUJI-3 where " & Trim(CString), conn, adOpenStatic, adLockReadOnly
If rs.RecordCount <> 0 Then
MSHFlexGrid1.Visible = True
Set MSHFlexGrid1.DataSource = rs
Text1.Text = ""
Text1.SetFocus
Else
MSHFlexGrid1.Visible = False
MsgBox "没有此记录"
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Command2_Click()
Unload Me
Load hecaozuo3
hecaozuo3.Show
End Sub

Private Sub Form_Load()
Label5.Left = (Me.ScaleWidth - Label5.Width) / 2
Label5.Top = 200

End Sub

系统提示 Private Sub Command1_Click()

Set rs = New ADODB.Recordset
rs变量未定义,请求帮助修改!如果还有其他问题请一并帮忙指出,谢谢!!!
...全文
66 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
zjh216 2003-05-20
  • 打赏
  • 举报
回复
有没有高手啊?
zjh216 2003-05-20
  • 打赏
  • 举报
回复
我不知道才请教呀!到底怎么定义能说详细一点吗?
PDK 2003-05-20
  • 打赏
  • 举报
回复
你的RS 是没有定义呀!!!1
flxa 2003-05-20
  • 打赏
  • 举报
回复
把Set rs = New ADODB.Recordset


改为Dim Rs as new adodb.RecordSet

就OK了
lihonggen0 2003-05-20
  • 打赏
  • 举报
回复

合为一句:
Dim Rs As New ADODB.Recordset
lihonggen0 2003-05-20
  • 打赏
  • 举报
回复

Dim Rs As ADODB.Recordset
Set rs = New ADODB.Recordset
lihonggen0 2003-05-20
  • 打赏
  • 举报
回复
引用Microsoft Active Data Object 2.X Library



Dim Rs As ADODB.Recordset
内容概要:本文详细介绍了如何利用西门子200PLC控制台达伺服电机实现张力控制系统的正反转与模拟量控制。首先进行了功能需求析,明确了张力值与电机动作的关系,即根据张力值的变化控制电机的正反转及其停止。接着阐述了硬件连接方法,包括PLC与伺服电机间的脉冲控制连接,以及PLC与步科触摸屏的RS485通信连接。随后深入探讨了PLC编程的具体实现,涵盖了变量定义、逻辑控制代码编写,尤其是张力值比较、超限检测和速度设定与显示等功能的实现。最后讲述了步科触摸屏的设置,包括界面元素创建、通讯参数配置和变量关联等方面的内容。此外,文中还享了一些调试过程中遇到的问题及解决方案,如伺服使能信号、模拟量信号毛刺处理等。 适合人群:从事工业自动化领域的工程师和技术人员,尤其是对PLC编程和伺服电机控制有一定了解的人群。 使用场景及目标:适用于需要构建张力控制系统的工业环境,旨在帮助技术人员掌握如何使用西门子200PLC和台达伺服电机搭建高效稳定的张力控制系统,确保生产过程中的张力保持在设定范围内,提高产品质量和生产效率。 其他说明:文中不仅提供了详细的硬件连接指导和PLC编程实例,还享了许多实用的经验和技巧,对于初次接触此类项目的工程师来说非常有价值。同时强调了安全措施的重要性,如正确连接伺服使能信号和设置停回路等。

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧