|
|
Postada em 25/10/2004 09:42 hs
Putz... por que minha mensagem não fica do jeito que eu digito... escrevi ". m o v e l a s t" e não .moveMax E estã não é a primeira vez que isso acontece, vou postar algo pro webmaster...
Claudio Alves.
|
|
|
|
|
|
|
|
Postada em 25/10/2004 15:27 hs
Ok Pessoal, vou tentar a solução do Poca inicialmente, e funcionando ou não tentarei a do caco, assim além de solucionar o problema com certeza estarei aprendendo mais um macete  Poca o codigo da rotina comeco (que esta em um módulo) esta abaixo: ' inicio - preparação e conexão de banco Public Function Comeco() Dim sConexao, sPath As String
DoEvents
'Capturando o Diretóro Corrente
sPath = App.Path
sPath = sPath & IIf(Right$(Trim(sPath), 1) = "", "", "") 'Montando a String de Conexão com o Banco. Lembre-se, foi usado um arquivo de extensão UDL para montar essa String
sConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath & "DBBATISMO-Versao2000.mdb;Persist Security Info=False" 'Instanciando os Objetos de Conexão e Consulta a Banco
Set Con = New ADODB.Connection
Set rs = New ADODB.Recordset
Con.ConnectionString = sConexao
Con.Open
End Function
|
|
|
|
|
|
Postada em 25/10/2004 15:42 hs
Pessoal, voces são fantásticos...vamos as notícias: Poca, fiz como voce falou ... retirei o ".ActiveConnection = Nothing", porém ainda assim o Recordcount retornava zero, então voltei a situação anterior. caco, experimentei a sua solução e Bingo!!! ok funcionou conforme voce descreveu!!! Valeu turma!!!  , porém só pra encerrar essa estória, se voces olharem no else deste IF do Recordcount, eu estou dando um MsgBox com o campo "NOME_DO_MINISTRO" que é um campo da minha Tabela do BD, não esta saido nada, porque ?? eu não posso dar Mensagem do campo do BD ???  Pessoal mais uma vez OBRIGADO a todos T+ |
|
|
|
|
|
Postada em 25/10/2004 16:39 hs
Faltou o recordset: rs("Nome_do_Ministro")
Claudio Alves.
|
|
|
|
|
|
Postada em 25/10/2004 17:13 hs
Pessoal usei a dica do Cláudio, porém não funcionou (não deu erro nem nada, apenas não funcionou..) Outra coisa fiz um novo teste desta vez com um registro novo e agora o código sempre me retorna como se o registro ja existisse.... Não sei se consegui me explicar direito .... o que estou tentando fazer é o seguinte... antes de incluir um registro novo quero verificar se o nome_do_ministro existe... se existir dou msgbox de ja existente com o codigo do ministro, senão crio o novo registro e retorno MsgBox com o nro do registro criado... Logo... o que esta errado na codificação .... alguem saberia... Brigado Pessoal... |
|
|
|
Poca
|
SETE LAGOAS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 29/10/2004 00:40 hs
use assim amigo: msgbox rs.fields!Nome_do_Ministro com certeza irá funcionar.... T +
Imagine um sistema (.exe) que vc pode programar códigos fontes dentro dele, mesmo com ele estando em execução no momento e ainda trabalhando em rede! Ficou confuso ??? Não entendeu como isso é possível ??? Componente: Macro pra VB6 / Desenvolvido por Kraysler. O teu sistema fica com recursos parecido com o que a linguagem SAP oferece. OBS.: Linguagem SAP = R$ 80.000,00 , talvez seja por isso que vc não tenha ouvido falar nela. Baixe um aplicativo Demo do componente: http://www.macrovb.cjb.net
|
|
|
|
