Banco de dados Acess + VB6

[silvia arantes 0]

Olá Pessoalsou iniciante em programação e preciso criar um sistema para um lava jato e gostaria de saber como eu faço a ligação do vb6 com o banco de dados acess

[Vegeta 0]

ola, para ligar o vb6 e o access 2000 é o seguinte:abra seu projeto, no menu Project>References... , procure e selecione a opção "Microsoft DAO 3.6 Object Library" e depois disso vai clicando no botão com a seta para cima do Priority até que o botão fique inativo.exemplo de tabelas no access:cadClientecadFornecedorBeleza agora vamos a ligação...em um modulo coloque o seguinte:----------------------------------------------------------------------------------------------------------------------------------------------'CRIAR VARIAVEISGlobal bd As Database 'VARIAVEL QUE RECEBE O BANCO DE DADOSGlobal cadCliente As Recordset 'VARIAVEL QUE RECEBE A TABELA cadClienteGlobal cadFornecedor As Recordset 'VARIAVEL QUE RECEBE A TABELA cadFornecedorPrivate Sub main()Set bd = OpenDatabase(App.Path &"\seu_BD.mdb") 'CARREGA O BANCO DE DADOS E VINCULA A VARIAVEL BDSet cadCliente = bd.OpenRecordset("cadCliente") 'CARREGA A TABELA cadCliente E VINCULA A VARIAVEL A VARIAVEL cadClienteSet cadFornecedor = bd.OpenRecordset("cadFornecedor") 'CARREGA A TABELA cadFornecedor E VINCULA A VARIAVEL A VARIAVEL cadFornecedor'MOSTRANDO O INDICE DE BUSCA DO BANCO DE DADOS, ISSO você DEFINE NO ACCESS, NESSE CASO O MEU INDICE É "pk" EM AMBAS AS TABELAS'ESSE INDICE É A PRIMARY KEY DA SUA TABELAcadCliente.Index = "pk"cadFornecedor.Index = "pk"formularioInicial.Show 'CHAME O FORMULARIO QUE INICIA SEU SISTEMAEnd Sub----------------------------------------------------------------------------------------------------------------------------------------------entre no menu Project>Properties... va na opção Startup Object e na combobox a baixo escolha a opção Sub Mainespero ter ajudadoqualquer duvida post aquiabraços

[Macêdo 0]

faz o seguinte:

 

Insira um módulo ao Projeto e declare a conexão no módulo:

 

Public cnn as New ADODB.Connection

Insira um formSplash colocando nele um timer, informando um valor de no mínimo 1000 na propriedade “interval” e no evento do timer abra a conexão com o Banco de Dados, assim: Obs(altere o nome do BD Access e do Form que será aberto em seguida)

 

Private Sub Timer1_Timer()On Error GoTo errconexaocnn.ConnectionString = "provider = microsoft.jet.oledb.4.0;" & _"data Source = " & App.Path & "\BD.mdb;"cnn.CursorLocation = adUseClientcnn.OpenUnload MeForm1.ShowExit Suberrconexao:With ErrIf .Number <> 0 ThenMsgBox " houve um erro na conexão com o banco de dados." & _vbCrLf & " O sistema será encerrado.", vbCritical + vbOKOnly + vbApplicationModal, "erro na conexão".Number = 0Set cnn = NothingEndEnd IfEnd With

[dilson2h 0]

Cara amiga eu diria q so fazendo apartir do codigo q os outros nos dao nao é suficienteaconselharia-te a ler umas outras apostilas ou livros que ajudar-te-ao a fazer e ter capacidade deexplicar. Em vb nao faço nada q nao consiga explicar !Eu tenho algumas se quiseres: dilson2h@hotmail.comfalou