ADO insert

[octane]

I'm using VB6 and SQL Server 7
Here is the code

Dim rcd As New ADODB.Recordset

Private Sub cmdGuardar_Click()
Dim sSQL As String
sSQL = "select * from alta_prod where id_prod = 0"

rcd.Open sSQL, cn, adOpenKeyset, adLockOptimistic
rcd.AddNew
rcd.Fields("ID_PROD&quot = cmbProductos.ItemData(cmbProductos.ListIndex)
rcd.Fields("FEC_ALTA&quot = Date
rcd.Fields("CANT_PROD_ALTA&quot = txtCantidad
rcd.Fields("REALIZO_ALTA&quot = txtRealizo

rcd.Update 'at this point the VB hangs up
rcd.Close
End Sub

The program inserts data into the table but after that the program Locks and not responding, There aren't any VB error o SQL error, the app just hangs up

 

[hmckillop]

Why do you want to restrict the recordset to one record (i.e. where id_prod=0) and then try to add new records to it?
Try putting your sql as just "alta_prod", or "Select * from alta_prod" and it may sort your problem.

Also put a timeout for your connection for 15 seconds and the app should only hang for 15 seconds if things dont work.

 

[courtoisf]

Since nothing seems to be happening that would require a recordset, why use one at all? Just set up your connection object and use conObject.execute strSQL, where strsql is an "Insert..." sql statement. It will do a quick deposit of the new line, and a lot faster than the recordset/addnew approach.