Consulta No Access!!!!

Question

:oops: Seguinte Galera, Programa&ccedil;&atilde;o n&atilde;o &eacute; muito a minha, estou tentando quebrar um galho para um amigo!!!!

Criei um consulta baseada em uma tabela Cliente, coloquei um criterio que pede para ser digitado o nome de um Cliente, o que eu quero &eacute; o seguinte, se eu digitar Sarafim por exemplo e esse Cliente n&atilde;o estiver cadastrado a consulta me retorne uma MSGBOX e n&atilde;o abra a consulta em branco como est&aacute; ocorrendo!!!


Obrigado e agrade&ccedil;o desde j&aacute;!!!

Answer

criterio = Empty
If combo_des.Text = Empty Then
    criterio = combo_num.Text
    'verificando se o item existe por numero do equipamento
    criterio = N&uacute;mero like '* & criterio & *'
End If
If combo_num.Text = Empty Then
    criterio = combo_des.Text
    'verificando se o item existe por numero do equipamento
    criterio = Descricao like '* & criterio & *'
End If

data_estoque.Recordset.FindFirst criterio
If data_estoque.Recordset.NoMatch Then
    MsgBox Item n&atilde;o cadastrado., vbInformation, Sistema
    cmd_atualiza.Enabled = False
    combo_num.Text = Empty
    combo_des.Text = Empty
    combo_num.SetFocus
    cmd_cancelar.Enabled = False
Else
    cmd_verifica.Enabled = False
    cmd_atualiza.Enabled = True
    aux_des.Enabled = True
    aux_val.Enabled = True
    aux_qtd.Enabled = True
    aux_dat.Enabled = True
    cmd_cancelar.Enabled = True
    des = aux_des.Text
    valuni = aux_val.Text
    qtd = aux_qtd.Text
    'lbl_data.Caption = aux_dat.Text
    combo_num.Enabled = False
    combo_des.Enabled = False
End If


ajuda????

Answer

Credo!!!

Onde digito esses trecos cara. N&atilde;o saco muita coisa de programa&ccedil;&atilde;o n&atilde;o isso &eacute; para feras iguais a vc, sou tec. em hardware, pode me esclarecer melhor?

Abra&ccedil;os Playboy

Answer

Credo!!!

 :?:  :?:  :?:  :?:  :?:  :?:  :?:  :?: Onde digito esses trecos cara. N&atilde;o saco muita coisa de programa&ccedil;&atilde;o n&atilde;o isso &eacute; para feras iguais a vc, sou tec. em hardware, pode me esclarecer melhor?

Abra&ccedil;os Playboy :

Answer

criterio = Empty 

criterio = (inputbox digite,titulo,valor default)
'verificando se o item existe 
criterio = (campo do bd) like '* & criterio & *' 
data_que_esta_o_bd.Recordset.FindFirst criterio 
If data_que_esta_o_bd.Recordset.NoMatch Then 

MsgBox Item n&atilde;o cadastrado., vbInformation, Sistema 

Else 

'mostra o q vc quer

End If 

simplificado..., eh isso q vc queria?? qq duvida poste.

Answer

criterio = Empty 

criterio = (inputbox digite,titulo,valor default)
'verificando se o item existe 
criterio = (campo do bd) like '* & criterio & *' 
data_que_esta_o_bd.Recordset.FindFirst criterio 
If data_que_esta_o_bd.Recordset.NoMatch Then 

MsgBox Item n&atilde;o cadastrado., vbInformation, Sistema 

Else 

'mostra o q vc quer

End If 

simplificado..., eh isso q vc queria?? qq duvida poste.

Answer

Eu vou ter que digitar essa parada no criterio da consulta?. dESCULPE mas &eacute; q sou totalmente leigo em programa&ccedil;&atilde;o...

Abra&ccedil;os e mais uma vez desculpe e obrigado

Answer

[quote=Playboy]Eu vou ter que digitar essa parada no criterio da consulta?. dESCULPE mas &eacute; q sou totalmente leigo em programa&ccedil;&atilde;o...
...[/quote]
Cara eu estou estudando o ASP e criei um c&oacute;digo para verificar a exist&ecirc;ncia de valores repetidos num bd... mas no meu caso era um email ent&atilde;o estou adaptando o c&oacute;digo para vc,, j&aacute; t&aacute; auto-explicado:

* ps, esse c&oacute;digo foi criado com estudo do livro aprendendo ASP em 24 horas e com ajuda do pessoal de outros f&oacute;runs de ASP, agrade&ccedil;o ao pessoal dos outros f&oacute;runs com o imaster, clube masters,  que est&atilde;o me dando um grande help.. bem como o pessoal daqui tamb&eacute;m ;)





 0 ) Then
' Define strnome
strnome = Trim(Request.Form(nome))
Set objconec = Server.CreateObject(ADODB.Connection)
' Localizar bando de dados no servidor
mapbd = Server.MapPath(db/bandodedados.mdb)
' String para conex&atilde;o ao banco de dados do MAccess
strconec = DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= & mapbd
' Abre conex&atilde;o do objconec 
objconec.Open strconec

	' Verificar se o nome j&aacute; est&aacute; cadastrado
         ' Em nometabela coloque o nome da tabela de consulta do banco de dados e em nome coloque o nome dado a linha no modo de estrutura que vai levar o nome do cadastro.
	SQL = SELECT * FROM nometabela WHERE nome = '&strnome&' 
	' Seta o objrs para a conex&atilde;o objconec que vai conectar o BD
	' E vai executar o SQL para verificar se o nome do form j&aacute;
	' existe no BD
	Set objrs = objconec.Execute(SQL)
	If Not objrs.EOF Then 
	' Se estiver cadastrado apresenta a mensagem
	Response.Write Nome j&aacute; est&aacute; no BD!!
	Else 
	Response.Write Nome n&atilde;o est&aacute; no BD!!
         End If
End If
%>


Qualquer erro ou bug encontrado, favor avisar. :wink:

Answer

estou criando a consulta no access e n&atilde;o no asp ok!!!!

Answer

ola desculpa a demora pra responder, o forum tava em manuten&ccedil;ao toda vez qa eu acessava,


o criterio eh so uma variavel onde vc joga o valor do inputbox

falow, espero q jah tenha conseguido fazer

Answer

ola desculpa a demora pra responder, o forum tava em manuten&ccedil;ao toda vez qa eu acessava,


o criterio eh so uma variavel onde vc joga o valor do inputbox

falow, espero q jah tenha conseguido fazer

Answer

ola desculpa a demora pra responder, o forum tava em manuten&ccedil;ao toda vez qa eu acessava,


o criterio eh so uma variavel onde vc joga o valor do inputbox

falow, espero q jah tenha conseguido fazer

Answer

ola desculpa a demora pra responder, o forum tava em manuten&ccedil;ao toda vez qa eu acessava,


o criterio eh so uma variavel onde vc joga o valor do inputbox

falow, espero q jah tenha conseguido fazer

Answer

Que nada cara at&eacute; desistir de fazer, &ntilde; saco nada de programa&ccedil;&atilde;o, se puder me ajudar ficarei muito grato!!!

Answer

se sobrar tempo posso ate fazer e se for um programinha curto, tou meio q ocupado sabe, mas como isso geralmente eh rapido posso ate tentar. assim passa o executavel do q vc jah tem, com os campos bunitinhos q qd eu puder te mando um exemplo.

Ferramentas

Mover Tópico