Cerrar Recorset para hacer mas consulta

[joemanu]

Hola:

Soy nuevo en esto de visual basic, y solo buscando he podido hacer un codigo para hacer abrir un BD en Access con visual basic, y hacer una consulta. Hasta ahi todo bien, pero el programa solo me permite hacer una consulta, ya que luego me aparece un mensaje que dice "la operacion no esta permitida si el objeto esta abierto", como puedo cerrar el recordset, y poder hacer consultas sin tener que cerrar el formulario.

este es el codigo de mi programa

Saludos


Option Explicit
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim SQL As String
Dim A As String
Dim B As Date


Private Sub Command1_Click()
inicio:
B = DTPicker1.Value
A = Text1.Text
SQL = "Select * from Matriculas where Patente ='" + A + "' and Fecha = #" & Format(B, "mm/dd/yyyy") & "#"
Rs.Open SQL, Cnn, adOpenDynamic, adLockOptimistic
DataGrid1.ClearFields
Set DataGrid1.DataSource = Rs
DataGrid1.Refresh
DataGrid1.Visible = True
GoTo inicio
End Sub

Private Sub Form_Load()
DataGrid1.Visible = False
DTPicker1.Value = Date
B = DTPicker1.Value
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Barreras\BD_Patentes.mdb;Persist Security Info=False;"
Cnn.CursorLocation = adUseClient

End Sub

[fesero]

podes hacer 2 cosas.
La primera es bien simple, rs.close
o bien podes abrir un recordset nuevo, este te sirve si usas tablas u base de datos distintos.

[abrahamvj]

Para que la etiqueta "inicio"? Para que el Goto inicion?

Borrralossss

Abraham

[pana99]

Hola, si esas etiquetas no me gustan como estan.
El tema es que si usas rs.close despues de actualizar el datagrid, los datos de este (el datagrid) se borran
Yo probe asi y anda (no es lo mas prolijo desde el punto de vista de programacion), pero bueno........ anda

Option Explicit
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim SQL As String
Dim A As String
Dim B As Date

Private Sub Command1_Click()
'Chequeamos si el recordset esta abierto y lo cerramos para evitar el error
If Rs.State = 1 Then
Rs.Close
End If

B = DTPicker1.Value
A = Text1.Text
SQL = "Select * from Matriculas where Patente ='" + A + "' and Fecha = #" & Format(B, "mm/dd/yyyy") & "#"
DataGrid1.ClearFields
Set DataGrid1.DataSource = Rs
DataGrid1.Refresh
DataGrid1.Visible = True

End Sub

Private Sub Form_Load()
DataGrid1.Visible = False
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Barreras\BD_Patentes.mdb;Persist Security Info=False;"Persist Security Info=False;"
Cnn.CursorLocation = adUseClient

End Sub

Espero haberte ayudado