[Resolvido] SqlSever200 com VB

[Roacutan 0]

Bom dia galera..

 

comecei estudar vb a poucos dias para teste de uma empresa, que no teste quer q eu faça inclusão,busca, deleção de um pequeno programa ligado ao sqlserver, porém não estou conseguindo..

 

eles querem que eu faça a conexao sem nenhum componente

Se alguém tiver um pequeno programinha desse tipo e puder me passa para eu estudar...ficarei super agradecido!!

 

 

no General Declaration
Dim usuario, senha, servidor, BancoDados As String
Dim sql As String
Dim cn As New ADODB.Connection <--- da erra nessa linha
Dim rs As New ADODB.Recordset

Private Sub cmd1_Click()

usuario = txtusuario.Text
senha = txtsenha.Text
servidor = txtServidor.Text
BancoDados = txtbancobd.Text

cn.Provider = "SQLOLEDB"
cn.Properties("Data Source").Value = servidor
cn.Properties("Initial Catalog").Value = BancoDados
cn.Properties("User ID").Value = usuario
cn.Properties("Password").Value = senha

cn.Open
MsgBox " Conexao efetuada com sucesso ! "
End Sub

Private Sub Cmd2_Click()


usuario = txtusuario.Text
senha = txtsenha.Text
servidor = txtServidor.Text
BancoDados = txtbancobd.Text

Set rs = New ADODB.Recordset
sql = " Select * from clientes "
rs.Open sql, "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & usuario & ";Password=" & senha & ";Initial Catalog=" & BancoDados & ";Data Source=" & servidor & "", adOpenStatic, adLockReadOnly

MsgBox " Conexão efetuada com sucesso ", vbInformation, " Conexão 2 "

End Sub
End Sub

Private Sub cmd4_Click()
cn.ConnectionString = "Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=Clientes;Password=123456;User ID=gustavo;"
cn.Open

Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
rs.CursorLocation = adUseClient
sql = " Select * from clientes"

rs.Open sql
MsgBox " Conexão efetuada com sucesso ", vbInformation, " Conexão 4 "
cn.Close

End Sub

Private Sub cmd5_Click()
cn.ConnectionTimeout = 100
cn.Open "conSQLServer", "gustavo", "123456"
'cn.Open "conSQLServer", "sa", ""

MsgBox " Conexão efetuada com sucesso ", vbInformation, " Conexão 5 "
cn.Close
End Sub

Private Sub cmd6_Click()
Private Sub Cmd3_Click()
Dim provedor As String

usuario = txtusuario.Text
senha = txtsenha.Text
servidor = txtServidor.Text
BancoDados = txtbancobd.Text

cn.Provider = "sqloledb"
provedor = "Server='" & servidor & "';Database='" & BancoDados & "';Trusted_connection=yes"

cn.Open provedor
MsgBox " Conexão efetuada com sucesso ", vbInformation, " Conexão 3 "
cn.Close


End Sub

[Claudio Neto 3]

Olá Roacutan, primeiramente, bem vindo ao fórum.

 

Seu código está correto, pelo menos até onde olhei. O motivo que seu código está dando erro é porque não referenciou à biblioteca necessária.

 

Vá em projects --> references e marque MIcrosoft Activex Data Object 2.8

 

Após isso tente rodar de novo seu programa e diga se deu certo.

[Roacutan 0]

Deu certo sim!!

 

obrigado!