feifeify 2016-11-16 06:40
浏览 664

Vb用控件adodc连接数据库,运行时显示 对象车位信息无效,可在sql里可以查到表,怎么回事?

Option Explicit
Public flag As Integer
Public userID As String
Public userkind As Integer
Public ingid As Recordset
Public movieid As String
Global cn As ADODB.Connection
Global rs As ADODB.Recordset
Global sql As String
Global usernum As Integer

Option Explicit
Private query As String

Private Sub Command1_Click()
Call setSQL
Adodc1.RecordSource = query
If Not Option1.Value Then
MsgBox "没选择查询方式!"
Adodc1.Refresh
Set rsgrid.DataSource = Adodc1
End If
End Sub

Private Sub Command2_Click()
Dim query As String
query = "select*from (车位信息)"
Adodc1.RecordSource = query
If query <> "" Then
Option1.Value = False
Adodc1.Refresh
End If
Set rsgrid.DataSource = Adodc1
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Dim rs As New ADODB.Recordset
Private Sub Form_Load()

Call fresh
End Sub
Private Sub fresh()
Dim strquery, sql As String
strquery = "select * from 车位信息"
Adodc1.RecordSource = strquery
Adodc1.Refresh
Set rsgrid.DataSource = Adodc1
rsgrid.Refresh
Option1.Value = False
End Sub

Private Sub Text1_Change()
Option1.Value = True
Call setSQL
Adodc1.RecordSource = Trim(query)
Adodc1.CommandType = adCmdText
Adodc1.Refresh
Set rsgrid.DataSource = Adodc1
End Sub
Private Sub setSQL()
If Option1.Value Then
If Text1.Text <> "" Then
query = "select * from 车位信息 where left(cwtype," & Len(Text1.Text) & ")='" & Trim(Text1.Text) & "'"
Else
MsgBox "请输入你要查找的车位区域"
End If
End If

End Sub

  • 写回答

0条回答 默认 最新

    报告相同问题?

    悬赏问题

    • ¥15 求差集那个函数有问题,有无佬可以解决
    • ¥15 【提问】基于Invest的水源涵养
    • ¥20 微信网友居然可以通过vx号找到我绑的手机号
    • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
    • ¥15 解riccati方程组
    • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
    • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
    • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
    • ¥50 树莓派安卓APK系统签名
    • ¥65 汇编语言除法溢出问题