<div>
HI Momar,<br />
<br />
What is dgInventory? &nbsp;I don't see the declaration.<br />
<br />

</div>


HI Momar,

What is dgInventory?  I don't see the declaration.



<div>
It's a DataGrid, just wanted to display the results in a DataGrid.
</div>


It's a DataGrid, just wanted to display the results in a DataGrid.

<div>
my guess is that PartNumber is defined as a numeric on the DB, but you are passing a string in.<br />
<br />
Change to:<br />
<br />
sqlStringInventory = &quot;Select PartNumber, PartName, Quanitity, Price, DatePurchased, Description From Inventory Where PartNumber = &quot;&nbsp;&amp; val(txtPartNum.Text)<br />
<br />

</div>


my guess is that PartNumber is defined as a numeric on the DB, but you are passing a string in.

Change to:

sqlStringInventory = "Select PartNumber, PartName, Quanitity, Price, DatePurchased, Description From Inventory Where PartNumber = " & val(txtPartNum.Text)



<div>
<div class="content wysiwyg-content">
Why do I get the following error in VB when I run this code? &nbsp;Heh I haven't done vb in a very long time, so the answer may be simple....<br />
<br />
[ODBC Microsoft Access Driver]Too Few Parameters<br />
Expected 1<br />
<br />
Code:<br />
<br />
&nbsp;sqlStringInventory = &quot;Select PartNumber, PartName, Quanitity, Price, DatePurchased, Description From Inventory Where PartNumber = '&quot; &amp;&nbsp;txtPartNum.Text &amp;&nbsp;&quot;'&quot;<br />
&nbsp; &nbsp; &nbsp;Connect_Inventory (sqlStringInventory)<br />
&nbsp; &nbsp; &nbsp;Set dgInventory.DataSource = rsInventory<br />
<br />
Public Sub Connect_Inventory(sqlStrin<wbr />g)<br />
&nbsp; &nbsp; Set db1 = New ADODB.Connection<br />
&nbsp; &nbsp; db1.Open &quot;Provider=MSDASQL;DSN=Adin<wbr />System&quot;<br />
&nbsp; &nbsp; Set rsInventory = New ADODB.Recordset<br />
&nbsp; &nbsp; rsInventory.Open sqlString, db1, adOpenKeyset, adLockPessimistic<br />
End Sub<br />
<br />
Any help would be great, thanks
</div>
</div>


Why do I get the following error in VB when I run this code?  Heh I haven't done vb in a very long time, so the answer may be simple....

[ODBC Microsoft Access Driver]Too Few Parameters
Expected 1

Code:

 sqlStringInventory = "Select PartNumber, PartName, Quanitity, Price, DatePurchased, Description From Inventory Where PartNumber = '" & txtPartNum.Text & "'"
     Connect_Inventory (sqlStringInventory)
     Set dgInventory.DataSource = rsInventory

Public Sub Connect_Inventory(sqlString)
    Set db1 = New ADODB.Connection
    db1.Open "Provider=MSDASQL;DSN=AdinSystem"
    Set rsInventory = New ADODB.Recordset
    rsInventory.Open sqlString, db1, adOpenKeyset, adLockPessimistic
End Sub

Any help would be great, thanks

Run-Time Error, what's wrong?

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.