PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 24/10/2007 14:54 hs
tá usando ado ou dao? qual bd? |
|
|
|
|
|
Edilene Souza
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/10/2007 09:03 hs
Olá, Estou usando o PostgreSQL como banco de dados! Abraços, |
|
|
|
SRick
|
LAVRAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/10/2007 10:03 hs
Olá Edilene, abaixo um pedaço de um código que eu fiz, espero poder ajudar, caso, não consiga me dê um alô que de envio o projeto completo. Um abraço Rick. Private Sub Command2_Click()
tb.MovePrevious ' Botão anterior
If tb.BOF = True Then ' se o apontador de registro for para o início da tabela então...
MsgBox "Você está no << Início do Arquivo >>", vbExclamation, "HENRIQUE Sistemas"
tb.MoveMin ' o apontador de registro for para o final da tabela
End If
AtualizaFormulario ' é uma procedure para atualizar o formulário.
End Sub Private Sub Command3_Click()
tb.MoveNext ' o apontador de registro foi para o próximo registro da tabela
If tb.EOF = True Then
MsgBox "Você está no << Final do Arquivo >>", vbExclamation, "HENRIQUE Sistemas"
tb.MovePrevious
End If
AtualizaFormulario
End Sub Private Sub Command4_Click()
tb.MoveMax
AtualizaFormulario
MsgBox "Você foi para o << Final do Arquivo >>", vbExclamation, "HENRIQUE Sistemas" End Sub
|
|
|
|
Edilene Souza
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/10/2007 10:36 hs
Oi Agenor , Ainda não testei o código que tu enviou, mas me ocorreu uma dúvida, no seguinte tb.MovePrevious, tb é o nome da tabela no banco ou o nome do projeto? E o atualiza formulário é obrigatório? Como faço, não estou usando isso em meu código? Aguardo retorno. Obriagada, |
|
|
|
Álvaro
|
GUARULHOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/10/2007 10:42 hs
Sim nesse caso TB é o nome da sua tabela no banco e o atualiza é obrigatório para que os dados apareçam na tela
Ex:
Text1.text=tb!Nome
Text2.text=tb!Descricao
etc
etc
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
Edilene Souza
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/10/2007 18:44 hs
Oi, Não estou conseguindo executar o código enviado. Vocês podem me enviar o código completo. Abaixo, o meu código que não dá certo! Private Sub cmdAnterior_Click() Dim ws As Workspace
Dim db As Database
Dim strconnection As String
Dim consulta As Recordset
Set ws = DBEngine.Workspaces(0)
strconnection = "ODBC;DSN=projeto"
Set db = ws.OpenDatabase("", False, False, strconnection)
Set consulta = db.OpenRecordset("select * from cliente")
txtIdCliente = consulta(0)
txtNome = consulta(1)
txtCidade = consulta(2)
txtRua = consulta(3)
txtNum = consulta(4)
txtBairro = consulta(5)
txtEmail = consulta(6)
txtFone1.Mask = consulta(7)
txtFone2.Mask = consulta(8)
txtObs = consulta(9)
txtDataNasc.Mask = consulta(10)
cmbUf = consulta(11)
txtCpf.Mask = consulta(12)
txtCep.Mask = consulta(13)
consulta.MovePrevious
End Sub Obrigada, |
|
|
|
