conexao SQl SERVER

[douglasdepaula 0]

Ae, tipo eu to fazendo assim pra conecta

 

Private cnn As ADODB.Connection
Private cmd As ADODB.Command

Set cnn = New ADODB.Connection
Set cmd = New ADODB.Command

cnn.Open("Provider=SQLOLEDB;Initial Catalog=SEU_BANCO;Data Source=SEU_SERVIDOR; integrated security=SSPI; persist security info=True;UserId=SEU_USUARIO;Password=SUA_SENHA"
cmd.ActiveConnection = cnn
cmd.Execute "insert into tabela values(valores)"
cnn.Close()

mais mais quando eu aperto em start pra testa o programa aparece o seguinte erro:

Compile Error:

 

Invalid outside procedure

 

 

 

eae alguem sabe pq ta dando isso ? flws..

[Altevir 0]

Bom Dia !!

Sou novo em programaçao visual basic, mas tenta fazer isso, eu costumo efetuar a conexao dessa forma.

 

Dim Conn As New ADODB.Connection

 

With Conn

.Provider = "SQLOLEDB.1;Persist Security Info=True"

.ConnectionString = "Data Source=Nome_Servidor;User ID=Usuario;Password=Senha;Initial Catalog=Banco"

.Open

End With

 

 

so uma pergunta, nao esta faltando a declaraçao da Tabela como um Recordset (Nome da sua Tabela de Dados) ?

 

Ex: Dim SuaTabela As New ADODB.Recordset

 

e após isso, ai sim efetuar o Select ou Insert....

 

SuaTabela.Open "Select * From Dados", Conn, adOpenStatic, adLockOptimistic

 

Espero que tenha ajudado.

[Claudio Neto 3]

Private cnn As ADODB.Connection

Private cmd As ADODB.Command

 

Set cnn = New ADODB.Connection

Set cmd = New ADODB.Command

 

cnn.Open("Provider=SQLOLEDB;Initial Catalog=SEU_BANCO;Data Source=SEU_SERVIDOR; integrated security=SSPI; persist security info=True;UserId=SEU_USUARIO;Password=SUA_SENHA"

cmd.ActiveConnection = cnn

cmd.Execute "insert into tabela values(valores)"

cnn.Close()

Douglas, aparantemente sua conexão está correta. Me tire umas dúvidas:

 

Você declarou como private. Onde você fez essa declaração? Não está dentro de nenhum sub ou function não né?

 

E o restante, está dentro de alguma sub? Qual?

 

E posta a linha que o erro está apontando.

 

Dim Conn As New ADODB.Connection

 

With Conn

.Provider = "SQLOLEDB.1;Persist Security Info=True"

.ConnectionString = "Data Source=Nome_Servidor;User ID=Usuario;Password=Senha;Initial Catalog=Banco"

.Open

End With

Altevir, vou aproveitar para corrigir algumas coisas também.

 

Primeiro, ao invés de declarar sua variável de conexão como dim, é aconselhável declará-la como private ou ainda como public se tiver mais de um formulário. Muitas vezes você pode ter interesse em utilizar sua conxão em sub diferentes, e declarando-a como dim você precisará declarar em todas as subs que for utilizar.

 

E se começar a declará-la como private ou public, não faça isso:

private cn as new adodb.connection.

Não coloque o new na declaração da variável. Faça somente assim:

private cn as adodb.connection.

E quando for abrir sua conexão faça antes de abrir:

set cn = new adodb.connection

E no caso dele, não é necessário utilizar um recordset, pois ele não está efetuando uma consulta na tabela esperando um retorno. Ele simplesmente irá fazer um insert. Então é possível fazer dessa maneira. No seu caso, como não usou o adodb.command (que realmente é dispensável) bastaria fazer cn.execute (insert into teste values ('teste'))

 

Se tiverem dúvidas, só dizer.

[Altevir 0]

Opaaa

Tranquilo Claudio, agradeço a correçao no codigo, vou aproveitar pra declarar dessa forma daqui em diante.

 

Vlwww

 

Abraçooo

 

0/

[Claudio Neto 3]

Opaaa

Tranquilo Claudio, agradeço a correçao no codigo, vou aproveitar pra declarar dessa forma daqui em diante.

 

Vlwww

 

Abraçooo

 

0/

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif