Banco De Dados

[Guest SoHmEnTe]

Bom galera,

desculpe ae por postar tópico aqui mais como eu sou meio novato eu já procurei vários outros tópicos e formulários aqui mesmo na SB. Como eu deve ter várias pessoas q apesar desse assunto ser mais fluente não entendem como começar a montar um BD...

Gostaria se possivel alguém poderia postar a msg de como iniciar um BD em vb simples em Acess mesmo....

E que também se possivel montasse um form bem simples com o mesmo exemplo citado neste form e deixa-se disponível em algum lugar.... fazendo um grande favor...pois so assim os novatos coseguiram entender bem melhor como iniciar !!!!

tipo oque mudar nos botões de DATA, MSFLEXGRID etc....

vlw!!!!!!!

[Evandro Fontes]

Vairaveis para conexão com o banco [recomendável colokar num modulo]

Public cnn As New ADODB.Connection

Public rs As New ADODB.Recordset

Rotina para conexão: [também recomendável no modulo]

Sub conecta()

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" caminho;"

    rs.CursorLocation = adUseClient

End Sub

No LOAD do form principal, simplesmente digite: conecta, assim ele já abre uma conexão com o banco de dados.

agora segue uma conexão com a tabela cliente, um mero exemplo qe usei aki. Também chamada no LOAD do form de cadastro e consulta de clientes.

If rs.RecordCount < 1 Then

rs.Open "SELECT * FROM Clientes", cnn, adOpenDynamic, adLockOptimistic

MsgBox "Não há nenhum registro para exibição", vbInformation, "Cadastro de Cliente"

Else

txtCod.Text = IIf((rs("codigo").Value), rs("codigo").Value, "")

txtEmpresa.Text = IIf((rs("cliente").Value <> ""), rs("cliente").Value, "")

txtContato.Text = IIf((rs("contato").Value <> ""), rs("contato").Value, "")

txtEnd.Text = IIf((rs("end").Value <> ""), rs("end").Value, "")

txtNum.Text = IIf((rs("num").Value <> ""), rs("num").Value, "")

txtCep.Text = IIf((rs("cep").Value <> ""), rs("cep").Value, "")

txtBairro.Text = IIf((rs("bairro").Value <> ""), rs("bairro").Value, "")

txtCid.Text = IIf((rs("cidade").Value <> ""), rs("cidade").Value, "")

txtTel.Text = IIf((rs("tel").Value <> ""), rs("tel").Value, "")

txtCel.Text = IIf((rs("cel").Value <> ""), rs("cel").Value, "")

txtEmail.Text = IIf((rs("email").Value <> ""), rs("email").Value, "")

End If

E agora, segue uma rotina pra preencher o GRID, com dados de uma tabela (no caso, usei a tabela de Ordem de Serviços[OS], qe irá listar as OS de cada cliente.

Sub CarregaGrid()

        Dim rsOs As New Recordset

        rsOs.CursorLocation = adUseClient

        Set GridOS.DataSource = Nothing

       

       

    rsOs.Open "SELECT * FROM OS WHERE codigo =" & txtCod.Text, cnn, adOpenDynamic, adLockOptimistic, adCmdText

    Set GridOS.DataSource = rsOs

    If rsOs.RecordCount > 0 Then

    GridOS.Columns(0) = IIf((rsOs("os").Value <> ""), rsOs("os").Value, "")

    GridOS.Columns(1) = IIf((rsOs("data").Value <> ""), rsOs("data").Value, "")

    GridOS.Columns(2) = IIf((rsOs("defeito").Value <> ""), rsOs("defeito").Value, "")

    End If

End Sub

O evento LOAD, ficaria mais ou menos desse modo.

Private Sub Form_Load()

carrega

CarregaGrid

End Sub

Qualquer Duvida, poste aki

OBS: este codigo funcionou aki no meu projeto, estou usando VB6, e access 2003.

Abraços,

Evandro

[William Rodrigues]

Acho que só faltou fazer a referência brother...

Vá em Project / References...

Nesta caixa, selecione a opção Microsoft ActiveX Data Objects 8.0 e dê OK

PS: Sempre selecione a última versão do ActiveX Data Objects

Abraços,

William Rodrigues