• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Pedro_07

[x] Ligar a Bd

4 mensagens neste tópico

Boas...

Alguem me pode dizer como poxo fazer ligaçao a base de dados sem ser com o datacontrol?

Fikem bem

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas...

Alguem me pode dizer como poxo fazer ligaçao a base de dados sem ser com o datacontrol?

Fikem bem

???? ... se te fizeres entender melhor talvez te possa ajudar ....

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Eu não percebi bem o que querias mas acho que é isto:

1º para localizares

Private Sub Form_Load()

Set CONTeste = New ADODB.Connection
CONTeste.ConnectionString = "Provider=Microsoft.jet.oledb.4.0; Data Source=" & App.Path & "\BD\Teste.mdb"
CONTeste.Open
CONTeste.CursorLocation = adUseClient
      
End Sub

Depois é só fazes o que quiseres tipo:

Private Sub cmdAdicionar_Click()

If TxtNome.Text = "" Or TxtContacto.Text = "" Or TxtMail.Text = "" Then
    MsgBox "Faltam dados no registo!"
Else
    Set rs = New ADODB.Recordset
    rs.CursorType = adOpenStatic
    rs.CursorLocation = adUseClient
    rs.LockType = adLockPessimistic
    rs.Source = "SELECT * FROM MedicosAssistentes"
    rs.ActiveConnection = CONGesPaci
    rs.Open

    
    rs.AddNew
    Call Gravar

    rs.Update
    Call LimparText
End If

End Sub

Private Sub Gravar()
    
    rs!Nome = TxtNome.Text
    rs!Contacto = TxtContacto.Text
    rs!Mail = TxtMail.Text
    
End Sub

Podes também meter tudo na mesma linha tipo:

rs.Open "Select * from Tecnicos where utilizador='" & txtName.Text & "' and password='" & txtPass.Text & "'", CONTeste, adOpenKeyset, adLockOptimistic

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora