Como atualizar Banco de dados SQL

[Gilberto Jr 26]

pessoal, estou usando esse mesmo tipo de conexao e esta dando o seguinte erro.

Microsoft OLE DB Service Components error '80040e73'

 

Format of the initialization string does not conform to the OLE DB specification.

 

/intranet/conexao.asp, line 3

 

o que pode ser?

[xanburzum 169]

poste sua string de conexão

[Mário Monteiro 179]

Olá Gilberto Jr,

 

Seu post foi dividido em um novo tópico.

 

A referência onde seu post se encontrava é o seguinte tópico.

 

Abraços

 

Mário Monteiro

[Gilberto Jr 26]

poste sua string de conexão

 

bom dia Xan, segue abaixo a string de conexao

<%
Dim con, stringConexao, host, usuario, senha, banco

host   ="meu_ip"
usuario="sa" 
senha  =""
banco  ="Meubanco"

stringConexao = "Provider=SQLOLEDB.1;SERVER="&host&";DATABASE="&banco&";UID="&usuario&";PWD="&senha&";"

sub connect
SET con = Server.CreateObject("ADODB.Connection")

On Error Resume Next

con.Open stringConexao

If Err.Number <> 0 Then
    response.write "<b><font color='red'> Conexão com o banco '" & banco & "' Microsoft SQL Server falhou !</font></b>"
    response.write "<BR><BR>"
    response.write "<b>Erro.Description:</b> " & Err.Description & "<br>"
    response.write "<b>Erro.Number:</b> " & Err.Number & "<br>"
    response.write "<b>Erro.Source:</b> " & Err.Source & "<br>"
Else
  response.write "<b><font color='blue'> Conexão com o banco '" & banco & "' Microsoft SQL Server estabelecida com sucesso !</font>"
End If

end sub
sub disconnect
con.close


SET conexao = Nothing
end sub
%>

[xanburzum 169]

retira o onError Resume Next e tenta assim:

 

<%
Dim con, stringConexao, host, usuario, senha, banco

host   ="meu_ip"
usuario="sa" 
senha  =""
banco  ="Meubanco"

stringConexao = "Provider=SQLOLEDB.1;SERVER="&host&";DATABASE="&banco&";UID="&usuario&";PWD="&senha&";"

sub connect
SET con = Server.CreateObject("ADODB.Connection")

con.Open stringConexao
end sub

sub disconnect
con.close
SET conexao = Nothing
end sub
%>

[Gilberto Jr 26]

fiz da forma que voce disse:

meu arquivo de conexao esta assim:

<%
Dim con, stringConexao, host, usuario, senha, banco

host   ="tecnogalli.no-ip.info"
usuario="sa" 
senha  =""
banco  ="Tecnogalli"

stringConexao = "Provider=SQLOLEDB.1;SERVER="&host&";DATABASE="&banco&";UID="&usuario&";PWD="&senha&";"

sub connect
SET con = Server.CreateObject("ADODB.Connection")

con.Open stringConexao
end sub

sub disconnect
con.close
SET conexao = Nothing
end sub
%>

e o outro arquivo esta assim:

<!--#include file="config.asp" -->
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=SQLOLEDB.1; Network Library=dbmssocn; Data Source="tecnogalli.no-ip.info";User ID=sa; Password= ""; Initial Catalog=Tecnogalli;"
                                
alterar = "UPDATE compras_finalizadas SET tid = '" & tid & "' WHERE codigo = " & session("CODIGO") & ""
objConn.Execute(alterar)

objConn.Close
Set objConn = Nothing
%>

continua apresentando o mesmo erro.

caso queira ver o link Clique aqui

[xanburzum 169]

qual foi o resultado ????

[Gilberto Jr 26]

Microsoft OLE DB Provider for SQL Server error '80004005'

 

[DBNETLIB][ConnectionOpen (Connect()).]SQL Server does not exist or access denied.

 

/intranet/conexao.asp, line 4

 

 

linha 4 da pagina conexao:

objConn.Open "Provider=SQLOLEDB.1; Network Library=dbmssocn; Data Source=tecnogalli.no-ip.info,1433;User ID=sa; Password=; Initial Catalog=Tecnogalli;"

[xanburzum 169]

esse é um erro de permissão, certifique-se de ter colocado permissão no banco e na pasta do arquivo de bd

[Gilberto Jr 26]

coloquei permissao as permissoes e mesmo assim o erro persisti.

 

se eu fizer o acesso localmente usando a mesma string de conexao colocando o nome do servidor no lugar do no-up.info funciona.

[xanburzum 169]

verifique se no server esta com permissão,