谁可以提供.NET下SQL数据库的例子?

Question

asp.netPublic Function InsertLargeTeam(ByVal ACode As String, ByVal AName As String) As String
            Const SqlStat As String = "Insert into largeteam(ltno, ltname) values(@no, @name)"
            Dim sError As String            Dim cntLt As New SqlNonnection("data source=192.168.0.250,1433;user id=sa;password=;database=violation")
            Dim cmdLt As New SqlCommand(SqlStat, cntLt)
            Me.AddParameter(cmdLt, "@no", ACode)
            Me.AddParameter(cmdLt, "@name", AName)
            cntLt.Open()
            Try
                cmdLt.ExecuteNonQuery()
                sError = ""
            Catch e As Exception
                sError = e.Message
            Finally
                cntLt.Close()
            End Try
            Return sError
        End Function

Answer 1

1.1创建数据库连接（sqlserver）
1: <%@ Import Namespace="System.Data" %>
2: <%@ Import NameSpace="System.Data.SqlClient" %>
3: <%
4: Dim myConnection As SqlConnection
5: myConnection = New SqlConnection( "server=localhost;database=Pubs;uid=sa" )
6:
7: myConnection.Open()
8: %>
9: Connection Opened!
1.2创建数据库连接（access）
1: <%@ Import Namespace="System.Data" %>
2: <%@ Import NameSpace="System.Data.OleDb" %>
3: <%
4: Dim myConnection As OleDbConnection
5: myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA
http://aspfree.com/chapters/sams/graphics/ccc.gifSource=c:\authors.mdb" )
6:
7: myConnection.Open()
8: %>
9: Connection Opened!
2.1添加纪录（sqlserver）1: <%@ Import Namespace="System.Data" %> 
2: <%@ Import NameSpace="System.Data.SqlClient" %> 
3: 
4: <% 
5: Dim myConnection As SqlConnection 
6: Dim myCommand As SqlCommand 
7: 
8: myConnection = New SqlConnection( "server=localhost;uid=sa;database=Pubs" ) 
9: myConnection.Open()
10: myCommand = New SqlCommand( "Insert testTable ( col1 ) http://aspfree.com/chapters/sams/graphics/ccc.gifValues ( 'Hello' )", myConnection )
11: myCommand.ExecuteNonQuery()
12: myConnection.Close()
13: %>
14: New Record Inserted!
15:
2.2添加纪录（access）
1: <%@ Import Namespace="System.Data" %> 
2: <%@ Import NameSpace="System.Data.OleDb" %> 
3: 
4: <% 
5: Dim myConnection As OleDbConnection 
6: Dim myCommand As OleDbCommand 
7: 
8: myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA http://aspfree.com/chapters/sams/graphics/ccc.gifSource=c:authors.mdb" ) 
9: myConnection.Open()
10: myCommand = New OleDbCommand( "Insert INTO Authors ( Author ) Values http://aspfree.com/chapters/sams/graphics/ccc.gif( 'Simpson' )", myConnection )
11: myCommand.ExecuteNonQuery()
12: myConnection.Close()
13: %>
14: New Record Inserted!
15:
3.1更新数据（sqlserver）
1: <%@ Import Namespace="System.Data" %> 
2: <%@ Import NameSpace="System.Data.SqlClient" %> 
3: 
4: <% 
5: Dim myConnection As SqlConnection 
6: Dim myCommand As SqlCommand 
7: 
8: myConnection = New SqlConnection( "server=localhost;uid=sa;database=Pubs" ) 
9: myConnection.Open()
10: myCommand = New SqlCommand( "UPDATE Authors SET LastName='Smith' http://aspfree.com/chapters/sams/graphics/ccc.gifWHERE LastName='Bennett'", myConnection )
11: myCommand.ExecuteNonQuery()
12: myConnection.Close()
13: %>
14: Record Updated!
15:
3.2更新数据（access）
1: <%@ Import Namespace="System.Data" %>
2: <%@ Import NameSpace="System.Data.OleDb" %> 
3: 
4: <% 
5: Dim myConnection As OleDbConnection 
6: Dim myCommand As OleDbCommand 
7: 
8: myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA http://aspfree.com/chapters/sams/graphics/ccc.gifSource=c:\authors.mdb" ) 
9: myConnection.Open()
10: myCommand = New OleDbCommand( "UPDATE Authors SET Author='Bennett' http://aspfree.com/chapters/sams/graphics/ccc.gifWHERE Author = 'Simpson'", myConnection )
11: myCommand.ExecuteNonQuery()
12: myConnection.Close
13: %>
14: Record Updated!15:
3.3更新数据中受影响的记录数
1: <%@ Import Namespace="System.Data" %> 
2: <%@ Import NameSpace="System.Data.SqlClient" %> 
3: 
4: <% 
5: Dim myConnection As SqlConnection 
6: Dim myCommand As SqlCommand 
7: Dim recordsAffected As Integer 
8: 
9: myConnection = New SqlConnection( "server=localhost;uid=sa;database=Pubs" )
10: myConnection.Open()
11: myCommand = New SqlCommand( "UPDATE testTable SET col1='hello' http://aspfree.com/chapters/sams/graphics/ccc.gifWHERE col1='fred'", myConnection )
12: recordsAffected = myCommand.ExecuteNonQuery()
13: Response.Write( "The UPDATE statement modified " & http://aspfree.com/chapters/sams/graphics/ccc.gifrecordsAffected.toString() & " records!" )
14: myConnection.Close
15: %>
16:
4.1删除数据（sqlserver）
1: <%@ Import Namespace="System.Data" %>
2: <%@ Import NameSpace="System.Data.SqlClient" %> 
3: 
4: <% 
5: Dim myConnection As SqlConnection 
6: Dim myCommand As SqlCommand 
7: 
8: myConnection = New SqlConnection( "server=localhost;uid=sa;database=Pubs" ) 
9: myConnection.Open()
10: myCommand = New SqlCommand( "DELETE testTable WHERE col1='fred'", myConnection )
11: myCommand.ExecuteNonQuery()
12: myConnection.Close()
13: %>
14: Record Deleted!
15:
4.2删除数据（access） 1: <%@ Import Namespace="System.Data" %> 
2: <%@ Import NameSpace="System.Data.OleDb" %> 
3: 
4: <% 
5: Dim myConnection As OleDbConnection 
6: Dim myCommand As OleDbCommand 
7: 
8: myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA http://aspfree.com/chapters/sams/graphics/ccc.gifSource=c:\authors.mdb" ) 
9: myConnection.Open()
10: myCommand = New OleDbCommand( "DELETE FROM Authors http://aspfree.com/chapters/sams/graphics/ccc.gifWHERE Author = 'Simpson'", myConnection )
11: myCommand.ExecuteNonQuery()
12: myConnection.Close()
13: %>
14: Record Deleted!

Answer 2

C#例子1，用传统的ADOusing System;namespace DatabaseSample1
{
/// <summary>
/// Class1 的摘要说明。
/// </summary>
class DbSample1
{
/// <summary>
/// 应用程序的主入口点。
/// </summary>
[STAThread]
static void Main(string[] args)
{
//
// TODO: 在此处添加代码以启动应用程序
//
Console.WriteLine("Connecting to datbase..."); 
DbSample1 dbso=new DbSample1();
Console.WriteLine("Connected");
Console.WriteLine("*================================");
Console.WriteLine("*ADO Project");
Console.WriteLine("*Developped by C#");
Console.WriteLine(System.DateTime.Now);
Console.WriteLine("*================================");
Console.WriteLine("1 List Tables\n2 List Procedures\n3 List Views\n0 Quit\n");
while(true)
{
Console.Write("Input your choice[1,2,3,0]:"); 
int choice=Console.Read();
Console.ReadLine(); 
if(choice=='1')
{
dbso.ListTables();
}

if (choice=='2')
{
dbso.ListProcedures(); 
}

if (choice=='3')
{
dbso.ListViews(); 
}

if(choice=='0')
{
return;
}

}
}
private static string default_db="dsn=export;uid=dongsong;pwd=dongsong";
private ADODB.Connection cn;
public DbSample1()
{
cn=new ADODB.ConnectionClass();  
cn.Open(default_db,null,null,-1);
}
public DbSample1(String db_string)
{
cn=new ADODB.ConnectionClass();  
cn.Open(db_string,null,null,-1);
} public void ListTables()
{
ADODB.Recordset rs=new ADODB.RecordsetClass();
rs.Open("select name from dbo.sysobjects where type='u'",cn,ADODB.CursorTypeEnum.adOpenStatic,ADODB.LockTypeEnum.adLockReadOnly,-1);
while(!rs.EOF)
{
Console.WriteLine(rs.Fields["name"].Value.ToString());  
rs.MoveNext(); 
}
}

public void ListViews()
{
ADODB.Recordset rs=new ADODB.RecordsetClass();
rs.Open("select name from dbo.sysobjects where type='v'",cn,ADODB.CursorTypeEnum.adOpenStatic,ADODB.LockTypeEnum.adLockReadOnly,-1);
while(!rs.EOF)
{
Console.WriteLine(rs.Fields["name"].Value.ToString());  
rs.MoveNext(); 
}
}

public void ListProcedures()
{
ADODB.Recordset rs=new ADODB.RecordsetClass();
rs.Open("select name from dbo.sysobjects where type='p'",cn,ADODB.CursorTypeEnum.adOpenStatic,ADODB.LockTypeEnum.adLockReadOnly,-1);
while(!rs.EOF)
{
Console.WriteLine(rs.Fields["name"].Value.ToString());  
rs.MoveNext(); 
}
}
}
}

Answer 3

C#例子2，用ADO.NET中的SQLAdapterusing System;
using System.Data.SqlClient;namespace DatabaseSample2
{
/// <summary>
/// Class1 的摘要说明。
/// </summary>
class Class1
{
/// <summary>
/// 应用程序的主入口点。
/// </summary>
[STAThread]
static void Main(string[] args)
{
//
// TODO: 在此处添加代码以启动应用程序
//
Console.WriteLine("Connecting to SQL Server"+System.DateTime.Now); 
SqlConnection cn=new SqlConnection();
cn.ConnectionString="Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BackupTest;Data Source=SAM";  //设置连接串
SqlCommand cmd=new SqlCommand("Select * from t1");
cmd.Connection=cn;
cn.Open(); //打开连接
Console.WriteLine("Connected "+System.DateTime.Now);
SqlDataReader rs=cmd.ExecuteReader(); while(rs.Read())
{
//if (!rs.IsDBNull(1)) 
//{
// Console.WriteLine(rs.GetString(1)); 
//}
//Console.WriteLine(rs.GetString(0));  
int c1=(int)rs["c1"];
if(rs["c2"]==DBNull.Value)
{
Console.WriteLine(c1+",Null Value"); 
}
else
{
Console.WriteLine(c1+","+rs["c2"]);
} //Console.WriteLine(rs["c1"]+","+rs["c2"]+","+rs["c3"]);
}

rs.Close();
cn.Close(); 
}
}
}