谁有数据库编辑的例程，急在线等待
谁有数据库编辑的例程，急在线等待 问题点数：100、回复次数：4Top
1 楼TheAres（班门斧）回复于 2002-12-25 11:26:20 得分 10
这里有.
您觉得您充分利用了VB.NET的所有强大功能吗？微软公司针对VB.NET的各个特性，精心设计了101个演示代码，打开他们，您要的功能就在其中。
下载:http://www.microsoft.com/downloads/release.asp?ReleaseID=44655
大小:15M
http://expert.csdn.net/Expert/topic/1171/1171450.xml?temp=.8282282Top
2 楼Montaque（每天回答两个问题）回复于 2002-12-25 12:52:00 得分 30
http://expert.csdn.net/Expert/TopicView.asp?id=1156324Top
3 楼jnhjone（飞龙）回复于 2002-12-25 15:36:14 得分 10
我也看看Top
4 楼e8007（小鬼）回复于 2002-12-25 17:12:45 得分 50
BindingManagerBase都是由BindingContext来创建的，下面以Access 2000为操作数据库，创建的一个名称为"myBind"的BindingManagerBase对象的具体例子。
'创建一个数据连接
Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;
Data Source = db.mdb "
Dim myConn As OleDbConnection = New OleDbConnection ( )
myConn.ConnectionString = strCon
Dim strCom As String = " SELECT * FROM person "
'创建一个 DataSet
myDataSet = New DataSet ( )
myConn.Open ( )
'通过OleDbDataAdapter对象得到一个数据集
Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter
( strCom , myConn )
'把Dataset绑定books数据表
myCommand.Fill ( myDataSet , "person" )
'关闭此数据连接
myConn.Close ( )
'创建BindingManagerBase对象
myBind = Me.BindingContext ( myDataSet , "person" )
对于SQL Server数据库，创建BindingManagerBase对象和Access 2000大致相同，唯一不同的就在于创建数据连接的时候，下面是以SQL Server 2000为操作数据库，数据库服务器名称为"Server1",数据库名称为"Data1"，登陆的ID为"sa"，口令为空，在数据库也只存放了一张"person"数据表，创建BindingManagerBase对象的程序代码：
'创建一个数据连接
Dim strCon As String = " Provider = SQLOLEDB.1 ;
Persist Security Info = False ; User ID = sa ;
Initial Catalog = data1 ; Data Source = server1 "
Dim myConn As OleDbConnection = New OleDbConnection ( )
myConn.ConnectionString = strCon
Dim strCom As String = " SELECT * FROM person "
'创建一个 DataSet
myDataSet = New DataSet ( )
myConn.Open ( )
'通过OleDbDataAdapter对象得到一个数据集
Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter ( strCom ,
myConn )
'把Dataset绑定books数据表
myCommand.Fill ( myDataSet , "person" )
'关闭此数据连接
myConn.Close ( )
'创建BindingManagerBase对象
myBind = Me.BindingContext ( myDataSet , "person" )
在得到BindingManagerBase对象后，配合使用"position"属性和"Count"属性，就可以实现对数据集的浏览了，下面是对数据集进行"上一条"、"下一条"、"尾记录"、"首记录"。
'按钮"尾记录"对象事件程序
Private Sub lastrec_Click ( ByVal sender As Object , _
ByVal e As System.EventArgs ) Handles lastrec.Click
myBind.Position = myBind.Count - 1
End Sub
'按钮"下一条"对象事件程序
Private Sub nextrec_Click ( ByVal sender As Object , _
ByVal e As System.EventArgs ) Handles nextrec.Click
If myBind.Position = myBind.Count - 1 Then
MessageBox.Show ( "已经到了最后一条记录！" , "信息提示！" ,
MessageBoxButtons.OK , MessageBoxIcon.Information )
Else
myBind.Position = myBind.Position + 1
End If
End Sub
'按钮"上一条"对象事件程序
Private Sub previousrec_Click ( ByVal sender As Object , _
ByVal e As System.EventArgs ) Handles previousrec.Click
If ( myBind.Position = 0 ) Then
MessageBox.Show ( "已经到了第一条记录！" , "信息提示！" ,
MessageBoxButtons.OK , MessageBoxIcon.Information )
Else
myBind.Position = myBind.Position - 1
End If
End Sub
'按钮"首记录"对象事件程序
Private Sub firstrec_Click ( ByVal sender As Object , _
ByVal e As System.EventArgs ) Handles firstrec.Click
myBind.Position = 0
End Sub
Top
