Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / ADODB.Connection / 4 сообщений из 4, страница 1 из 1
16.05.2001, 12:22
    #32005720
SmallUSer
SmallUSer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADODB.Connection
Извеняюсь, если вопрос непотеме...
Имею в ASP такое дело:
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open dConnection
rs.ActiveConnection = cn
rs.Open "select * from My_Table", , , , adCmdText

дальше хотел бы организовать вывод всех записей....
Вопрос:
Как мне можно узнать количество СТОЛБЦОВ в таблице и как получить к ним доступ не по имени а по порядковому номеру... что бы небыть привязаным к количеству столбцов и их именам?
Заранее спасибо за совет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2001, 12:26
    #32005721
alexeyvg
alexeyvg
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADODB.Connection
Рекомендую использовать метод:
MyVarVariable = rs.GetRows
Возвращает весь рекордсет в виде массива. Работает в 3-5 раз быстрее обычного цикла по записям/полям.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2001, 12:51
    #32005722
zamm
zamm
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADODB.Connection
Что-то типа следующего:

str=""
For i=1 to rs.Fields.Count
str = str & rs.Fields(i).Name & " "
Next
Responce.Write str & "<br>"

Do While NOT rs.EOF
str=""
For i=1 to rs.Fields.Count
str = str & rs(i) & " "
Next
Responce.Write str & "<br>"
rs.MoveNext
Loop
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2001, 14:20
    #32005729
SergSuper
SergSuper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADODB.Connection
Это скрипт для выводы таблицы, может пригодиться.

<%@SCRIPT LANGUAGE="VBSCRIPT"%>


<%
name=Request.QueryString("name")
Response.Expires=0
%>
<html>
<head>
<title>
<%=name%>
</title>

<!--#include file="conn.inc"-->
<%
set rs=con.Execute("select top 200 * from "+name)
%>

<BODY TEXT="#000000" BGCOLOR="#F0F0F0" BACKGROUND="gray.jpg">
<H2 ><FONT COLOR="#0000FF">
<%=name%>
</FONT></H2>
<table border=1 cellpadding=2 cellspacing=0 BGCOLOR="#D0D0D0">
<tr> <%
for i=1 to rs.Fields.Count %>
<th> <%=rs.Fields(i-1).Name%> </th>
<%next%>
</tr>
<%
while not RS.eof %>
<tr> <%
for k=1 to rs.Fields.Count
itm=Trim(rs(rs.Fields(k-1).Name))
if itm<>"" then sss=itm else sss="&nbsp"
%>
<td> <%=sss%> </td>
<%next%>
</tr>
<%
RS.MoveNext
wEnd
con.close
%>
</table>
</BODY>
</HTML>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / ADODB.Connection / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]