Tranformar uma conexão em VBScript em JavaScript

[Paulo Miranda 0]

Olá !

 

Alguém sabe onde acho um exemplo de conexão ADO em Javascript ?

 

Ou então como transcrever a conexão abaixo para javascript ?

 

<%@ Language=VBScript %>
<%Option explicit
Dim oRs, oConn, connect, strSQL, TipoEscolhido, ArrayTipo
set oConn=server.CreateObject ("adodb.connection")
connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
	  Server.MapPath("setimo.mdb") & ";Persist Security Info=False"
oConn.Open connect
Set oRs=Server.CreateObject("adodb.recordset")
strSQL = "SELECT DISTINCT Nom_Lograd From TB_Logradouros ORDER BY Nom_Lograd"
oRs.Open strSQL, oConn		
ArrayTipo=oRs
%>

Paulo Miranda

[hargon 64]

Não tem muita diferença:

var oRs, oConn, connect, strSQL, TipoEscolhido, ArrayTipo;

oConn = Server.CreateObject("ADODB.Connection");
connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  Server.MapPath("setimo.mdb") & ";Persist Security Info=False";
oConn.Open(connect);	

oRs= Server.CreateObject("ADODB.recordset");
strSQL = "SELECT DISTINCT Nom_Lograd From TB_Logradouros ORDER BY Nom_Lograd"
oRs.Open(strSQL, oConn);

ArrayTipo=oRs;

[Paulo Miranda 0]

Valeu !

Funcionou perfeitamente.

 

Valeu, novamente.

 

Paulo Miranda

[Paulo Miranda 0]

Desculpe, mas ainda tem algum problema na conexão.

 

Quando tento chamar a função abaixo, dá a seguinte mensagem ao carregar a página: "Server is undefined"

 

function PopulaCombo(id_tipo)
{
	if (id_tipo != 0)
		{
		var oRs, oConn, connect, strSQL, TipoEscolhido, ArrayTipo;

		oConn = Server.CreateObject("ADODB.Connection");
		connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=";
		Server.MapPath("setimo.mdb") & ";Persist Security Info=False";
		oConn.Open(connect);	

		oRs= Server.CreateObject("ADODB.recordset");
		strSQL = "SELECT DISTINCT Nom_Lograd From TB_Logradouros ORDER BY Nom_Lograd"
		oRs.Open(strSQL, oConn);

		ArrayTipo=oRs;
		alert(ArrayTipo);
		TipoEscolhido = id_tipo
		}
		else
			{
				Remove();
				return
			}

		document.formLogra.LograNome.disabled = false;
		document.formLogra.LograNome.options.length = 0;

		for (i=0; i <= oRs.length-1; i++)
			{
			  window.document.formLogra.LograNome.options[i] = new Option(oRs[i],i);
			}
}

[hargon 64]

Você informou que está utilizando JScript?

 

Posta a mensagem de erro completa e a linha em que ocorre o erro.