thegreat1

Hi i am trying to trying to delete a reocrd from a Microsoft Access Database in Visual Basic 2005 Express Edition, but come up with this error with the following code. I'm new to vb 2005 and I'm no expert. Appreciate any help given.

-----------------
InvalidCastException was unhandled
Unable to cast COM object of type 'System.__ComObject' to class type 'System.Windows.Forms.TextBox'. Instances of types that represent COM components cannot be cast to types that do not represent COM components; however they can be cast to interfaces as long as the underlying COM component supports QueryInterface calls for the IID of the interface

Dim db1 As Connection
Dim rs As Recordset

db1 = New ADODB.Connection
db1.Provider = "Mircosoft.jet.OLEDB.4.0;"
db1.ConnectionString = "Provider = 'Microsoft.Jet.OLEDB.4.0';Data Source = 'M:\Year2 New\262CS\vb cwrk1\vb cwrk1\orders.mdb';"
db1.Open()
rs = New ADODB.Recordset
rs.Open("select * from orders", db1, ADODB.CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic)

txtOrderID = rs("OrderID")
txtProduct = rs("Product")
txtPrice = rs("UnitPrice")
txtQuantity = rs("Quantity")
txtDate = rs("OrderDate")
txtRecieved = rs("Received")
txtSupplierID = rs("SupplierID")

Also when i try to add a record to a database i get the following error i have made sure all the data i have typed in the text boxes are the correct data types.

COME Exception was unhandled
No value given for one or more required parameters.

Dim objcommand As Command = New Command()
Dim conn As Connection = New Connection()
Dim cmdreader As Recordset = New Recordset

conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=M:\Year2 New\262CS\vb cwrk1\vb cwrk1\orders.mdb")
objcommand.ActiveConnection = conn

Dim stqSQLInsert As String
stqSQLInsert = "INSERT INTO Orders(OrderID, Product, Unitprice, Quantity, Orderdate, Received, SupplierID) VALUES (txtOrderID.Text, txtProduct.Text, txtPrice.Text, txtQuantity.Text, txtDate.Text, txtReceived.Text, txtSupplierID.Text)"

objcommand.CommandText = stqSQLInsert
cmdreader.Open(stqSQLInsert, conn, CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic)

objcommand.Execute()
cmdreader.Update()

Thnx to any who helps...




Re: Visual Studio WPF Designer Visual Basic 2005 Problem

Marco Goertz - MSFT

You may want to post your question in a data-centric forum, such as .NET Framework Data Access and Storage.

This forum is dedicated to questions and discussions about the Visual Studio designer for Windows Presentation Foundation.






Re: Visual Studio WPF Designer Visual Basic 2005 Problem

thegreat1

ok i have done that.



Re: Visual Studio WPF Designer Visual Basic 2005 Problem

Blinky

Believe u were looking for this answer:

txtWeek.Text = rs.Fields("Week").Value.ToString
txtBall1.Text = rs.Fields(1).Value.ToString
txtBall2.Text = rs(2).Value.ToString

All of these combinations appear to work.

Bill.
04-03-07