Conexão com BD

[birobirosk8 0]

E ae gente, bom dia...Entao, estou com um duvida aki, toda vez que quero me conectar com o banco, eu crio a string de conexao, crio o bjeto de conexao, estancio o bojeto de conexao, e do um objeto de conexao.open.Putz, qualquer coisinha q acesso a dados eu faço tudo isso, tipo um simples botao q faz um select de alguma coisa eu tenho q digitar uma par de linha pra fazer a conexao.Tipo se fosse em ASP eu usaria um include, em C++ um Data Module, e no VB, como eu posso fazer isso ???Eu até criei um metodo numa classe q abria o bd, mais num funcionou, alguem ae pode me ensinar ???Obrigado...

[AndersonDutra 4]

você pode criar um módulo. você cria as funções em um módulo e chama em qualquer formulario que você fizer. Assim:

 

No módulo:

 

Public Function conecta()'mapearCamSet BD = New ADODB.Connection  With BD	.Provider = "Microsoft.Jet.OLEDB.4.0"	.Mode = adModeReadWrite   ' Permite Ler/Escrever.	.ConnectionString = "data source=  H:\Chamado.mdb"	.Open End With End FunctionPublic Function recordset_open()Set Tab_chamado = New ADODB.RecordsetTab_chamado.Open "Chamado", BD, adOpenKeyset, adLockOptimisticEnd Function

No Load do Formulário:

 

Private Sub Form_Load()'mapearconecta'erroEnd Sub

[birobirosk8 0]

puuutz, olha com eu fiz, mais num ta funcionando....

Public Function abreBD() Dim objConn As ADODB.Connection Set objConn = New ADODB.Connection objConn.Open "Provider=SQLOLEDB.1;Password=xxxxxx;Persist Security Info=True;User ID=sa;Initial Catalog=BDCspCNB;Data Source=192.168.200.6"End Function

Private Sub Command1_Click() Dim objRs As ADODB.Recordset Set objRs = New ADODB.Recordset ModBanco.abreBD objRs.Open "select * from tblUsuarios", objConnEnd Sub

o erro é:os argumentos estao incorretos, estao fora de intervalo aceitavel ou estao em conflitofalooow obrigado...

[AndersonDutra 4]

Muda para como está no meu e vê se dá o mesmo erro.

[birobirosk8 0]

Public Function abreBD() Set objConn = New ADODB.Connection objConn.Provider = "SQLOLEDB.1" objConn.Mode = adModeReadWrite objConn.ConnectionString = "Provider=SQLOLEDB.1;Password=xxxxxx;Persist Security Info=True;User ID=sa;Initial Catalog=BDCspCNB;Data Source=192.168.200.6" objConn.OpenEnd Function

Private Sub Command1_Click() 'Dim objConn As ADODB.Connection 'Dim objRs As ADODB.Recordset 'Set objRs = New ADODB.Recordset ModBanco.abreBD 'objRs.Open "select * from tblUsuarios", objConnEnd Sub

erro agora é, operacao nao permitida quando o objeto esta fechada...meeeeeeeeeeu deus ehhehe

[AndersonDutra 4]

Vou te mandar uma MP com com meu email e me manda o arquivo com o banco para eu dar uma olhada.

[birobirosk8 0]

opa arrumei, eu tinha errado...num deu erro, mais se na funcao onClick eu coloko tbm ModBanco.abreBD objRs.Open "select * from tblUsuarios", objConndai da object requeriediiiiiiiiiiiiiii anderson, mais o banco é sql server !!!!enviei oemail....

[AndersonDutra 4]

Eu trabalho com Access 2000, então eu não entendo muito de conexão com BD SQLServer. Mas esse erro que você falou de object requeried é o ModBanco que você colocou que não precisa. É só colocar abreBD sozinho. Ele tá procurando o objeto que se chama ModBanco, como ele não acha então ele dá o erro de object requeried.

[birobirosk8 0]

poooutz velho, isso aki ta tenso, to tentando varios barato aki, deixa keto, é projetinho pequeno mesmo, eu faço do jeito q eu tava fazendo mesmo hehehehehe, mais muito obrigado.....deixa te perguntar outra coisa....como q eu coloko os resultado de um recordset dentro de um data bound grid ????

[AndersonDutra 4]

Não dá para testar o seu programa aqui pq como você mesmo disse, o BD é sqlserver. Mas dá uma olhada no http://www.macoratti.net que deve ter alguma resposta para a conexão com o BD e tb sobre data bound grid.