Error on Select using ADO

[pepsisc]

The following is an extract from a VB6 application I am writing:

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?

[dglienna]

If you are returning a RS, then use OPEN

MyConn.Open

[rahul.kul]

Dear friend pepsisc,

use your query in the following format, and it will works..100%!

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 !

The following is an extract from a VB6 application I am writing:

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?

[hensa22]

If MyRecSet.RecordCount = 0 Then

firstly it's posible that MyRecSet.RecordCount returns -1 to use Exceute stament.

As I step the code, the value of cboAltPart.Text is correct.

what value cboAltPart.Text takes?

[rahul.kul]

it will be a Textual value , as the ' prefixed and postfixed to it in the query !

[Shaikh.Riyaz.a]

cboAltPart.Text must be empty.

Try to run query with some hard coded string.