Visual Basic - Oracle no me guarda los datos

Life is soft - evento anual de software empresarial
 
Vista:

Oracle no me guarda los datos

Publicado por Jose (20 intervenciones) el 11/05/2003 18:34:04
buenas, pues tengo un problemilla al conectar (supongo que es la conexion) oracle con vb6. Tengo todo enlazado, los txtbox con el recordset, pero al hacer un rs.update, no me guarda los datos, solamente me los guarda mientras tengo el formulario abierto, pero no fisicamente el la base de datos, les adjunto la funcion que tengo para conectar el recordset con oracle

Sub ConectarOracle(ByRef rec As ADODB.Recordset, ByRef con As ADODB.Connection, taula As String)
Dim strOracle As String

Set con = New ADODB.Connection
Set rec = New ADODB.Recordset

strOracle = "Provider=MSDAORA.1;Password=jose;" & "User ID=jose;"
con.Open strOracle

Set rec.ActiveConnection = con
rec.CursorLocation = adUseClient
rec.CursorType = adOpenDynamic
rec.LockType = adLockBatchOptimistic
rec.Open taula
End Sub

taula es la tabla donde quiero conectarme. En el programa, declaro el recordset como global al igual que la conexion.

esto es lo que tengo el el form_load
Private Sub Form_Load()
Call ConectarOracle(rs, cn, "usuari")
Set txtUsuari.DataSource = rs
txtUsuari.DataField = "idUsuari"
rs.Fields("idUsuari") = txtUsuari 'inicialmente esto no estaba, me dijeron que no me funcionaba porque no ponia esto, pero ahora tampoco me funciona
Set txtNom.DataSource = rs
txtNom.DataField = "nom"
rs.Fields("nom") = txtNom
Set txtPasw.DataSource = rs
txtPasw.DataField = "password"
rs.Fields("password") = txtPasw
Set txtCategoria.DataSource = rs
txtCategoria.DataField = "categoria"
rs.Fields("categoria") = txtCategoria
End Sub

que es lo que hago mal???
Saludos! y perdon por la parrafada, xo es que he probado de todo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder