数据库链接

lvjie630 2007-05-28 11:51:57
完成了ODBC DSN的设置，同时也完成了与SQL Server的联机测试。但是，这仅限于与SQL Server的联机测试、登录帐号检查而已。实际上，对于SQL Server内的数据库是否拥有操作权限，是否允许记录的读取写入等，到目前为止尚未得知,哪位高人可以给我一段代码可以看到数据库中某个表的字段名称
...全文
152 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
lvjie630 2007-05-28
  • 打赏
  • 举报
 回复
完整的asp代码好么 而且有错误
beyondjsq 2007-05-28
  • 打赏
  • 举报
 回复
'得到表名在数据库里的编号
Rs.Open "select top 1 id from sysobjects where xtype='u' and name='school_pupilinfo'", Conn, 1, 1

'通过编号得到表的字段
If Not Rs.EOF Then
Set Reco=server.CreateObject("adodb.recordset")
Set Reco = Conn.Execute("select name from syscolumns where id=" & Rs("id") & " ORDER BY colid")

end if

yxxue 2007-05-28
  • 打赏
  • 举报
 回复
'database表示在数据库服务器上的一个database的名称
一般ＳＱＬ装好后会有一个master的database，测试时可以用它
yxxue 2007-05-28
  • 打赏
  • 举报
 回复
<html>
<head><title>演示DSN连接数据库</title></head>
<body>
<%
'server对象的createobject方法建立conection对象
set conn=server.createobject("adodb.connection")
'DSN表示服务器端设置的DNS名称
'uid表示用户帐号
'pwd表示用户密码
'database表示在数据库服务器上的一个database的名称
conn.connectionstring="DSN=sqlDB;UID=sa;PWD=000;Database=sqlDB"
'判断数据库状态
if conn.state=1 then
response.write("数据库成功打开<BR><BR>")
end if
%>
<script language="javascript">
alert("单击确定，关闭数据库");
</script>
<%
if conn.state=0 then
response.write("数据库已经关闭")
end if
'释放connection对象，关闭数据库
set conn=nothing
%>
</body>
</html>
beyondjsq 2007-05-28
  • 打赏
  • 举报
 回复
你要的其实只是这一段：
'用二维数组把SQLSERVER里的字段装起来
dim myarray()

ReDim myarray(2,0)

Set Rs1=server.CreateObject("adodb.recordset")
Rs1.Open "select top 1 id from sysobjects where xtype='u' and name='school_pupilinfo'", Conn, 1, 1
If Not Rs1.EOF Then

Set Rs_sql=server.CreateObject("adodb.recordset")
Set Rs_sql = Conn.Execute("select name from syscolumns where id=" & Rs("id") & " ORDER BY colid")

Do While Not Rs_sql.EOF
if lcase(Rs_sql("Name"))<>"classid" and lcase(rs_sql("name"))<>"id" and lcase(rs_sql("name"))<>"stu_image" and lcase(Rs_sql("Name"))<>"status" then

ReDim Preserve myarray(2,ubound(myarray,2)+1)

myarray(1,ubound(myarray,2)) = GetDatabaseFieldDescribing(Conn,"school_pupilinfo",Rs_sql("Name"))
myarray(2,ubound(myarray,2)) = "F_" & Rs_sql("Name")

end if
Rs_sql.MoveNext

loop
end if
beyondjsq 2007-05-28
  • 打赏
  • 举报
 回复
<!--#include file="../share.asp"-->
<%
dim bm,lj,xsbj,xslj
bm=request("bm")
lj=request("lj")
xsbj=request("bja")
xslj=request("lja")

%>

<HTML>
<HEAD>
<link REL="stylesheet" TYPE="text/css" HREF="<%=Session("ThemePath")%>/CSS/Share.CSS">
<link REL="stylesheet" TYPE="text/css" HREF="<%=Session("ThemePath")%>/CSS/repeater.CSS">
<script language="JScript.Encode" src="<%=Session("ThemePath")%>/Script/function.JS"></script>
<script language="javascript">

function check()
{
showSending('正在对所有数据进行核查导入，请稍候...');

document.form1.onsubmit = '';
document.form1.submit();
}
</script>
</HEAD>
<body leftMargin="0" topMargin="0" MARGINHEIGHT="0" MARGINWIDTH="0">
<%=strGetHeadbox(tmpTitle & "在校学生基本信息导入")%>
<%



'得到SQLSERVER的字段名

Set Rs=server.CreateObject("adodb.recordset")
Rs.Open "select top 1 id from sysobjects where xtype='u' and name='school_pupilinfo'", Conn, 1, 1
If Not Rs.EOF Then
Set Reco=server.CreateObject("adodb.recordset")
Set Reco = Conn.Execute("select name from syscolumns where id=" & Rs("id") & " ORDER BY colid")
Do While Not Reco.EOF
if lcase(reco("Name"))<>"classid" and lcase(reco("name"))<>"id" and lcase(reco("name"))<>"stu_image" and lcase(reco("Name"))<>"status" then
end if
Reco.MoveNext
Loop
Reco.Close
End If


