网络编程
位置:首页>> 网络编程>> Asp编程>> 如何将数据访问页绑定到断开连接的 ADO 记录集上?

如何将数据访问页绑定到断开连接的 ADO 记录集上?

 来源:asp之家 发布时间:2009-12-03 20:07:00 

标签:ADO,数据,绑定,记录集

下面是BeforeInitialBind事件过程:

<SCRIPT language=vbscript event=BeforeInitialBind(info) for=MSODSC>
<!--
Dim rs
Dim strShapeText
Dim strConnectionString
Dim strDataSource
adOpenKeyset=1
adLockOptimistic=3
If vbyes=msgbox("您要使用断开连接的记录集吗?",vbyesno) Then
On Error Resume Next
strDataSource = InputBox ("请输入要使用的断开连接的记录集的路径:", "Enter Path", _
"C:\Program Files\Microsoft Office\Office10\Samples\ Northwind.mdb")
strShapeText = MSODSC.RootRecordsetDefs(0).ShapeText
strConnectionString = "Provider=MSDataShape.1; _
Persist Security Info=False;Data Source=" & strDataSource _
& ";User ID=Admin;Data Provider=Microsoft.Jet.OLEDB.4.0"
Set rs = CreateObject("ADODB.Recordset")
rs.Open strShapeText, strConnectionString, adOpenKeyset, _ 
adLockOptimistic
If err.Number <> 0 Then
MsgBox "错误:" & err.description & "Error " & err.number
End If
MSODSC.SetRootRecordset "Categories", rs
End If
-->
</SCRIPT>

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com