adodb

I've written a VBScript function to call a stored procedure. In the past, I've written a number of functions calling stored procedures with input parameters, but in this instance, I need to work with an Output parameter. In another application, I call the exact same stored procedure using the Entity Framework, so the stored procedure is fine. Here's my code: Function checkAccess(userid,link) isAllowed = false set cmd = Server.CreateObject("ADODB.Command") cmd.CommandText = "Check_Permission" cmd.ActiveConnection = Conn cmd.NamedParameters = true cmd.CommandType = adCmdStoredProc cmd.Parameters

I am using adodb for PHP library. For fetching the id at which the record is inserted I use this function "$db->Insert_ID()" I want to know if there are multiple and simultaneous inserts into the database table, will this method return me the correct inserted id for each record inserted ? The reason I am asking this is because I use this last insert id for further processing of other records and making subsequent entries in the related tables. Is this approach safe enough or am I missing something. Please help me formulate a proper working plan for this so that I can use the last insert id for

I am trying to perform an ADODB query on a named range in an Excel 2013 workbook. My code is as follows: Option Explicit Sub SQL_Extract() Dim objConnection As ADODB.Connection Dim objRecordset As ADODB.Recordset Set objConnection = CreateObject("ADODB.Connection") ' dataset query object Set objRecordset = CreateObject("ADODB.Recordset") ' new dataset created by the query objConnection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & ThisWorkbook.FullName & ";" & _ "Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";" objConnection.Open objRecordset.Open "SELECT *

I use these lines to get values from closed workbooks: Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & "R4C4" Arg = CStr(Arg) GetValue = ExecuteExcel4Macro(Arg) Is there an other way than loop to get values from a range ? The loop solution is working but It would be clearer if I can get range directly with ExecuteExcel4Macro. I've tried to input a range in Arg, but it doesn't work. It returns an error. I have the same question for charts, how can I get them ? My solution for the moment consist in getting values and replotting the charts. It works, but I would be happier with a GetChart

I am trying to open a query, which is timing out. I have tried setting the timeout property, but it doesn't seem to want to accept it. The query takes 34 seconds to execute using MS-SQL Server Management window (SQL Server 2005), so I know I need to increase the timeout. Current code: Public Function retRecordSet(StrSQL) Dim cmd ' as new ADODB.Command Dim rs 'As New ADODB.Recordset Set cmd = CreateObject("ADODB.Command") Set rs = CreateObject("ADODB.Recordset") cmd.ActiveConnection = CurrentProject.Connection cmd.CommandText = StrSQL cmd.CommandTimeout = 0 Set rs = cmd.Execute Set retRecordSet

I am new to this and had this question. Can I use SQLDataReader instead of a Recordset. I want to achieve the following result in an SQLDataReader. Dim dbConn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sqlstr As String = "SELECT Name,Status FROM table1 WHERE id=" + item_id.Value.ToString rs.Open(SQL, dbConn) While Not rs.EOF txtName.Text = rs.Fields.Item("Name").Value ddlstatus.SelectedIndex = 1 rs.MoveNext() End While rs.Close() rs = Nothing dbConn.Close() dbConn = Nothing Can I replace recordset with SQLDataReader and if I can can you please show me the changes in code? Its

The following code, is generating that error. Set getList = Server.CreateObject("ADODB.Command") getList.ActiveConnection=EV_WikiConn getList.Prepared = true getList.commandtext= "declare @Lookup table(Id int identity(1, 1) , SongTitle nvarchar(512) ) insert into @Lookup(SongTitle)select * from ( values ('Deuce')) as x(a) select A.AlbumName, S.SongTitle , S.Writers , S.Vocals , S.SID , S.TheTime from Albums A inner join Songs S on A.AID = S.AID inner join @Lookup L on L.SongTitle = S.SongTitle order by L.Id" set rsList = getList.execute while not rsList.eof ' Error is on this line here. I