Re: ayuda con ingreso a BD

Ivan Caro wrote:

>hola amigos, estoy recién empezando con PostgreSQL y
>he buscado información para poder hacer una conexión
>desde Visual Basic 6... no he podido encontrar mucha
>información. el problema es que hice una conexión y al
>tratar de guardar datos en la base el programa no
>arroja ningún error, pero en la base no se guardan
>datos...
>no manejo mucho sql y me ha costado poder realizarlo.
>
>les envío mi codigo para ver si pueden guiarme.
>
>Sub grabar()
>Dim inserta As String
>
> Dim DB As New Connection
> Dim rsInstrumentos As New Recordset
>
> On Error GoTo Error_Guardar
>
> DB.Open "driver={PostgreSQL};" & "DATABASE=sipi;" & _
> "SERVER=localhost;" & "PORT=5432;" &
>"UID=postgres;" & _
> "pwd=stefansk"
>
>DB.BeginTrans
>
>MsgBox ("conexion exitosa")
>
>
> rsInstrumentos.Open "instrumentos", _
> DB, _
> adOpenKeyset, _
> adLockOptimistic, _
> adCmdTable
>
>rsInstrumentos.AddNew
> rsInstrumentos!n_serie = txtserie.Text
> rsInstrumentos!nombre_i = txtnom.Text
> rsInstrumentos!descripcion = txtdesc.Text
> rsInstrumentos!estado_i = cmb_estado
> rsInstrumentos.Update
> rsInstrumentos.Close
>
>Error_Guardar:
> If Err_Number <> 0 Then
> DB.RollbackTrans
>
> MsgBox "error: " & Err.Number & " - " &
>Err.Description
>
> Else
> DB.CommitTrans
> MsgBox "Instrumento Registrado " &
>"exitosamente"
>
> End If
>
>End Sub
>
>como esto no funcionaba intenté usar un codigo como
>este:
>
>insertar = ("INSERT INTO instrumentos VALUES
>('txtserie', 'txtnom', 'txtdesc', 'cmb_estado')")
>
>pero no he podido almacenar en la base de datos.
>
> cualquier ayuda les agradezco.
>
> Ivan.
>
>__________________________________________________
>Correo Yahoo!
>Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
>Regístrate ya - http://correo.espanol.yahoo.com/
>
>---------------------------(fin del mensaje)---------------------------
>TIP 2: puedes desuscribirte de todas las listas simultáneamente
> (envíe "unregister TuDirecciónDeCorreo" a majordomo(at)postgresql(dot)org)
>
>
>
Por experiencia: no utilices adOpenKeyset, tendrás poblemas ya que te
abrirá el recordset en solo lectura (sí, en teoria tendria que
funcionar). Utiliza adOpenStatic.
Para ejecutar la última sentencia que indicas (o cualquiera) tienes que
hacer:
DB.execute ("INSERT INTO instrumentos VALUES ('txtserie', 'txtnom',
'txtdesc', 'cmb_estado')")

Toni