|
 |
access_asp thread: RE: Help! -- I get error '800a0cb3'
Message #1 by "Jovy Giaza" <CCROUTE925@h...> on Thu, 31 Oct 2002 17:06:47
|
|
> Here is part of a note that I sent to someone who was probably in
the same boat as you...
The default recordset type is "read-only, forward-only". Add
these statements:
rs.CursorType=3 'Static cursor
rs.LockType=3 ' Optimistic lock
That should do it. The first property defines a recordset as one
that will allow updates (there are others, but for your purposes
this should be sufficient) and the second allows writing to the
recordset (among other things).
Larry Woods - MCSD, MCT
> -----Original Message-----
> From: Omar Esquivel [mailto:omare@u...]
> Sent: Friday, July 19, 2002 10:01 PM
> To: Access ASP
> Subject: [access_asp] Help! -- I get error '800a0cb3'
>
>
>
> Hi,
>
> I'm a newbie on ASP with databases, and I'm trying to
> write a record to a
> database with fields on a web form to fields on that database.
>
> After I hit the submit button, I get this error:
>
> ADODB.Recordset error '800a0cb3'
> Object or provider is not capable of performing
> requested operation.
>
>
> I should note that the Access Database is still empty,
> with no records on
> it, I'm trying this on a Windows NT 4 Workstation PC
> with IIS 4 installed
> on it, and this is the sample of the code I'm using to
> try to write the
> record to the database.
> Am I missing something?, what am I doing wrong? ...
> please I need help
> deperately. My job depends on it.
> THANx, here's the code:
>
> where "REQUEST" is the name of the Table and SUPPORT my DSN
> --------------------------
> Dim RS
> Set RS=Server.CreateObject("ADODB.Recordset")
> RS.Open "request", "DSN=support"
>
> 'Get fields from Web Form ---------------
>
> RS.AddNew
> RS.Fields("nAnt") = Request.Form("frmAnt")
> RS.Fields("UsrName") = Request.Form("frmName")
> RS.Fileds("UsrDept") = Request.Form("frmDept")
> RS.Fields("Problem") = Request.Form("frmProblem")
> RS.Update
>
>
>
Message #2 by "Jovy Giaza" <CCROUTE925@h...> on Thu, 31 Oct 2002 17:09:08
|
|
Larry, maybe you can help me with this too, I'm having the same problem
and I tried your solution but it did not work, please take a look at my
code and see if you can provide some advice. Your suggestions will be
greatly appreciated.
Thanks
------------------------------------
Dim FieldInput
FieldInput = Request.Form("FirmName")
Dim objCommand, objRS, objConn, StrConnect
Set objCommand = Server.CreateObject("ADODB.Command")
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorType = 3
objRS.LockType = 3
StrConnect = "Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=D:\TS\Pages\Documents\LHPPLUS.mdb"
objCommand.ActiveConnection = strConnect
objCommand.CommandText="Select * FROM LHPLIST WHERE
firmname LIKE '" & FieldInput & "'"
objCommand.CommandType = adCmdText
Set objRS = objCommand.Execute
Response.Write
objRS("Firmname")
objRS("Firmname") = Request.Form
("Firmname")
objRS
("City").Value = Request.Form("City")
objRS
("State").Value = Request.Form("State")
objRS("Registered
Domain Name").Value = Request.Form("RegDomain")
objRS
("FirstName").Value = Request.Form("Firstname")
objRS("Last
Name").Value = Request.Form("Lastname")
objRS
("Emailaddress") = Request.Form("Email")
objRS("Password")
= Request.Form("Password")
objRS.Update
Set objCommand =
Nothing
Set objRS.Command =
Nothing
objRS.Close
Set objRS = Nothing
------------------------------------------------------
>
Here is part of a note that I sent to someone who was probably in
the same boat as you...
The default recordset type is "read-only, forward-only". Add
these statements:
rs.CursorType=3 'Static cursor
rs.LockType=3 ' Optimistic lock
That should do it. The first property defines a recordset as one
that will allow updates (there are others, but for your purposes
this should be sufficient) and the second allows writing to the
recordset (among other things).
Larry Woods - MCSD, MCT
> -----Original Message-----
> From: Omar Esquivel [mailto:omare@u...]
> Sent: Friday, July 19, 2002 10:01 PM
> To: Access ASP
> Subject: [access_asp] Help! -- I get error '800a0cb3'
>
>
>
> Hi,
>
> I'm a newbie on ASP with databases, and I'm trying to
> write a record to a
> database with fields on a web form to fields on that database.
>
> After I hit the submit button, I get this error:
>
> ADODB.Recordset error '800a0cb3'
> Object or provider is not capable of performing
> requested operation.
>
>
> I should note that the Access Database is still empty,
> with no records on
> it, I'm trying this on a Windows NT 4 Workstation PC
> with IIS 4 installed
> on it, and this is the sample of the code I'm using to
> try to write the
> record to the database.
> Am I missing something?, what am I doing wrong? ...
> please I need help
> deperately. My job depends on it.
> THANx, here's the code:
>
> where "REQUEST" is the name of the Table and SUPPORT my DSN
> --------------------------
> Dim RS
> Set RS=Server.CreateObject("ADODB.Recordset")
> RS.Open "request", "DSN=support"
>
> 'Get fields from Web Form ---------------
>
> RS.AddNew
> RS.Fields("nAnt") = Request.Form("frmAnt")
> RS.Fields("UsrName") = Request.Form("frmName")
> RS.Fileds("UsrDept") = Request.Form("frmDept")
> RS.Fields("Problem") = Request.Form("frmProblem")
> RS.Update
>
>
>
Message #3 by "Larry Woods" <larry@l...> on Thu, 31 Oct 2002 12:17:41 -0700
|
|
No, I don't think that you read the COMPLETE note that I sent.
An ADO Command returns a READ-ONLY recordset. Changing the
properties of the recordset does NOT change this fact. Instead
of executing a command, you need to open a recordset. THEN, you
can make adds/updates.
Larry Woods
> -----Original Message-----
> From: Jovy Giaza [mailto:CCROUTE925@h...]
> Sent: Thursday, October 31, 2002 5:09 PM
> To: Access ASP
> Subject: [access_asp] RE: Help! -- I get error '800a0cb3'
>
>
> Larry, maybe you can help me with this too, I'm having
> the same problem
> and I tried your solution but it did not work, please
> take a look at my
> code and see if you can provide some advice. Your
> suggestions will be
> greatly appreciated.
>
> Thanks
> ------------------------------------
> Dim FieldInput
> FieldInput = Request.Form("FirmName")
> Dim objCommand, objRS, objConn,
> StrConnect
> Set objCommand
> Server.CreateObject("ADODB.Command")
> Set objConn
> Server.CreateObject("ADODB.Connection")
> Set objRS
> Server.CreateObject("ADODB.Recordset")
> objRS.CursorType = 3
> objRS.LockType = 3
> StrConnect
> "Provider=Microsoft.Jet.OLEDB.4.0;
> Data Source=D:\TS\Pages\Documents\LHPPLUS.mdb"
> objCommand.ActiveConnection = strConnect
>
> objCommand.CommandText="Select
> * FROM LHPLIST WHERE
> firmname LIKE '" & FieldInput & "'"
> objCommand.CommandType = adCmdText
>
> Set objRS = objCommand.Execute
>
>
> Response.Write
> objRS("Firmname")
> objRS("Firmname") = Request.Form
> ("Firmname")
> objRS
> ("City").Value = Request.Form("City")
> objRS
> ("State").Value = Request.Form("State")
>
> objRS("Registered
> Domain Name").Value = Request.Form("RegDomain")
> objRS
> ("FirstName").Value = Request.Form("Firstname")
>
> objRS("Last
> Name").Value = Request.Form("Lastname")
> objRS
> ("Emailaddress") = Request.Form("Email")
>
> objRS("Password")
> = Request.Form("Password")
>
> objRS.Update
>
>
> Set objCommand
> Nothing
> Set
> objRS.Command
> Nothing
>
> objRS.Close
> Set objRS = Nothing
> ------------------------------------------------------
>
>
> >
>
> Here is part of a note that I sent to someone who was
> probably in
> the same boat as you...
>
>
> The default recordset type is "read-only, forward-only". Add
> these statements:
>
> rs.CursorType=3 'Static cursor
> rs.LockType=3 ' Optimistic lock
>
> That should do it. The first property defines a
> recordset as one
> that will allow updates (there are others, but for
> your purposes
> this should be sufficient) and the second allows writing to the
> recordset (among other things).
>
> Larry Woods - MCSD, MCT
>
>
>
> > -----Original Message-----
> > From: Omar Esquivel [mailto:omare@u...]
> > Sent: Friday, July 19, 2002 10:01 PM
> > To: Access ASP
> > Subject: [access_asp] Help! -- I get error '800a0cb3'
> >
> >
> >
> > Hi,
> >
> > I'm a newbie on ASP with databases, and I'm trying to
> > write a record to a
> > database with fields on a web form to fields on that
> database.
> >
> > After I hit the submit button, I get this error:
> >
> > ADODB.Recordset error '800a0cb3'
> > Object or provider is not capable of performing
> > requested operation.
> >
> >
> > I should note that the Access Database is still empty,
> > with no records on
> > it, I'm trying this on a Windows NT 4 Workstation PC
> > with IIS 4 installed
> > on it, and this is the sample of the code I'm using to
> > try to write the
> > record to the database.
> > Am I missing something?, what am I doing wrong? ...
> > please I need help
> > deperately. My job depends on it.
> > THANx, here's the code:
> >
> > where "REQUEST" is the name of the Table and SUPPORT my DSN
> > --------------------------
> > Dim RS
> > Set RS=Server.CreateObject("ADODB.Recordset")
> > RS.Open "request", "DSN=support"
> >
> > 'Get fields from Web Form ---------------
> >
> > RS.AddNew
> > RS.Fields("nAnt") = Request.Form("frmAnt")
> > RS.Fields("UsrName") = Request.Form("frmName")
> > RS.Fileds("UsrDept") = Request.Form("frmDept")
> > RS.Fields("Problem") = Request.Form("frmProblem")
> > RS.Update
> >
> >
> >
Message #4 by "Jovanky Delossantos" <ccroute925@h...> on Thu, 31 Oct 2002 14:26:20 -0500
|
|
But when I open the recordset instead, how can I use the SELECT command
without execute a command?.
>From: "Larry Woods" <larry@l...>
>Reply-To: "Access ASP" <access_asp@p...>
>To: "Access ASP" <access_asp@p...>
>Subject: [access_asp] RE: Help! -- I get error '800a0cb3'
>Date: Thu, 31 Oct 2002 12:17:41 -0700
>
>No, I don't think that you read the COMPLETE note that I sent.
>
>An ADO Command returns a READ-ONLY recordset. Changing the
>properties of the recordset does NOT change this fact. Instead
>of executing a command, you need to open a recordset. THEN, you
>can make adds/updates.
>
>Larry Woods
>
>
> > -----Original Message-----
> > From: Jovy Giaza [mailto:CCROUTE925@h...]
> > Sent: Thursday, October 31, 2002 5:09 PM
> > To: Access ASP
> > Subject: [access_asp] RE: Help! -- I get error '800a0cb3'
> >
> >
> > Larry, maybe you can help me with this too, I'm having
> > the same problem
> > and I tried your solution but it did not work, please
> > take a look at my
> > code and see if you can provide some advice. Your
> > suggestions will be
> > greatly appreciated.
> >
> > Thanks
> > ------------------------------------
> > Dim FieldInput
> > FieldInput = Request.Form("FirmName")
> > Dim objCommand, objRS, objConn,
> > StrConnect
> > Set objCommand
> > Server.CreateObject("ADODB.Command")
> > Set objConn
> > Server.CreateObject("ADODB.Connection")
> > Set objRS
> > Server.CreateObject("ADODB.Recordset")
> > objRS.CursorType = 3
> > objRS.LockType = 3
> > StrConnect
> > "Provider=Microsoft.Jet.OLEDB.4.0;
> > Data Source=D:\TS\Pages\Documents\LHPPLUS.mdb"
> > objCommand.ActiveConnection = strConnect
> >
> > objCommand.CommandText="Select
> > * FROM LHPLIST WHERE
> > firmname LIKE '" & FieldInput & "'"
> > objCommand.CommandType = adCmdText
> >
> > Set objRS = objCommand.Execute
> >
> >
> > Response.Write
> > objRS("Firmname")
> > objRS("Firmname") = Request.Form
> > ("Firmname")
> > objRS
> > ("City").Value = Request.Form("City")
> > objRS
> > ("State").Value = Request.Form("State")
> >
> > objRS("Registered
> > Domain Name").Value = Request.Form("RegDomain")
> > objRS
> > ("FirstName").Value = Request.Form("Firstname")
> >
> > objRS("Last
> > Name").Value = Request.Form("Lastname")
> > objRS
> > ("Emailaddress") = Request.Form("Email")
> >
> > objRS("Password")
> > = Request.Form("Password")
> >
> > objRS.Update
> >
> >
> > Set objCommand
> > Nothing
> > Set
> > objRS.Command
> > Nothing
> >
> > objRS.Close
> > Set objRS = Nothing
> > ------------------------------------------------------
> >
> >
> > >
> >
> > Here is part of a note that I sent to someone who was
> > probably in
> > the same boat as you...
> >
> >
> > The default recordset type is "read-only, forward-only". Add
> > these statements:
> >
> > rs.CursorType=3 'Static cursor
> > rs.LockType=3 ' Optimistic lock
> >
> > That should do it. The first property defines a
> > recordset as one
> > that will allow updates (there are others, but for
> > your purposes
> > this should be sufficient) and the second allows writing to the
> > recordset (among other things).
> >
> > Larry Woods - MCSD, MCT
> >
> >
> >
> > > -----Original Message-----
> > > From: Omar Esquivel [mailto:omare@u...]
> > > Sent: Friday, July 19, 2002 10:01 PM
> > > To: Access ASP
> > > Subject: [access_asp] Help! -- I get error '800a0cb3'
> > >
> > >
> > >
> > > Hi,
> > >
> > > I'm a newbie on ASP with databases, and I'm trying to
> > > write a record to a
> > > database with fields on a web form to fields on that
> > database.
> > >
> > > After I hit the submit button, I get this error:
> > >
> > > ADODB.Recordset error '800a0cb3'
> > > Object or provider is not capable of performing
> > > requested operation.
> > >
> > >
> > > I should note that the Access Database is still empty,
> > > with no records on
> > > it, I'm trying this on a Windows NT 4 Workstation PC
> > > with IIS 4 installed
> > > on it, and this is the sample of the code I'm using to
> > > try to write the
> > > record to the database.
> > > Am I missing something?, what am I doing wrong? ...
> > > please I need help
> > > deperately. My job depends on it.
> > > THANx, here's the code:
> > >
> > > where "REQUEST" is the name of the Table and SUPPORT my DSN
> > > --------------------------
> > > Dim RS
> > > Set RS=Server.CreateObject("ADODB.Recordset")
> > > RS.Open "request", "DSN=support"
> > >
> > > 'Get fields from Web Form ---------------
> > >
> > > RS.AddNew
> > > RS.Fields("nAnt") = Request.Form("frmAnt")
> > > RS.Fields("UsrName") = Request.Form("frmName")
> > > RS.Fileds("UsrDept") = Request.Form("frmDept")
> > > RS.Fields("Problem") = Request.Form("frmProblem")
> > > RS.Update
> > >
> > >
> > >
>
>
>
_________________________________________________________________
Surf the Web without missing calls! Get MSN Broadband.
http://resourcecenter.msn.com/access/plans/freeactivation.asp
Message #5 by "Larry Woods" <larry@l...> on Thu, 31 Oct 2002 12:37:51 -0700
|
|
Yep!
objConn.Open StrConnect
objRS....set properties
objRS.Open "SELECT * ...blah, blah",objConn
Larry Woods
> -----Original Message-----
> From: Jovanky Delossantos [mailto:ccroute925@h...]
> Sent: Thursday, October 31, 2002 12:26 PM
> To: Access ASP
> Subject: [access_asp] RE: Help! -- I get error '800a0cb3'
>
>
> But when I open the recordset instead, how can I use
> the SELECT command
> without execute a command?.
>
>
>
>
>
>
> >From: "Larry Woods" <larry@l...>
> >Reply-To: "Access ASP" <access_asp@p...>
> >To: "Access ASP" <access_asp@p...>
> >Subject: [access_asp] RE: Help! -- I get error '800a0cb3'
> >Date: Thu, 31 Oct 2002 12:17:41 -0700
> >
> >No, I don't think that you read the COMPLETE note that I sent.
> >
> >An ADO Command returns a READ-ONLY recordset. Changing the
> >properties of the recordset does NOT change this
> fact. Instead
> >of executing a command, you need to open a recordset.
> THEN, you
> >can make adds/updates.
> >
> >Larry Woods
> >
> >
> > > -----Original Message-----
> > > From: Jovy Giaza [mailto:CCROUTE925@h...]
> > > Sent: Thursday, October 31, 2002 5:09 PM
> > > To: Access ASP
> > > Subject: [access_asp] RE: Help! -- I get error '800a0cb3'
> > >
> > >
> > > Larry, maybe you can help me with this too, I'm having
> > > the same problem
> > > and I tried your solution but it did not work, please
> > > take a look at my
> > > code and see if you can provide some advice. Your
> > > suggestions will be
> > > greatly appreciated.
> > >
> > > Thanks
> > > ------------------------------------
> > > Dim FieldInput
> > > FieldInput = Request.Form("FirmName")
> > > Dim objCommand, objRS, objConn,
> > > StrConnect
> > > Set objCommand
> > > Server.CreateObject("ADODB.Command")
> > > Set objConn
> > > Server.CreateObject("ADODB.Connection")
> > > Set objRS
> > > Server.CreateObject("ADODB.Recordset")
> > > objRS.CursorType = 3
> > > objRS.LockType = 3
> > > StrConnect
> > > "Provider=Microsoft.Jet.OLEDB.4.0;
> > > Data Source=D:\TS\Pages\Documents\LHPPLUS.mdb"
> > > objCommand.ActiveConnection
> = strConnect
> > >
> > > objCommand.CommandText="Select
> > > * FROM LHPLIST WHERE
> > > firmname LIKE '" & FieldInput & "'"
> > > objCommand.CommandType = adCmdText
> > >
> > > Set objRS = objCommand.Execute
> > >
> > >
> > > Response.Write
> > > objRS("Firmname")
> > > objRS("Firmname") = Request.Form
> > > ("Firmname")
> > > objRS
> > > ("City").Value = Request.Form("City")
> > > objRS
> > > ("State").Value = Request.Form("State")
> > >
> > > objRS("Registered
> > > Domain Name").Value = Request.Form("RegDomain")
> > > objRS
> > > ("FirstName").Value = Request.Form("Firstname")
> > >
> > > objRS("Last
> > > Name").Value = Request.Form("Lastname")
> > > objRS
> > > ("Emailaddress") = Request.Form("Email")
> > >
> > > objRS("Password")
> > > = Request.Form("Password")
> > >
> > > objRS.Update
> > >
> > >
> > > Set objCommand
> > > Nothing
> > > Set
> > > objRS.Command
> > > Nothing
> > >
> > > objRS.Close
> > > Set objRS = Nothing
> > > ------------------------------------------------------
> > >
> > >
> > > >
> > >
> > > Here is part of a note that I sent to someone who was
> > > probably in
> > > the same boat as you...
> > >
> > >
> > > The default recordset type is "read-only,
> forward-only". Add
> > > these statements:
> > >
> > > rs.CursorType=3 'Static cursor
> > > rs.LockType=3 ' Optimistic lock
> > >
> > > That should do it. The first property defines a
> > > recordset as one
> > > that will allow updates (there are others, but for
> > > your purposes
> > > this should be sufficient) and the second allows
> writing to the
> > > recordset (among other things).
> > >
> > > Larry Woods - MCSD, MCT
> > >
> > >
> > >
> > > > -----Original Message-----
> > > > From: Omar Esquivel [mailto:omare@u...]
> > > > Sent: Friday, July 19, 2002 10:01 PM
> > > > To: Access ASP
> > > > Subject: [access_asp] Help! -- I get error '800a0cb3'
> > > >
> > > >
> > > >
> > > > Hi,
> > > >
> > > > I'm a newbie on ASP with databases, and I'm trying to
> > > > write a record to a
> > > > database with fields on a web form to fields on that
> > > database.
> > > >
> > > > After I hit the submit button, I get this error:
> > > >
> > > > ADODB.Recordset error '800a0cb3'
> > > > Object or provider is not capable of performing
> > > > requested operation.
> > > >
> > > >
> > > > I should note that the Access Database is still empty,
> > > > with no records on
> > > > it, I'm trying this on a Windows NT 4 Workstation PC
> > > > with IIS 4 installed
> > > > on it, and this is the sample of the code I'm using to
> > > > try to write the
> > > > record to the database.
> > > > Am I missing something?, what am I doing wrong? ...
> > > > please I need help
> > > > deperately. My job depends on it.
> > > > THANx, here's the code:
> > > >
> > > > where "REQUEST" is the name of the Table and
> SUPPORT my DSN
> > > > --------------------------
> > > > Dim RS
> > > > Set RS=Server.CreateObject("ADODB.Recordset")
> > > > RS.Open "request", "DSN=support"
> > > >
> > > > 'Get fields from Web Form ---------------
> > > >
> > > > RS.AddNew
> > > > RS.Fields("nAnt") = Request.Form("frmAnt")
> > > > RS.Fields("UsrName") = Request.Form("frmName")
> > > > RS.Fileds("UsrDept") = Request.Form("frmDept")
> > > > RS.Fields("Problem") = Request.Form("frmProblem")
> > > > RS.Update
> > > >
> > > >
> > > >
> >
> >
> >
>
>
> _______________________________________________________
> __________
> Surf the Web without missing calls! Get MSN Broadband.
> http://resourcecenter.msn.com/access/plans/freeactivation.asp
>
>
Message #6 by "Jovanky Delossantos" <ccroute925@h...> on Thu, 31 Oct 2002 14:56:00 -0500
|
|
Thanks Larry
>From: "Larry Woods" <larry@l...>
>Reply-To: "Access ASP" <access_asp@p...>
>To: "Access ASP" <access_asp@p...>
>Subject: [access_asp] RE: Help! -- I get error '800a0cb3'
>Date: Thu, 31 Oct 2002 12:37:51 -0700
>
>Yep!
>
>objConn.Open StrConnect
>objRS....set properties
>objRS.Open "SELECT * ...blah, blah",objConn
>
>Larry Woods
>
> > -----Original Message-----
> > From: Jovanky Delossantos [mailto:ccroute925@h...]
> > Sent: Thursday, October 31, 2002 12:26 PM
> > To: Access ASP
> > Subject: [access_asp] RE: Help! -- I get error '800a0cb3'
> >
> >
> > But when I open the recordset instead, how can I use
> > the SELECT command
> > without execute a command?.
> >
> >
> >
> >
> >
> >
> > >From: "Larry Woods" <larry@l...>
> > >Reply-To: "Access ASP" <access_asp@p...>
> > >To: "Access ASP" <access_asp@p...>
> > >Subject: [access_asp] RE: Help! -- I get error '800a0cb3'
> > >Date: Thu, 31 Oct 2002 12:17:41 -0700
> > >
> > >No, I don't think that you read the COMPLETE note that I sent.
> > >
> > >An ADO Command returns a READ-ONLY recordset. Changing the
> > >properties of the recordset does NOT change this
> > fact. Instead
> > >of executing a command, you need to open a recordset.
> > THEN, you
> > >can make adds/updates.
> > >
> > >Larry Woods
> > >
> > >
> > > > -----Original Message-----
> > > > From: Jovy Giaza [mailto:CCROUTE925@h...]
> > > > Sent: Thursday, October 31, 2002 5:09 PM
> > > > To: Access ASP
> > > > Subject: [access_asp] RE: Help! -- I get error '800a0cb3'
> > > >
> > > >
> > > > Larry, maybe you can help me with this too, I'm having
> > > > the same problem
> > > > and I tried your solution but it did not work, please
> > > > take a look at my
> > > > code and see if you can provide some advice. Your
> > > > suggestions will be
> > > > greatly appreciated.
> > > >
> > > > Thanks
> > > > ------------------------------------
> > > > Dim FieldInput
> > > > FieldInput = Request.Form("FirmName")
> > > > Dim objCommand, objRS, objConn,
> > > > StrConnect
> > > > Set objCommand
> > > > Server.CreateObject("ADODB.Command")
> > > > Set objConn
> > > > Server.CreateObject("ADODB.Connection")
> > > > Set objRS
> > > > Server.CreateObject("ADODB.Recordset")
> > > > objRS.CursorType = 3
> > > > objRS.LockType = 3
> > > > StrConnect
> > > > "Provider=Microsoft.Jet.OLEDB.4.0;
> > > > Data Source=D:\TS\Pages\Documents\LHPPLUS.mdb"
> > > > objCommand.ActiveConnection
> > = strConnect
> > > >
> > > > objCommand.CommandText="Select
> > > > * FROM LHPLIST WHERE
> > > > firmname LIKE '" & FieldInput & "'"
> > > > objCommand.CommandType = adCmdText
> > > >
> > > > Set objRS = objCommand.Execute
> > > >
> > > >
> > > > Response.Write
> > > > objRS("Firmname")
> > > > objRS("Firmname") = Request.Form
> > > > ("Firmname")
> > > > objRS
> > > > ("City").Value = Request.Form("City")
> > > > objRS
> > > > ("State").Value = Request.Form("State")
> > > >
> > > > objRS("Registered
> > > > Domain Name").Value = Request.Form("RegDomain")
> > > > objRS
> > > > ("FirstName").Value = Request.Form("Firstname")
> > > >
> > > > objRS("Last
> > > > Name").Value = Request.Form("Lastname")
> > > > objRS
> > > > ("Emailaddress") = Request.Form("Email")
> > > >
> > > > objRS("Password")
> > > > = Request.Form("Password")
> > > >
> > > > objRS.Update
> > > >
> > > >
> > > > Set objCommand
> > > > Nothing
> > > > Set
> > > > objRS.Command
> > > > Nothing
> > > >
> > > > objRS.Close
> > > > Set objRS = Nothing
> > > > ------------------------------------------------------
> > > >
> > > >
> > > > >
> > > >
> > > > Here is part of a note that I sent to someone who was
> > > > probably in
> > > > the same boat as you...
> > > >
> > > >
> > > > The default recordset type is "read-only,
> > forward-only". Add
> > > > these statements:
> > > >
> > > > rs.CursorType=3 'Static cursor
> > > > rs.LockType=3 ' Optimistic lock
> > > >
> > > > That should do it. The first property defines a
> > > > recordset as one
> > > > that will allow updates (there are others, but for
> > > > your purposes
> > > > this should be sufficient) and the second allows
> > writing to the
> > > > recordset (among other things).
> > > >
> > > > Larry Woods - MCSD, MCT
> > > >
> > > >
> > > >
> > > > > -----Original Message-----
> > > > > From: Omar Esquivel [mailto:omare@u...]
> > > > > Sent: Friday, July 19, 2002 10:01 PM
> > > > > To: Access ASP
> > > > > Subject: [access_asp] Help! -- I get error '800a0cb3'
> > > > >
> > > > >
> > > > >
> > > > > Hi,
> > > > >
> > > > > I'm a newbie on ASP with databases, and I'm trying to
> > > > > write a record to a
> > > > > database with fields on a web form to fields on that
> > > > database.
> > > > >
> > > > > After I hit the submit button, I get this error:
> > > > >
> > > > > ADODB.Recordset error '800a0cb3'
> > > > > Object or provider is not capable of performing
> > > > > requested operation.
> > > > >
> > > > >
> > > > > I should note that the Access Database is still empty,
> > > > > with no records on
> > > > > it, I'm trying this on a Windows NT 4 Workstation PC
> > > > > with IIS 4 installed
> > > > > on it, and this is the sample of the code I'm using to
> > > > > try to write the
> > > > > record to the database.
> > > > > Am I missing something?, what am I doing wrong? ...
> > > > > please I need help
> > > > > deperately. My job depends on it.
> > > > > THANx, here's the code:
> > > > >
> > > > > where "REQUEST" is the name of the Table and
> > SUPPORT my DSN
> > > > > --------------------------
> > > > > Dim RS
> > > > > Set RS=Server.CreateObject("ADODB.Recordset")
> > > > > RS.Open "request", "DSN=support"
> > > > >
> > > > > 'Get fields from Web Form ---------------
> > > > >
> > > > > RS.AddNew
> > > > > RS.Fields("nAnt") = Request.Form("frmAnt")
> > > > > RS.Fields("UsrName") = Request.Form("frmName")
> > > > > RS.Fileds("UsrDept") = Request.Form("frmDept")
> > > > > RS.Fields("Problem") = Request.Form("frmProblem")
> > > > > RS.Update
> > > > >
> > > > >
> > > > >
> > >
> > >
> > >
> >
> >
> > _______________________________________________________
> > __________
> > Surf the Web without missing calls! Get MSN Broadband.
> > http://resourcecenter.msn.com/access/plans/freeactivation.asp
> >
> >
>
>
_________________________________________________________________
Protect your PC - get McAfee.com VirusScan Online
http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=3963
Message #7 by "Jovanky Delossantos" <ccroute925@h...> on Thu, 31 Oct 2002 15:38:43 -0500
|
|
Larry, you are the BEST!
it's working now,
Thank you man... I'm about to cry...
>From: "Larry Woods" <larry@l...>
>Reply-To: "Access ASP" <access_asp@p...>
>To: "Access ASP" <access_asp@p...>
>Subject: [access_asp] RE: Help! -- I get error '800a0cb3'
>Date: Thu, 31 Oct 2002 12:37:51 -0700
>
>Yep!
>
>objConn.Open StrConnect
>objRS....set properties
>objRS.Open "SELECT * ...blah, blah",objConn
>
>Larry Woods
>
> > -----Original Message-----
> > From: Jovanky Delossantos [mailto:ccroute925@h...]
> > Sent: Thursday, October 31, 2002 12:26 PM
> > To: Access ASP
> > Subject: [access_asp] RE: Help! -- I get error '800a0cb3'
> >
> >
> > But when I open the recordset instead, how can I use
> > the SELECT command
> > without execute a command?.
> >
> >
> >
> >
> >
> >
> > >From: "Larry Woods" <larry@l...>
> > >Reply-To: "Access ASP" <access_asp@p...>
> > >To: "Access ASP" <access_asp@p...>
> > >Subject: [access_asp] RE: Help! -- I get error '800a0cb3'
> > >Date: Thu, 31 Oct 2002 12:17:41 -0700
> > >
> > >No, I don't think that you read the COMPLETE note that I sent.
> > >
> > >An ADO Command returns a READ-ONLY recordset. Changing the
> > >properties of the recordset does NOT change this
> > fact. Instead
> > >of executing a command, you need to open a recordset.
> > THEN, you
> > >can make adds/updates.
> > >
> > >Larry Woods
> > >
> > >
> > > > -----Original Message-----
> > > > From: Jovy Giaza [mailto:CCROUTE925@h...]
> > > > Sent: Thursday, October 31, 2002 5:09 PM
> > > > To: Access ASP
> > > > Subject: [access_asp] RE: Help! -- I get error '800a0cb3'
> > > >
> > > >
> > > > Larry, maybe you can help me with this too, I'm having
> > > > the same problem
> > > > and I tried your solution but it did not work, please
> > > > take a look at my
> > > > code and see if you can provide some advice. Your
> > > > suggestions will be
> > > > greatly appreciated.
> > > >
> > > > Thanks
> > > > ------------------------------------
> > > > Dim FieldInput
> > > > FieldInput = Request.Form("FirmName")
> > > > Dim objCommand, objRS, objConn,
> > > > StrConnect
> > > > Set objCommand
> > > > Server.CreateObject("ADODB.Command")
> > > > Set objConn
> > > > Server.CreateObject("ADODB.Connection")
> > > > Set objRS
> > > > Server.CreateObject("ADODB.Recordset")
> > > > objRS.CursorType = 3
> > > > objRS.LockType = 3
> > > > StrConnect
> > > > "Provider=Microsoft.Jet.OLEDB.4.0;
> > > > Data Source=D:\TS\Pages\Documents\LHPPLUS.mdb"
> > > > objCommand.ActiveConnection
> > = strConnect
> > > >
> > > > objCommand.CommandText="Select
> > > > * FROM LHPLIST WHERE
> > > > firmname LIKE '" & FieldInput & "'"
> > > > objCommand.CommandType = adCmdText
> > > >
> > > > Set objRS = objCommand.Execute
> > > >
> > > >
> > > > Response.Write
> > > > objRS("Firmname")
> > > > objRS("Firmname") = Request.Form
> > > > ("Firmname")
> > > > objRS
> > > > ("City").Value = Request.Form("City")
> > > > objRS
> > > > ("State").Value = Request.Form("State")
> > > >
> > > > objRS("Registered
> > > > Domain Name").Value = Request.Form("RegDomain")
> > > > objRS
> > > > ("FirstName").Value = Request.Form("Firstname")
> > > >
> > > > objRS("Last
> > > > Name").Value = Request.Form("Lastname")
> > > > objRS
> > > > ("Emailaddress") = Request.Form("Email")
> > > >
> > > > objRS("Password")
> > > > = Request.Form("Password")
> > > >
> > > > objRS.Update
> > > >
> > > >
> > > > Set objCommand
> > > > Nothing
> > > > Set
> > > > objRS.Command
> > > > Nothing
> > > >
> > > > objRS.Close
> > > > Set objRS = Nothing
> > > > ------------------------------------------------------
> > > >
> > > >
> > > > >
> > > >
> > > > Here is part of a note that I sent to someone who was
> > > > probably in
> > > > the same boat as you...
> > > >
> > > >
> > > > The default recordset type is "read-only,
> > forward-only". Add
> > > > these statements:
> > > >
> > > > rs.CursorType=3 'Static cursor
> > > > rs.LockType=3 ' Optimistic lock
> > > >
> > > > That should do it. The first property defines a
> > > > recordset as one
> > > > that will allow updates (there are others, but for
> > > > your purposes
> > > > this should be sufficient) and the second allows
> > writing to the
> > > > recordset (among other things).
> > > >
> > > > Larry Woods - MCSD, MCT
> > > >
> > > >
> > > >
> > > > > -----Original Message-----
> > > > > From: Omar Esquivel [mailto:omare@u...]
> > > > > Sent: Friday, July 19, 2002 10:01 PM
> > > > > To: Access ASP
> > > > > Subject: [access_asp] Help! -- I get error '800a0cb3'
> > > > >
> > > > >
> > > > >
> > > > > Hi,
> > > > >
> > > > > I'm a newbie on ASP with databases, and I'm trying to
> > > > > write a record to a
> > > > > database with fields on a web form to fields on that
> > > > database.
> > > > >
> > > > > After I hit the submit button, I get this error:
> > > > >
> > > > > ADODB.Recordset error '800a0cb3'
> > > > > Object or provider is not capable of performing
> > > > > requested operation.
> > > > >
> > > > >
> > > > > I should note that the Access Database is still empty,
> > > > > with no records on
> > > > > it, I'm trying this on a Windows NT 4 Workstation PC
> > > > > with IIS 4 installed
> > > > > on it, and this is the sample of the code I'm using to
> > > > > try to write the
> > > > > record to the database.
> > > > > Am I missing something?, what am I doing wrong? ...
> > > > > please I need help
> > > > > deperately. My job depends on it.
> > > > > THANx, here's the code:
> > > > >
> > > > > where "REQUEST" is the name of the Table and
> > SUPPORT my DSN
> > > > > --------------------------
> > > > > Dim RS
> > > > > Set RS=Server.CreateObject("ADODB.Recordset")
> > > > > RS.Open "request", "DSN=support"
> > > > >
> > > > > 'Get fields from Web Form ---------------
> > > > >
> > > > > RS.AddNew
> > > > > RS.Fields("nAnt") = Request.Form("frmAnt")
> > > > > RS.Fields("UsrName") = Request.Form("frmName")
> > > > > RS.Fileds("UsrDept") = Request.Form("frmDept")
> > > > > RS.Fields("Problem") = Request.Form("frmProblem")
> > > > > RS.Update
> > > > >
> > > > >
> > > > >
> > >
> > >
> > >
> >
> >
> > _______________________________________________________
> > __________
> > Surf the Web without missing calls! Get MSN Broadband.
> > http://resourcecenter.msn.com/access/plans/freeactivation.asp
> >
> >
>
>
_________________________________________________________________
Surf the Web without missing calls! Get MSN Broadband.
http://resourcecenter.msn.com/access/plans/freeactivation.asp
|
|
|
View Cart
