ADO.NET数据库实例教程(1)

＜%@ Import Namespace="System.Data" %＞
＜%@ Import Namespace="System.Data.Oledb" %＞ 

Dim objConn as New OleDBConnection
("Provider=Microsoft.Jet.OLEDB.4.0; 
Data Source=e:\sff\site\db\users.mdb") 

objConn.Open() 

objConn.Close()
objConn=Nothing 
Command

Dim objCmd as New OleDbCommand("SELECT * From users", objConn) 

Dim objCmd as New OleDbCommand()
objCmd.Connection = objConn
objCmd.CommandText = "SELECT * FROM users" 

Dim objCmd as New OleDbCommand(SQL String, connection string) 

Dim objRd as OleDbDataReader
objRd = objCmd.ExeuteReader 
ExecuteScalar

Dim objReader as OleDbDataReader
objReader = objCmd.ExecuteReader 
While objReader.Read
Response.Write(objReader.GetString(0) & "＜br＞")
End While

GetBoolean(x)
GetByte(x)
GetBytes(x)
GetChar(x)
GetChars(x)
GetDataTypeName(x) －取得数据类型
GetDateTime(x)
GetDecimal(x)
GetDefaultStream(x)
GetDouble(x)
GetFieldType(x)
GetFloat(x)
GetGuid(x)
GetInt16(x)
GetInt32(x)
GetInt64(x)
GetName(x) － 取得字段名
GetOrdinal(name) －根据字段名取得字段序号
GetString(x)
GetTimeSpan(x)
GetValue(x)
GetValues(values())

Dim objAdapter as New OleDbDataAdapter("SELECT * FROM users", objConn) 

Dim ds as Dataset = New DataSet()
objAdapter.Fill(ds, "users") 

objAdapter.TableMappings.Add("adbtable", "users")
With objAdapter.TableMappings(0).ColumnMappings
.Add("PID", "ID")
.Add("LastName", "LName")
.Add("StreetAddress", "Addy")
End With
objAdapter.Fill(ds) 

＜%@ Import Namespace="System.Data" %＞
＜%@ Import Namespace="System.Data.Oledb" %＞
＜script language="VB" runat="server"＞
Sub Page_Load(sender as object, e as eventargs)
Dim objConn as New OleDBConnection("Provider=Microsoft.Jet.OLEDB.4.0; 
   Data Source=e:\sff\site\db\users.mdb")
objConn.Open()
Dim ds as Dataset = New DataSet()
Dim objAdapter as New OleDbDataAdapter("SELECT * FROM users", objConn)
Dim objCmdBld As New OleDbCommandBuilder(objAdapter)
objAdapter.Fill(ds, "users")
End Sub
＜/script＞