|
|
Postada em 23/12/2010 16:22 hs
Commendador não pode fechar o con.close pq o recordset vai dar erro e precisa da conexão para executar sqls com tabelas. E a conexao com o banco é so 1 vez. o recorsert pode ser chamado n vezes:
Francis:
No Ado seria assim: Testado e aprovado.
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
cn.CursorLocation = adUseClient
cn.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0; Data Source= C:\Ciberbanco\Atendimento.mdb; Persist Security Info=False"
cn.Open
End Sub
'este é o comando no textbox que faz a pesquisa filtrada
Private Sub Text5_lostfocus()
Dim a As String
a = Text5.Text
rs.Filter = "nome like '" & a & "%'"
Set DataGrid1.DataSource = rs
If a = Empty Then
Text5.SetFocus
End If
End Sub
'Este é o comando para listar todos os registros
Private Sub cmdTodos_Click()
Set rs = cn.Execute("SELECT * FROM ATENDENTE")
Set DataGrid1.DataSource = rs
End Sub
No Unload do Form vc coloca ou botão sair:
'fecha conexao
Rs.close
Set Rs=Nothing
'fecha recordset
Cn.close
set Cn=Nothig
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Francis
|
ARCOVERDE
PE - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 23/12/2010 17:35 hs
Comendador , é o seguinte eu segui os passos que você citou acima
inicio do código
con.Open "provider=microsoft.jet.OLEDB.4.0; data source=d:Cyberanco.mdb;"
no fim do código
con.close
agora está acontecendo o seguinte a conexão abre e fecha automaticamente porque eu estou usando no mesmo procedure, então eu preciso usar qual evento para fechar a conexão?, valeu aguardo respostas.
|
|
|
|
|
|
Postada em 23/12/2010 17:39 hs
FRANCIS, cara:
Sei que não é essa pergunta pra mim, mais so fecha conexao com o banco ao sair do sistema. topico anterior falei disso.
|
|
|
|
Francis
|
ARCOVERDE
PE - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 23/12/2010 18:05 hs
Faleu Ruan vou dar uma olhada aqui e depois eu retorno para dizer o que eu consegui
|
|
|
|
Francis
|
ARCOVERDE
PE - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/12/2010 18:35 hs
Juan, seguindo as instruções do seu código acima, ficou faltando abrir a conexão com o recordset (pelo menos é o que está acusando aqui) em que local eu posso abrir a conexão com o recordset? ou codigo está certo e sou eu que não estou acertando?
|
|
|
|
|
|
Postada em 24/12/2010 19:11 hs
aqui abre Private Sub cmdTodos_Click()
Set rs = cn.Execute("SELECT * FROM ATENDENTE")
Set DataGrid1.DataSource = rs
End Sub |
|
|
|
