Mike & Doris Manning
mikedorism at verizon.net
Thu Jan 26 07:36:29 CST 2006
John, I'm amazed at the amount of "going around the bush to get to the barn" information that you are getting from this list. So far, the responses are far more complicated than they need to be. When I was first starting out, I found an ADO Primer website (http://authors.aspalliance.com/aspxtreme/ado/index.aspx) that really helped me understand the basics behind what I was trying to do. There are also several really good books out there for working with SQL Server within Access. My favorite is "Professional SQL Server Development with Access 2000" by Rick Dobson (ISBN 1861004834). Filling a combo box or listbox is as simple as creating a stored procedure or view and putting the name of that stored procedure or view in the row source property of the control. It gets little bit more complicated when you need to pass a parameter through but not as hard as you guys make it out. Here is the function I use to fill the work order listbox on my ADP's startup screen. I have four different stored procedures based on the sort the user chose. I pass in the division code and filtering parameters based on textboxes the users enter data into. ***************** Public Function GetWOList(intSort As Integer, _ strDivision As String, strShow As String, _ strClient As String, strWO As String, _ strProj As String) On Error GoTo ErrorHandler Dim strSproc As String Select Case intSort Case Is = 1 'Work Order Number strSproc = "ap_WOS_StartupWONum" Case Is = 2 'Project Name strSproc = "ap_WOS_StartupWOProj" Case Is = 3 'Show Name strSproc = "ap_WOS_StartupWOShow" Case Is = 4 'Client Name strSproc = "ap_WOS_StartupWOClient" End Select Set cmd = New ADODB.Command With cmd .CommandType = adCmdStoredProc .CommandText = strSproc .Parameters.Append .CreateParameter("@Division", adVarChar, adParamInput, 50) .Parameters.Append .CreateParameter("@Status", adBoolean, adParamInput, 1) .Parameters.Append .CreateParameter("@Show", adVarChar, adParamInput, 50) .Parameters.Append .CreateParameter("@Client", adVarChar, adParamInput, 75) .Parameters.Append .CreateParameter("@WO", adVarChar, adParamInput, 5) .Parameters.Append .CreateParameter("@Proj", adVarChar, adParamInput, 50) .ActiveConnection = CurrentProject.Connection .Parameters("@Division") = strDivision If bolArch = True Then .Parameters("@Status") = 1 Else .Parameters("@Status") = 0 End If If Len(strShow) > 0 Then .Parameters("@Show") = "%" & strShow & "%" If Len(strClient) > 0 Then .Parameters("@Client") = "%" & strClient & "%" If Len(strWO) > 0 Then If Len(strWO) = 5 Then .Parameters("@WO") = strWO Else .Parameters("@WO") = strWO & "%" End If End If If Len(strProj) > 0 Then .Parameters("@Proj") = "%" & strProj & "%" Set Forms!frmStartup!lstWO.Recordset = .Execute .ActiveConnection = Nothing End With Set cmd = Nothing Exit Function ErrorHandler: If Err = 3421 Then MsgBox "Work Order Number filter can only be 5 characters!", vbOKOnly, "Filter Too Long" Else Call HandleErrors(Err, "basStartup", "GetWOList") End If End Function Doris Manning mikedorism at verizon.net -----Original Message----- From: dba-sqlserver-bounces at databaseadvisors.com [mailto:dba-sqlserver-bounces at databaseadvisors.com] On Behalf Of paul.hartland at fsmail.net Sent: Thursday, January 26, 2006 2:40 AM To: dba-sqlserver at databaseadvisors.com Subject: Re: [dba-SQLServer] SPs are read-only John, As far as I am aware when you pull back data into an appliication using an SP it is read only, if you want to pull back data and make it editible then I have found you have to use a view (do as much filtering as possible here (well I do anyway)) and then use some code with a select statement to bring it into an editible recordset. If anyone knows different about SP's then please tell me as well cause OH how I would love to have an editible store procedure. Paul Message Received: Jan 26 2006, 07:28 AM From: "John Colby" To: dba-sqlserver at databaseadvisors.com Cc: Subject: [dba-SQLServer] SPs are read-only Is there a magic incantation to make my SP editable? My tables are read/write but a simple SP that pulls the same data (filtered on a couple of ID fields) is read-only. Any thoughts on why this is? TIA, John W. Colby www.ColbyConsulting.com _______________________________________________ dba-SQLServer mailing list dba-SQLServer at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/dba-sqlserver http://www.databaseadvisors.com _______________________________________________ dba-SQLServer mailing list dba-SQLServer at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/dba-sqlserver http://www.databaseadvisors.com