网络编程
位置:首页>> 网络编程>> Asp编程>> 如何创建并使用一个断开连接的记录集的数据访问页?

如何创建并使用一个断开连接的记录集的数据访问页?

 来源:asp之家 发布时间:2009-11-14 20:50:00 

标签:连接,记录,数据

 

<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