Article ID: 191268
Article Last Modified on 8/11/2005
Dim cnPubs As New ADODB.Connection Dim rsKeyset As New ADODB.Recordset Dim strConn As String Dim strSQL As String Dim strActionQuery As String strConn = "Provider=SQLOLEDB;Data Source=MyServer;Initial Catalog=pubs;User ID=UserName;Password=password;" strSQL = "SELECT * FROM Authors" strActionQuery = "DELETE FROM Authors WHERE 1 = 0" cnPubs.Open strConn, "sa", "" rsKeyset.Open strSQL, cnPubs, adOpenKeyset, adLockReadOnly, adCmdText cnPubs.Execute CommandText:=strActionQuery, Options:=adExecuteNoRecords
Keywords: kbbug kbdatabase kbpending KB191268