VB可使用Nothing
关键字用于取消某对象变量与实际对象的关联。使用 Set 语句将对象变量赋值为 Nothing。
例如:
Set MyObject = Nothing
多个对象变量可以引用同一个实际对象。当 Nothing 赋值给某对象变量后,此变量就不再引用任何实际对象。当多个对象变量引用同一个对象时,只有在所有对象变量都设置为 Nothing (在设置为Nothing的最后一个对象变量超出范围后,显式或隐式地使用 Set
命令)后,与变量所引用的对象相关联的内存和系统资源才被释放。
实现代码:
Option ExplicitDim cn As New ADODB.Connection '定义数据库的连接
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Dim sql As String
sql = "select * from jishijilu" '
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" & App.Path & "\wd.mdbPersist Security Info=False"
cn.Open
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
Private Sub DataGrid1_Click()
Set cn = Nothing '本句和下一行语句不用实现效果相似
Set rs = Nothing '
Set DataGrid1.DataSource = Nothing '本句语句就能实现DataGrid控件清空
End Sub
加一个BUTTON按钮,添加Click事件,在点击按钮时触发更新数据库 *** 作比如有四个textbox,你加一个button,click事件中写数据库插入语句,插入到数据库中,然后bound一下gridview刷新下,就可以显示出来。
或者你使用微软自带的静态数据绑定控件sqldatasource,配置下你的数据库表在里面,在gridview里加 *** 作,微软自带删除,修改,更新,选择。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)