Ir para conteúdo
Fórum Script Brasil
  • 0

Conexão Com Db


dolci

Pergunta

8 respostass a esta questão

Posts Recomendados

  • 0
Como efetuar conexão com banco de dados Access com o Visual Basil 6.0.

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

'-------------------------------------------

Private Sub Form_Load()

'Abre o banco de dados

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bd1.mdb"

'Abre a tabela

rs.CursorLocation = adUseClient

rs.Open "SELECT * FROM cadastro", cn, adOpenDynamic, adLockOptimistic

'Liga o recordset à grade

Set DataGrid1.DataSource = rs

'Rotina que preenche os campos:

Preenche

End Sub

'Rotina que preenche as caixas de texto de acordo com o registro selecionado atualmente no Recordset

Private Sub Preenche()

If Not (rs.EOF Or rs.BOF) Then 'Se a tabela não estiver vazia

txtNome.Text = rs.Fields("nome").Value 'Preenche a caixa de texto com o conteúdo do campo 'nome'

txtICQ.Text = rs.Fields("icq").Value 'Preenche a outra caixa de texto com o conteúdo do campo 'icq'

Else 'Senão, ou seja, se estiver vazia

txtNome.Text = "" 'Limpa as caixas de texto

txtICQ.Text = ""

End If

End Sub

Amigão, estou procurando no site um ex: que um Brother me mandou, assim que achar eu tem passo o link.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...