如何去掉ADO控件的自动保存功能?
解决方案 »
- vb 如何返回网页返回的头信息或者流(不是返回的网页源代码)
- 使用Winsocket控件做Http代理服务器的问题
- VB TreeView控件遇到点儿小麻烦
- 為什麼這樣不可以: shell "C:\abc.vbs"
- WebBrowser如何显示整个网页
- Print方法问题!
- 有关在文本文件中取指定行指定字符串的问题,请大家帮忙,谢谢。。。
- ------急、急、急!请问谁有关于用VB编写的发送邮件的代码???-------
- 求救!关于窗体大小调整!???
- 怎么把数据库弄到资源文件里去?急!急!急!
- 如何通过API枚举本机的共享文件夹呢?
- 将listview的属性改为 平面滚动条 为什么 滚动条就消失了???
数据绑定时,如何去掉ADO控件的自动保存功能?
Public conn As New ADODB.ConnectionPrivate Sub cmdAddNew_Click()
On Error Resume Next
rs.AddNew
End SubPrivate Sub cmdCancel_Click()
rs.CancelBatch
Unload Me
End SubPrivate Sub cmdDel_Click()
On Error Resume Next
rs.Delete
End SubPrivate Sub cmdOK_Click()
rs.UpdateBatch
Unload Me
End SubPrivate Sub Command1_Click()
rs.CancelBatch
End SubPrivate Sub DataGrid1_SplitChange()
DataGrid1.Splits(0).AllowSizing = False
End SubPrivate Sub Form_Load()
Dim strconn As String
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
conn.CursorLocation = adUseClient
conn.Open strconn
If rs.State <> adStateClosed Then rs.Close
rs.Open "Select * from People", conn, adOpenStatic, adLockBatchOptimistic ' 3,1 狀態
Set DataGrid1.DataSource = rs
End SubPrivate Sub Form_Unload(Cancel As Integer)
rs.MoveFirst
If rs.State <> adStateClosed Then rs.Close
Set rs = Nothing
Set Form1 = Nothing
End Sub