Erro na busca com MYSQL

[soloplayer 0]

Olá kros programadores feres. como vao!!! Gostaria de saber de uma coisa, tenho uma busca como comando SQL em um banco mysql e gostaria de saber como é que faco para na hora que eu clicar para buscar um dado de um text1 se ele nao existir ele emitir uma mensagem que nao existe no banco, o codigo é:

 

Adodc1.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _	"SERVER=localhost;DATABASE=arteid;UID=ODBC;PWD=;" & _	"OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384	Adodc1.CommandType = adCmdText'SELECIONANDO MINHA TABELA VIA COMANDO MYSQL E FAZENDO AS COMPARACOES COM O CAMPO BUSCA	Adodc1.RecordSource = "SELECT * FROM artes_mod,busca where artes_mod.cod=" & txtbusca'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'   AMARRACAO DE CODIGO, VERIFICA SE CONDICAO VERDADEIRA CASO SEJA ABORTA FUNCOES ABAIXO CODIGO'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\	If txtbusca = "" Then		MsgBox "O campo busca nao pode ser nulo", vbInformation, "Busca nulo"		txtbusca.SetFocus		Exit Sub		Else			End If		Adodc1.Refresh	txtcod = txtbusca	mskdatae = Adodc1.Recordset!Datae	mskdatas = Adodc1.Recordset!Data	txtnome.Text = Adodc1.Recordset!nome	cmblinha = Adodc1.Recordset!linha	cmbsetor = Adodc1.Recordset!setor	cmbresp = Adodc1.Recordset!resp	cmbfinalisada = Adodc1.Recordset!situacao	txtcaminho = Adodc1.Recordset!caminho

ele esta restrito caso seja nulo e tals mas se o numero do text1 nao existir no banco ele da erro, como tratar este erro amigos, grato..

 

Kleber Gracia

Design Programador.

[soloplayer 0]

Help please

[Graymalkin 0]

Help please

Logo após atualizar o Recordset, verifique se a propriedade Eof do mesmo é verdadeira. Se ela for, ou seja, se for o fim do arquivo (End Of File) é porque o recordset está vazio e consequentemente a sua busca não retornou nenhum registro.

 

Abraços,

 

Graymalkin

[soloplayer 0]

Amigo como faco isso?

[Luizgrs 0]

Após o refresh você teria que fazer assim:

if adodc1.recordset.eof then  msgbox "Nenhum Registro Localizado"  exit sub 'se quiser para tudoend if

[soloplayer 0]

Amigo Luizgrs mais uma vez Tks

[soloplayer 0]

amigo da o erro variable not set '91'nao fungou.help

[soloplayer 0]

Ola amigo ta dando erro help ae o que faco?

[Graymalkin 0]

Ola amigo ta dando erro help ae o que faco?

Qual a linha que dá erro?Abraços,Graymalkin

[soloplayer 0]

if adodc1.recordset.eof then msgbox "Nenhum Registro Localizado" exit sub 'se quiser para tudoend ifele diz que nao esta setado o ADODC1.recordset.eof