Error on Select using ADO
The following is an extract from a VB6 application I am writing:
Code:
Dim MyConn As ADODB.Connection
Dim MyRecSet As ADODB.Recordset
Set MyConn = New ADODB.Connection
MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = D:\Data\Orion-Testing\TestServer\Inventory.mdb"
MyConn.Open
Set MyRecSet = MyConn.Execute("Select * from GenericToAlt where dbAltPN = '" & cboAltPart.Text & "'")
If MyRecSet.RecordCount = 0 Then
Stop
End If
I am getting the error: "No value given for one or more required parameters.". It is happening on the "Set MyRecSet ..." statement.
As I step the code, the value of cboAltPart.Text is correct.
Here is the layout of the Table:
TableName: GenericToAlt
dbAtlPN text 30
dbAltPO text 10
There are NO primary or secondary indexes.
I can NOT find the problem. Can YOU help?
Re: Error on Select using ADO
If you are returning a RS, then use OPEN
Re: Error on Select using ADO
Dear friend pepsisc,
use your query in the following format, and it will works..100%!
Code:
Dim MyConn As ADODB.Connection
Dim MyRecSet As ADODB.Recordset
Set MyConn = New ADODB.Connection
MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = D:\Data\Orion-Testing\TestServer\Inventory.mdb"
MyConn.Open
Set MyRecSet = MyConn.Execute("SELECT GenericToAlt.dbAtlPN, GenericToAlt.dbAltPO
FROM GenericToAlt where GenericToAlt.dbAltPN = '" & cboAltPart.Text & "'")
If MyRecSet.RecordCount = 0 Then
Stop
End If;
Enjoy !:wave:
Quote:
Originally Posted by pepsisc
The following is an extract from a VB6 application I am writing:
Code:
Dim MyConn As ADODB.Connection
Dim MyRecSet As ADODB.Recordset
Set MyConn = New ADODB.Connection
MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = D:\Data\Orion-Testing\TestServer\Inventory.mdb"
MyConn.Open
Set MyRecSet = MyConn.Execute("Select * from GenericToAlt where dbAltPN = '" & cboAltPart.Text & "'")
If MyRecSet.RecordCount = 0 Then
Stop
End If
I am getting the error:
"No value given for one or more required parameters.". It is happening on the "Set MyRecSet ..." statement.
As I step the code, the value of cboAltPart.Text is correct.
Here is the layout of the Table:
TableName: GenericToAlt
dbAtlPN text 30
dbAltPO text 10
There are NO primary or secondary indexes.
I can NOT find the problem. Can YOU help?
Re: Error on Select using ADO
Quote:
Originally Posted by pepsisc
Code:
If MyRecSet.RecordCount = 0 Then
firstly it's posible that MyRecSet.RecordCount returns -1 to use Exceute stament.
Quote:
Originally Posted by pepsisc
As I step the code, the value of cboAltPart.Text is correct.
what value cboAltPart.Text takes?
Re: Error on Select using ADO
it will be a Textual value , as the ' prefixed and postfixed to it in the query !
Re: Error on Select using ADO
cboAltPart.Text must be empty.
Try to run query with some hard coded string.
