Asp.net下基础应用SQL2000
[ 2006/07/28 11:21 | by gOxiA ]
对编程开发不敢冒所以也不精通，菜鸟一个但是不看看又不行，今天在网上找了个适合入门者的小资料，感觉很有用，转载至此留作后用。
以下是有关ASP.net连接SQL Server2000数据库的例程：
Asp.net连接SQL Server2000数据库例程详解:
<%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.SqlClient" %>
<script laguage="VB" runat="server">
sub page_load(sender as Object,e as EventArgs)
Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim ds as DataSet
'1.connect to sql server
myConnection = New SqlConnection( "server=localhost;database=DEMOs;uid=username;pwd=Passw0rd" )
myConnection.Open()
la1.text="Connection Opened!"
'2.Create a table
myCommand = New SqlCommand( "CREATE TABLE [test] ([id] [int] IDENTITY (1, 1) NOT NULL ,[name]
[char] (10) COLLATE Chinese_PRC_CI_AS NULL ,[sex] [char] (10) COLLATE Chinese_PRC_CI_AS NULL
)", myConnection )
myCommand.ExecuteNonQuery()
la2.text="New table created!"
'2 添加纪录
myCommand = New SqlCommand( "Insert into [test] (name,sex) values( 'gOxiA','男' )",
myConnection )
myCommand.ExecuteNonQuery()
la3.text="New Record Inserted!"
'3 更新数据
myCommand = New SqlCommand( "UPDATE [test] SET name='gOxiA' where name='SuFan'", myConnection )
myCommand.ExecuteNonQuery()
la4.text="Record Updated!"
'4 删除数据
myCommand = New SqlCommand( "delete from [test] where name='gOxiA'", myConnection )
myCommand.ExecuteNonQuery()
la5.text="Record Deleted!"
'5 用DataGrid显示数据
myCommand = New SqlCommand( "select * from [test]", myConnection )
MyDataGrid.DataSource=myCommand.ExecuteReader()
MyDataGrid.DataBind()
end sub
</script>
<html>
<body>
<asp:label id="la1" runat="server" /><br>
<asp:label id="la2" runat="server" /><br>
<asp:label id="la3" runat="server" /><br>
<asp:label id="la4" runat="server" /><br>
<asp:label id="la5" runat="server" /><br>
<ASP:DataGrid id="MyDataGrid" runat="server"
BorderColor="black"
BorderWidth="1"
GridLines="Both"
CellPadding="3"
CellSpacing="0"
Font-Name="Verdana"
Font-Size="10pt"
HeaderStyle-BackColor="#aaaadd"
AlternatingItemStyle-BackColor="#eeeeee"
>
</asp:DataGrid>
</body>
</html>
Asp.net连接SQL Server2000数据库例程详解:
<%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.SqlClient" %>
<script laguage="VB" runat="server">
sub page_load(sender as Object,e as EventArgs)
Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim ds as DataSet
'1.connect to sql server
myConnection = New SqlConnection( "server=localhost;database=DEMOs;uid=username;pwd=Passw0rd" )
myConnection.Open()
la1.text="Connection Opened!"
'2.Create a table
myCommand = New SqlCommand( "CREATE TABLE [test] ([id] [int] IDENTITY (1, 1) NOT NULL ,[name]
[char] (10) COLLATE Chinese_PRC_CI_AS NULL ,[sex] [char] (10) COLLATE Chinese_PRC_CI_AS NULL
)", myConnection )
myCommand.ExecuteNonQuery()
la2.text="New table created!"
'2 添加纪录
myCommand = New SqlCommand( "Insert into [test] (name,sex) values( 'gOxiA','男' )",
myConnection )
myCommand.ExecuteNonQuery()
la3.text="New Record Inserted!"
'3 更新数据
myCommand = New SqlCommand( "UPDATE [test] SET name='gOxiA' where name='SuFan'", myConnection )
myCommand.ExecuteNonQuery()
la4.text="Record Updated!"
'4 删除数据
myCommand = New SqlCommand( "delete from [test] where name='gOxiA'", myConnection )
myCommand.ExecuteNonQuery()
la5.text="Record Deleted!"
'5 用DataGrid显示数据
myCommand = New SqlCommand( "select * from [test]", myConnection )
MyDataGrid.DataSource=myCommand.ExecuteReader()
MyDataGrid.DataBind()
end sub
</script>
<html>
<body>
<asp:label id="la1" runat="server" /><br>
<asp:label id="la2" runat="server" /><br>
<asp:label id="la3" runat="server" /><br>
<asp:label id="la4" runat="server" /><br>
<asp:label id="la5" runat="server" /><br>
<ASP:DataGrid id="MyDataGrid" runat="server"
BorderColor="black"
BorderWidth="1"
GridLines="Both"
CellPadding="3"
CellSpacing="0"
Font-Name="Verdana"
Font-Size="10pt"
HeaderStyle-BackColor="#aaaadd"
AlternatingItemStyle-BackColor="#eeeeee"
>
</asp:DataGrid>
</body>
</html>
解决SQL2000安装时提示序列号无法验证的问题
[ 2006/07/28 11:02 | by gOxiA ]
已经不是一次两次遇到的这个问题了！很奇怪机房那边安装系统后我远程安装SQL2000就会出现序列号无法验证的问题，今天看到微软发布了解决此问题的KB，于是简单翻译一下转载到这里。
解决办法：
打开注册表编辑器并定为到：HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager
找到名为“SafeDLLSearchMode”的DWORD值，切换修改他的值 0 或 1，如果没有则创建这个DWORD值。
原文出处：KB555496
通过脚本察看当前TCP的连接数目
[ 2006/07/27 16:57 | by gOxiA ]
在网上找了个脚本可以查询到当前TCP的连接数目，非常有用哦！
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
Wscript.Echo "TCP连接数: " & objNetworkSettings.SetTCPNumConnections
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
Wscript.Echo "TCP连接数: " & objNetworkSettings.SetTCPNumConnections