'用二维数组把SQLSERVER里的字段装起来
dim myarray()

ReDim myarray(2,0)

Set Rs1=server.CreateObject("adodb.recordset")
Rs1.Open "select top 1 id from sysobjects where xtype='u' and name='school_pupilinfo'", Conn, 1, 1
If Not Rs1.EOF Then

Set Rs_sql=server.CreateObject("adodb.recordset")
Set Rs_sql = Conn.Execute("select name from syscolumns where id=" & Rs("id") & " ORDER BY colid")

Do While Not Rs_sql.EOF
if lcase(Rs_sql("Name"))<>"classid" and lcase(rs_sql("name"))<>"id" and lcase(rs_sql("name"))<>"stu_image" and lcase(Rs_sql("Name"))<>"status" then

ReDim Preserve myarray(2,ubound(myarray,2)+1)

myarray(1,ubound(myarray,2)) = GetDatabaseFieldDescribing(Conn,"school_pupilinfo",Rs_sql("Name"))
myarray(2,ubound(myarray,2)) = "F_" & Rs_sql("Name")

end if
Rs_sql.MoveNext

loop
end if


'得到用户表的字段名
dim kzm
kzm = lcase(mid(lj,InstrRev(lj,".")+1))
set excelconn = server.createobject("adodb.connection")
if ucase(kzm)="XLS" then
strConn="Driver={Microsoft Excel Driver (*.xls)};DriverId=790;DBQ=" & server.MapPath(lj) & ";DefaultDir=;"
else
StrConn="Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq="&server.MapPath(lj)&";"
end if
on error resume next
err.Clear
excelconn.open strConn,1,1
set objrs = server.createobject("adodb.recordset")
sql = "select * from [" & bm & "]"
'Response.Write sql
objrs.open sql,excelconn,1,1

if err.number<>0 then

Response.Write "<script>alert(""对不起,无法打开该表!"");location.href=""default.asp"";</script>"

Response.End
end if
on error goto 0

%>

<br>
<center>选择对应字段，左边为系统数据库字段，右边为来源数据字段。如果没有对应的字段请不要选择。<br><br>导入条件：学籍号+中考报名号</center>
<div class="DataGrid">

<form name="form1" method="post" action="select_third.asp?bm=<%=bm%>&lj=<%=lj%>&xsbj=<%=xsbj%>&xslj=<%=xslj%>">


<table class="Border" width="95%" border="0" align="center" cellspacing="1">
<%
Dim z
z=1
Response.Write "<tr>"
for x=1 to ubound(myarray,2)

if z mod 3 <> 0 then

%>
<td class="List" height="90px"><div align="left">
<%=myarray(1,x)%>->
<select name="<%=myarray(2,x)%>">
<option value="" selected>-------</option>
<%for i=0 to objrs.Fields.Count - 1%>
<option value="<%=objrs(i).name%>"> <%=objrs(i).name%> </option>
<%next%>
</select>
</div></td>
<%else%>
<td class="List" height="90px"><div align="left">
<%=myarray(1,x)%>->
<select name="<%=myarray(2,x)%>">
<option value="" selected>-------</option>
<%for i=0 to objrs.Fields.Count - 1%>
<option value="<%=objrs(i).name%>"> <%=objrs(i).name%> </option>
<%next%>
</select>
</div></td>
</tr><tr>
<%end if
'Reco.movenext
z = z + 1
next
%>
<td class="List" height="90px"></td>
<td class="List" height="90px"></td>
</tr>

</table>
<br>
<div align="center">
<button onclick="showSending('正在对所有数据进行检查核对，请稍候...');setTimeout('check()',0);">导  入</button>
</div>
</form>
</div>

</BODY>
</HTML>
android连接数据库实例
android连接数据库的实例，包括webservice端的代码和数据库的格式和代码，希望对需要的人有帮助
建立oracle数据库链接,Oracle数据库创建数据库连接（DBLink）详细讲解
2.1数据库创建数据库连接(DBLink)dblink(Database Link)数据库链接顾名思义就是数据库的链接，就像电话线一样，是一个通道，当我们要跨本地数据库，访问另外一个数据库表中的数据时，本地数据库中就必须要创建远程...
SQL Server 2016数据库管理（四）
讲解SQL Server 2016的分布式查询、数据库链接、表分区、导入导出数据、数据库灾难恢复、自动化作业（JOB）、数据库安全（角色、权限）
EXP-00106: 数据库链接口令无效
导出或导入的时候发生了EXP-00106: 数据库链接口令无效错误。 导出客户端环境： 装了两个oracle客户端，一个是32bit，一个是64bit。 错误原因： 判断为客户端导致的。 电脑环境变量path指向的是32bit客户端的...
数据库链接DB_LINK
通过数据库链接，可以访问另外一个数据库中的表。 select * from table_name@db_link; 数据库链接通常分为公有的和私有的： 1.private数据库链接 私有数据库链接只能由创建的用户使用，创建用户需要被授予CREATE ...
ASP

28,390

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章