Hola a todos!
estoy trabajando con visual basic 6.0 y firebird (antiguo interbase de borland), el caso es que intento utilizar el recordset para insertar datos en la base de datos, y no hay manera... me sale el siguiente mensaje de error: el recordset actual no admite actualizaciones, puede ser una limitación del proveedor o del tipo de bloqueo seleccionado. El código que tengo es el siguiente:
Option Explicit
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Private Sub Form_Load()
Set rst = New ADODB.Recordset
cnn.Open "DRIVER=Firebird/InterBase® driver;UID=SYSDBA;PWD=masterkey;Server=SERVIDOR;DBNAME=SERVIDOR:BDatNueva"
End Sub
Private Sub Command1_Click()
rst.ActiveConnection = cnn
rst.Source = "select TCALDERAS.MODELO, TCALDERAS.FABRICANTE from TCALDERAS"
cnn.BeginTrans
rst.Open
With rst
.AddNew "TCALDERAS.MODELO", Text1.Text
.Fields("TCALDERAS.MODELO").Value = Text1.Text
.Update
End With
cnn.CommitTrans
Command1.Enabled = False
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub
Si alguien pudiese orientarme sobre el tema, se lo agradeceria mucho, es la primera vez que uso estas tecnologías y es un mundo totalmente desconocido para mi. Por lo que he podido ver creo que pueda deberse a las propiedades del recordset (que este en solo lectura.. o algo asi), ya que utilizando insert desde visual basic si que me inserta los datos en la tabla sin problemas...
Muchas gracias, saludos!!
