Hello, I am new to VB6 and to the forums. I am attempting to make a form that allows the user to fill out text boxes that will add a new item to the inventory which is displayed as a datagrid on another form. I have the datagrid set up to display the records it currently has but when I try to add new records it seems to not know how to find the database. My code is as follows.
<code>
Private Sub Command1_Click()
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=INVENTORY.mdb;Persist Security Info=False"
Set frmData3.DataGrid1.DataSource = rs
frmData3.DataGrid1.rs.Fields("itemName") = itemName.Text
frmData3.DataGrid1.rs.Fields("itemType") = itemType.Text
frmData3.DataGrid1.rs.Fields("itemNumber") = itemNumber.Text
frmData3.DataGrid1.rs.Fields("itemQuantity") = itemQuantity.Text
frmData3.DataGrid1.rs.Fields("itemCost") = itemCost.Text
frmData3.DataGrid1.rs.Fields("itemPrice") = itemPrice.Text
frmData3.DataGrid1.rs.Update
MsgBox "Item Added!"
End Sub
</code>
Any help is appreciated! Thank you in advance :)
<code>
Private Sub Command1_Click()
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=INVENTORY.mdb;Persist Security Info=False"
Set frmData3.DataGrid1.DataSource = rs
frmData3.DataGrid1.rs.Fields("itemName") = itemName.Text
frmData3.DataGrid1.rs.Fields("itemType") = itemType.Text
frmData3.DataGrid1.rs.Fields("itemNumber") = itemNumber.Text
frmData3.DataGrid1.rs.Fields("itemQuantity") = itemQuantity.Text
frmData3.DataGrid1.rs.Fields("itemCost") = itemCost.Text
frmData3.DataGrid1.rs.Fields("itemPrice") = itemPrice.Text
frmData3.DataGrid1.rs.Update
MsgBox "Item Added!"
End Sub
</code>
Any help is appreciated! Thank you in advance :)