Olá colegas,

Estou tentando desenvolver pela primeira vez, um programinha

cadastro de cliente, abrindo o arquivo db no vistada, em seguida

abro o eu form, com a tela contento os botões e campos, e

tenta abrir meu banco de dados, mas não estou conseguindo,

já foi declarado a caminho no procedimento Form_Load():

Assim

Private Sub Form_Load()
DB.DatabaseNome = App.Path & "CadCli.mdb"
DB.RecordSource = "Clientes"
DB.Refresh
End Sub

Gostaria de saber inserir este objeto chamado Data Control,

estou usando VB 6.0

Anselmo

primeiro dentro de seu projeto va ate o menu Projetct, Components e selecione as segiuntes opções:

- Microsoft ADO Data Control 6.0 (SP6) (OLEDB)

e depois va em Project, References e selecione a opção

- Microsoft Activex Data Objects 2.1 library

 

aí é só inserir a seguinte string de conexão no evento onLoad em seu Form Principal:

 

'Aqui vai no Load do Form Principal

    Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "OrgproORGPRO.MDB" & ";Jet OLEDB:Database Password="

 

No Data Source da linha de comando citada acima coloque o caminho em que esta o seu arquivo .MDB e em DataBase Password coloque a senha do banco, se este possuir uma cadastrada no Access.

 

e em um modulo vc declara a variavel Conexao como publica:

 

'Aqui vai no modulo

Option Explicit

    Public Conexao As New ADODB.Connection

 

Vou lhe enviar um projetinho simples, mas bem fácil de aprender a fazer cadastro no vb6, ele usa um relatorio simples no crystal 8.5, pra funcioná-lo é só descompacta-lo em uma pasta chamada C:OrgPro, até mais....

Teria como enviar-me o  projeto simples

agradeço

 

ok.. ja lhe enviei, olha só uma observação, vc deve alterar o formato de data no windows dentro do painel de controle, Opções Regionais e de Idiomas, Personalizar, Data, Formato de Data Abreviada.... A data deve ter o seguinte formato:- dd/mm/aa, pois o exemplo citado funciona apenas com dois digitos,,

 

valeu... abs...

 

APW,

Obrigado pela ajuda, acescentei as linhas que você sugeriu no meu

código, ai cansegiu abrir o meu arquivo db, mas estou deparando com

mais um problma, na sub localizar (código abaixo), não sei se a linha

(db1.Recordset.FindMin "Codigo=' " & Cod & " ' "), esta com seu

código incorreto ,para o BV, por que na comparação da variavel

para comparar o código, com o codigo do campo no meu db,

apresenta erros e o programa para a execução, com relação ou

seu programinha, para confesso a vc, que ainda não consegui

executar o mesmo (rodar).

Att.

Anselmo 

 

Private Sub Localizar_Click()
Dim Cod As String
Cod = InputBox("Digite o código do cliente:")
If Cod <> "" Then
db1.Recordset.FindMin "Codigo=' " & Cod & " ' "
Else
Exit Sub
End If
If db1.Recordset.NoMatch Then
MsgBox "Este registro não foi cadastrado!", vbExclamation
Exit Sub
End If
'info.Enabled = True
TxtCodigo.Text = db1.Recordset("Codigo")
TxtNome.Text = db1.Recordset("Nome")
TxtEndereco.Text = db1.Recordset("Endereco")
TxtBairro.Text = db1.Recordset("Bairro")
TxtCidade.Text = db1.Recordset("Cidade")
TxtEstado.Text = db1.Recordset("Estado")
TxtTel.Text = db1.Recordset("Tel")
TxtSexo.Text = db1.Recordset("Sexo")
TxtNascimento.Text = db1.Recordset("Nascimento")
opcao = "Alterar"
Excluir.Enabled = True
Salvar.Enabled = True

End Sub

Olha, a busca de clientes por codigo acho que é algo ja obsoleto, isso se não for por codigo de carteirinha ou crachá, etc, mas postarei um exemplo seguindo o seu modo, veja se da certo, coloque o codigo a seguir dentro de um botão no seu form de cadastro, ai va alterando de acordo com o nome de seus campos e de suas tabelas...:

 

    Dim vsTitulo, vsInput, vsSQL As String
    Dim RCLIENTES As ADODB.Recordset
   
    vsTitulo = "Informe o Código do cliente"
    vsInput = InputBox(vsTitulo, "ENTRADA DO CÓDIGO")
   
    If StrPtr(vsInput) <> 0 Then
        If Len(vsInput) > 0 Then
            If Not IsNumeric(vsInput) Then
                MsgBox "Digite apenas números !", vbExclamation, "Dados inválidos"
                Exit Sub
            Else
                Set RCLIENTES = New ADODB.Recordset
                RCLIENTES.CursorLocation = adUseClient
               
                'aqui vai sua consulta SQL (CLIENTES é o nome da tabela substitua pelo nome da sua)
                vsSQL = "SELECT * FROM CLIENTES WHERE CODIGO = " & vsInput
               
                'vssql é a variavel que contem o SQL, conexao é aquela variavel
                'de conexao que vc criou como public num modulo
                RCLIENTES.Open vsSQL, Conexao, adOpenStatic, adLockReadOnly, adCmdText
               
                If RCLIENTES.RecordCount = 0 Then
                    MsgBox "Cliente não cadastrado.", vbInformation, "Aviso"
                    Exit Sub
                Else
                    'aqui checa  o valor do campo da tabela, se for nulo ele insere em branco no textbox
                    'senao ele coloca o valor correspondente
                    TXT_Nome.Text = IIf(IsNull(RCLIENTES!NOME.Value), vbNullString, RCLIENTES!NOME.Value)
                    TXT_Endereco.Text = IIf(IsNull(RCLIENTES!ENDERECO.Value), vbNullString, RCLIENTES!ENDERECO.Value)
                    'E assim vai...
                    
                    Excluir.Enabled = True
                    Grava.Enabled = True
                End If
            End If
        End If
    End If
   
    'Aqui vc fecha e destroi o obj cliente
    RCLIENTES.Close
    Set RCLIENTES = Nothing