Coloquei um Datagrid em um form que recebe os dados de um recordset, até aí tudo ok, mas quando eu fecho o form aparece a mensagem "The current row is not available". Alguem sabe o que é isso e como resolver?
segue abaixo o codigo:
Option Explicit
Private Sub cmbBairro_Click()
Dim lvCod_Bairro As Integer
On Error Resume Next
rs.CursorLocation = adUseClient
rs.Open "Select Cod_Cid, Cod_Bairro, Bairro from tbbairro where Cidade = " & "'" & cmbTeste.Text & "'" & "and Bairro = " & "'" & cmbBairro.Text & "'" & "ORDER BY Bairro", db, adOpenStatic, adLockOptimistic
lvCod_Bairro = rs!Cod_Bairro
rs.Close
rs.ActiveConnection = Nothing
rs.CursorLocation = adUseClient
rs.Open "Select * from lista where Cod_Bairro = " & lvCod_Bairro & " ORDER BY Nome", db, adOpenStatic, adLockOptimistic
Set frmLista.DataGrid1.DataSource = rs
frmLista.Show
End Sub
Private Sub cmbTeste_Click()
Dim lvCod_Cid As Integer
Dim lvCod_Bairro As Integer
Dim lvsql As String
On Error Resume Next
lvsql = "Select Cidade from tbcidade where Cidade = " & "'" & cmbTeste.Text & "'"
rs.Open "Select Cod_Cid, Cidade from tbcidade where Cidade = " & "'" & cmbTeste.Text & "'", db, adOpenStatic, adLockOptimistic
lvCod_Cid = rs!Cod_Cid
rs.Close
rs.ActiveConnection = Nothing
rs.CursorLocation = adUseClient
rs.Open "Select Bairro from tbbairro where Cod_Cid = " & lvCod_Cid, db, adOpenStatic, adLockOptimistic
rs.MoveMin
cmbBairro.Clear
While Not rs.EOF
cmbBairro.AddItem rs!Bairro
rs.MoveNext
Wend
rs.Close
rs.ActiveConnection = Nothing
End Sub
Private Sub Form_Load()
Dim lvsql As String
db.Open ("DRIVER={MySQL ODBC 3.51 Driver};SERVER=mysql;PORT=3306;DATABASE=xxxx; USER=usr;PASSWORD=pwd;OPTION=3;")
rs.Open "Select * from tbcidade ORDER BY Cod_Cid", db, adOpenStatic, adLockOptimistic
cmbTeste.Clear
rs.MoveMin
While Not rs.EOF
cmbTeste.AddItem rs!Cidade
rs.MoveNext
Wend
rs.Close
rs.ActiveConnection = Nothing
End Sub
Grato
