Source Code -------------------------------------------------------------------------------- <% '****************************************************************************** ' ********************** DO NOT DELETE **************************************** ' ' COPYRIGHT NOTICE: Copyright 2000 Nicholas P. LaDieu, node i internet consulting ' ' This code is free for non...[ 查看全文 ]
Sub ShowUserRosterMultipleUsers() Dim cn As New ADODB.Connection Dim cn2 As New ADODB.Connection Dim rs As New ADODB.Recordset Dim i, j As Long cn.Provider = "Micr...[ 查看全文 ]
Sub ShowUserRosterMultipleUsers() Dim cn As New ADODB.Connection Dim cn2 As New ADODB.Connection Dim rs As New ADODB.Recordset Dim i, j As Long cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.Open "Data Source=c:Northwind.mdb" cn2.Open "Provider=M...[ 查看全文 ]
Sub ShowUserRosterMultipleUsers() Dim cn As New ADODB.Connection Dim cn2 As New ADODB.Connection Dim rs As New ADODB.Recordset Dim i, j As Long cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.Open "Data Source=c:/Northwind.mdb" cn2.Open "Provider=Mi...[ 查看全文 ]