0

我试图通过在 Select 查询中放置一个数组来填充网格视图。每次我尝试这个我都会得到一个错误：运行时错误：3705“对象打开时不允许操作”。我明白为什么我会收到这个错误，但是有没有其他方法可以在选择查询中放置一个数组。我正在使用的代码如下：

Public con1 As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim q As String
Dim i As Integer
Dim trainIds(30) As String
Public Sub con()
Set con1 = New ADODB.Connection
con1.Open ("tts123")
End Sub


Public Sub opentable(sql As String)
    Set rs = New ADODB.Recordset
    rs.Open sql, con1
End Sub


Private Sub Command1_Click()
    trainIds(0) = "HM2"
    trainIds(1) = "HM2"
    trainIds(2) = "HM1"
    For i = 0 To 2
          q = "Select * from TrainTable Where TrainId ='" & trainIds(i) & "'"
          rs.CursorType = adOpenStatic
          rs.CursorLocation = adUseClient
          rs.LockType = adLockOptimistic
          rs.Open q, con1
          If rs.RecordCount > 0 Then
              Set DataGrid1.DataSource = rs
          Else
                MsgBox "No record found "
                rs.Close
           End If
     Next
End Sub

Private Sub Form_Load()
      Set con1 = New ADODB.Connection
      con1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =   E:\VBnewProject\TrainTimeSchedule"
con1.Open ("dsn=tts123")
End Sub
4

1 回答 1

2

您应该使用 IN 进行查询

Select * from TrainTable Where TrainId IN {List of train ids to check}

另请查看使用 SqlParameter 对象传递参数，您当前的代码打开了 SQL 注入，请查看此示例

于 2013-04-23T05:51:49.167 回答