Inserting Rows onSQL w/ VB

[Miguelarod]

I have a series of text boxes that I want to insert their value into a new record on a MS SQL 7.0 server.
I am trying to use the INSERT command.

Me.Details.RecordSource = "INSERT into PO (PO_Number, Model) values ('" & txtinPO & "', '" & txtinmod & "'); commit;"

I get no errors but nothing is updated either.
What am I doing wrong?

 

[culshaja]

Don't understand what you are doing but one way to do is as follows that uses ADO:

Dim cnDB as ADODB.Connection
Dim cmAddData as ADODB.Command

set cnDB as New ADODB.Connection
cnDB.ConnectionString = "your DSN or Connection String"
cnDB.Open

set cmAddData = New ADODB.Command
set cmAddData = cnDB
cmAddData.CommandType = adText
cmAddData.CommandText = "INSERT into PO (PO_Number, Model) values ('" & txtinPO & "', '" & txtinmod & "')"
cmAddData.Execute

Hope this helps, sorry if it doesn't as I didn't understand what you wanted!

James James Culshaw
jculshaw@active-data-solutions.co.uk

http://www.active-data-solutions.co.uk

http://www.brainbench.com/transcript.jsp?pid=193305

 

[gantibabu]

Hi, ur sql statement is correct but u need to execute it before anything gets updated. Try it. All the best...vijay