Duda entre connection y recordset

acrego · #1 (**permalink**) 05/05/2005, 00:40

Una pequeña duda, cuando de usa en asp el objeto connection y cuando se usa el objeto recordset.
Yo la pagina que tengo lo uso para listar consultas, añadir usuarios y actualizar datos y lo que creo es usar el recordset.

Que diferencias hay entre ambos.
Un saludo a todos.

acrego · #2 (**permalink**) 05/05/2005, 00:44

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">

</style>
</head>

<body>
<br>
<%
Set RstCofra = Server.CreateObject("ADODB.Recordset")
RstCofra.source="SELECT Confraria.Nome FROM Confraria WHERE (((Confraria.Id)='"& request.Form("cboConf") &"'))"
RstCofra.Cursortype=adOpenStatic
RstCofra.ActiveConnection="DSN=master;'';'';"
RstCofra.Open%>
<table width="737" border="0" cellpadding="0" cellspacing="0" >

<tr>
<td width="277" height="24" align="left" valign="middle" class="CabezaTabla">LISTADO DE EMBARCACIÓNS DA CONFRARIA DE:</td>
<td width="396" align="center" valign="middle" class="TextoResul"><div align="left"><%=RstCofra("Nome")%></div></td>
<td width="64"> </td>
</table>
<% RstCofra.Close%>
<br>
<%
Set RstEmbar = Server.CreateObject("ADODB.Recordset")
RstEmbar.source="SELECT PersoasConfrarias.IdConfraria, Embarcacions.[NOME DA EMBARCACION], Embarcacions.MATRICULA, Embarcacions.FOLIO, Personas.Apelidos, Personas.Nome FROM (Personas INNER JOIN (Embarcacions INNER JOIN EmbarcacionTitular ON (Embarcacions.FOLIO = EmbarcacionTitular.FOLIO) AND (Embarcacions.MATRICULA = EmbarcacionTitular.MATRICULA)) ON Personas.DNI = EmbarcacionTitular.DNI) INNER JOIN PersoasConfrarias ON Personas.DNI = PersoasConfrarias.DNI WHERE (((PersoasConfrarias.IdConfraria)='"& request.Form("cboConf") &"'))ORDER BY Embarcacions.[NOME DA EMBARCACION]"
RstEmbar.Cursortype=adOpenStatic
RstEmbar.ActiveConnection="DSN=master;'';'';"
RstEmbar.Open%>
<table width="737" border="0" cellpadding="0" cellspacing="0" >

<tr>
<td width="276" height="24" align="left" valign="middle" class="CabezaTabla">NUMERO DE EMBARCACIÓNS:</td>
<td width="205" align="left" valign="middle" class="TextoResul"><% = RstEmbar.RecordCount %>
<td width="250"> </td>
</table>

<br>
<table width="737" border="0" cellpadding="0" cellspacing="0" >

<tr class="CabezaTabla">
<td width="192" height="20" align="center" valign="middle">Nome</td>
<td width="80" align="center" valign="middle">Matricula</td>
<td width="93" align="center" valign="middle">Folio</td>
<td width="236" align="center" valign="middle">Apelidos</td>
<td width="136" align="center" valign="middle">Nome</td>
</tr>
<% while not RstEmbar.EOF%>
<tr class="DetalleTabla">
<td height="18" align="left" valign="middle"> <%=RstEmbar("NOME DA EMBARCACION")%></td>
<td align="left" valign="middle"> <%=RstEmbar("MATRICULA")%></td>
<td align="left" valign="middle"> <%=RstEmbar("FOLIO")%></td>
<td align="left" valign="middle"> <%=RstEmbar("Apelidos")%></td>
<td align="left" valign="middle"> <%=RstEmbar("Nome")%></td>
</tr>
<tr>
<td height="0"></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<% RstEmbar.MoveNext
wend
RstEmbar.Close%>
</table>
</body>
</html>

Esto es la forma en que me conecto a la base de datos, estaria bien asi o me recomendais otra forma.

Otra cosilla en esta pagina con vbscript puedo usar los javascript??
un saludo a todos.

Rodri_Ascariz · #3 (**permalink**) 05/05/2005, 01:12

Set Conexion = Server.CreateObject("ADODB.Connection")
Ruta = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("../cs/bbdd.mdb")
sql = "select * from nombre_tabla"
rs.Open sql, Conn
if not rs.eof then ' si mo hay registros en el Rs
pintamos datos
rs("nombre de la campo")

end

marcocho2005 · #4 (**permalink**) 05/05/2005, 08:11

Cita:

Iniciado por Rodri_Ascariz

Set Conexion = Server.CreateObject("ADODB.Connection")
Ruta = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("../cs/bbdd.mdb")
sql = "select * from nombre_tabla"
rs.Open sql, Conn
if not rs.eof then ' si mo hay registros en el Rs
pintamos datos
rs("nombre de la campo")

end

odio decirlo pero es un ejemplo muy mesquino
Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open ("Ruta de conexion o DSN")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * " & _
"From tabla"
rs.Open SQL, Conexion, 3
'listas tus datos
If Not rs.EOF Then
Do Until rs.EOF
Response.Write(rs("campo"))
rs.MoveNext
Loop
End If
'Para añadir datos
SQL = "Insert into tabla " & _
"(campo1, campo2,....) " & _
"Values (valor1, valor2,.....)"
Conexion.Execute SQL
'Para modificar datos
SQL = "Update tabla " & _
"Set campo1 = valor1, " & _
"campo2 = valor2,.... " & _
"Where (condicion de llave principal)"
Conexion.Execute SQL

Creo que asi podrás trabajar mejor, además de esta forma podrás diferencia el trabajo entre el listado de registros con Recordsets y la ejecución de querys de adición y edición de registros