Erro nos programas de inclusao e consulta


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Erro nos programas de inclusao e consulta

LUIZ PEDRO

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 29/10/2009 04:15 hs

Ola galera

Estou com problemas com programa de consulta e inclusao, segue os codigos:

Private Sub Command5_Click()
Dim busca As String
conexao.CursorLocation = adUseClient

busca = InputBox("Digite o nome a ser pesquisado", "sistema entrevista")
rs.Open "select *from clientes where nome like  '%" & busca & "%' order by cod_cli", conexao, adOpenKeyset, adLockOptimistic

        If Not rs.EOF Then
        Set Form2.MSHFlexGrid1.DataSource = rs

        Else
        MsgBox ("Cliente não localizado")

Set rs = Nothing
Set conexao = Nothing

        End If
rs.Close

A consulta funciona ok, mas ao fazer uma nova pesquisa e o dado nao é localizado apresenta o seguinte erro:

run time erro 91

object variable or with block variable not set

Codigo do programa de inclusao:

Private Sub Command3_Click()

conexao.CursorLocation = adUseClient
conexao.Execute ("insert into clientes(nome,endereco,bairro,data_cad)" & " values('" & txtnome.Text & "','" & txtend.Text & "','" & txtbairro.Text & "','" & Format(txtdata.Text, "mm-dd-yyyy") & "')")

  MsgBox "inclusao ok"

  txtcod.Text = ""
  txtnome.Text = ""
  txtend.Text = ""
  txtbairro.Text = ""
  txtdata.Text = ""

Set conexao = Nothing
Set rs = Nothing

Ao incluir pela primeira vez funciona ok, mas ao inserir o dado seguinte apresenta o mesmo erro descrito acima, como eu resolvo isso ? A conexao com o banco de dados esta configurado em um modulo e o banco de dados é o sql server 2000.

PH1959

SÃO JOSÉ DOS CAMPOS
SP - BRASIL

ENUNCIADA !

Postada em 29/10/2009 13:57 hs

acho q as aspas estão invertidas

Presuntus

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 29/10/2009 16:16 hs

Companheiro, vou lhe explicar dois metodos que facilitaram muito sua vida...

1. Tente fazer a string (query) em separado antes de jogar na rs ou na conexao

EX: VsSql = "Select idcod from exemplo"

rs.open vssql, conexao, , , 1

2. Utilize um breakpoints para debugar e abuse do imediate windows.

a principio, em minha concepcao, se algo funciona na primeira vez e nao funciona na segunda, eh por que na primeira vez algo foi feito ou desfeito que impossibilita o funcionamento da mesm.

1. no select e na inclusao percebo que vc coloca a conexao = nothing, na segunda vez vc reabre a conexao com o banco de dados??? (no meu caso eu abro a conexao somente na inicializacao do software, e tenho o trabalho de abri e fechar somente do recordset.

Ass. Paulo Rogerio

LUIZ PEDRO

SAO PAULO
SP - BRASIL

Postada em 29/10/2009 18:03 hs

Olá

Entao de fato o que precisaria estar alterando no codigo para corrigir o problema ?

LUIZ PEDRO

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 30/10/2009 15:43 hs

Ola

Valeu pela ajuda ! consegui resolver o problema.

Página(s): 1/1