对于sql server 有对象
SqlConnection
SqlCommand
SqlDataReader
SqlDataAdpater '基与sqlcommand之上的当用到dataset时就必用它
DataSet
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<% @ import NameSpace="System.Data" %> '引用system.Data命名空间
<% @ import NameSpace="System.DATA.Sqlclient" %> '引用System.Data.slqclient ,如是access引用System.Data.oleDB
<script runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
dim str as string="server=192.168.0.5;database=aCHEM56;uid=tiantian;pwd=tiantian;Connect Timeout=30;" '注意连接字段不支持provider
dim sql as string="select top 10 id from companyinfo order by id" 'sql查询
try '诊断错误处理方式
dim myconnection as sqlConnection '定义sqlconnection变量
dim mycommand as new sqlcommand '定义sqlcommand变量
dim mydatareader as sqldatareader 定义sqldatareader变量
'连接方法一
myconnection= new sqlConnection(str) '事例化myconnection
'连接方法二
' myconnection.connectionstring=str '连接字段
'response.Write("connectiontimeout=" & myconnection.connectiontimeout &"<br>")
myconnection.open '打开连接
'myconnection的属性
response.Write("ServerSql版本:" & myConnection.ServerVersion.tostring() &"<BR>")
response.Write("ServerSql打开状态:" & myConnection.State.tostring() &"<BR>")
response.Write("ServerSql数据库:" & myConnection.Database &"<BR>")
response.Write("ServerSql数据库名称:" & myConnection.DataSource &"<BR>")
response.Write("ServerSql数据包大小:" & myConnection.Packetsize &"<BR>")
response.Write("ServerSql数据库客户端标识:" & myConnection.workstationid &"<BR>") '标识数据库客户端的一个字符串。如果没有指定，则为客户端计算机的名称。如果两个都没有指定，则为空字符串。
response.Write("ServerSql返回返回表示当前 Object 的 String。:" & myConnection.tostring() &"<BR>")
'myconnection的方法
'myconnection.Begintransaction '已重载。开始数据库事务。
' myConnection.ChangeDatabase("CHEM56") '要代替当前数据库进行使用的数据库的名称,这个方法很好
'myConnection.open '使用 ConnectionString 所指定的属性设置打开数据库连接。
'myConnection 的事件
'Disposed（从 Component 继承） 添加事件处理程序以侦听组件上的 Disposed 事件。
'InfoMessage 当 SQL Server 返回一个警告或信息性消息时发生。
'StateChange 当连接状态更改时发生
'myCommand的属性
'mycommand=new sqlcommand(sql,myconnection) '构照函数
myCommand.Connection =myconnection '与数据源的连接
myCommand.CommandTimeout = 15 '获取或设置在终止执行命令的尝试并生成错误之前的等待时间。
myCommand.CommandText=sql '命令文本
myCommand.CommandType=CommandType.Text ' 获取或设置一个值，该值指示如何解释 CommandText 属性.或myCommand.CommandType=CommandType.StoredProcedure
'myCommand的方法
'response.Write("返回受影响的行数:" & myCommand.ExecuteNonQuery()) '对连接执行 Transact-SQL 语句并返回受影响的行数
mydatareader=myCommand.executereader() '已重载。将 CommandText 发送到 Connection 并生成一个 SqlDataReader。
if not mydatareader.IsClosed then
' response.Write(mydatareader.fieldcount) '字段长度
' response.Write(mydatareader.getname(0)) '得到列名
do while mydatareader.read '使 SqlDataReader 前进到下一条记录。
response.Write(mydatareader.item(0)) '或 response.Write(mydatareader.getvalue(0))
response.Write("<br>") '得到内容
loop
' response.Write(mydatareader.tostring()) '返回对象的string
end if
'myCommand.ExecuteScalar 执行查询，并返回查询所返回的结果集中第一行的第一列。忽略额外的列或行。
'myCommand.ExecuteXmlReader将 CommandText 发送到 Connection 并生成一个 XmlReader 对象。
' myCommand.CreateParameter 创建 SqlParameter 对象的新实例。
myCommand.Cancel '试图取消 SqlCommand 的执行
myCommand.Dispose '释放myCommand的资源
myConnection.close '关闭连接
myConnection.dispose '释放连接资源.释放由 Component 占用的资源。
'response.Write("mycommand.state=")
'response.Write (myconnection.state )
'response.Write ("<br>")
'myconnection.close
' response.Write (myconnection.state)
catch ee As Exception
response.Write (ee.message)
finally
end try
End Sub
</script>
