Autor Tema: Como Editan Con Ado (Leído 1809 veces)

UserCode · « **en:** Sábado 9 de Junio de 2007, 22:26 »

Hola desarrolladores

Me gustaría conocer como editan en ADO, yo debo recurrir al control Adodc asi:

Código: Text

 
Adodc1.CommandType = adCmdText
Adodc1.ConnectionString = conexion
Adodc1.RecordSource = &#34;Select * From agenda_tb Where nombre='&#34; & txtNombre.Text & &#34;'&#34;
Adodc1.Refresh
Adodc1.RecordSource = &#34;Select * From agenda_tb Where nombre='&#34; & txtNombre.Text & &#34;'&#34;
Adodc1.Recordset.Fields(&#34;nombre&#34;) = txtNombre.Text
Adodc1.Recordset.Fields(&#34;telefhab&#34;) = txtTelefHab.Text
Adodc1.Recordset.Fields(&#34;telefcel&#34;) = txtTelefCel.Text
Adodc1.Recordset.Fields(&#34;correo&#34;) = txtEmail.Text
Adodc1.Recordset.Fields(&#34;direccion&#34;) = txtDireccion.Text
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox &#34;El Registro ha sido Actualizado&#34;, vbInformation, &#34;Control de Registros&#34;
 
 

La variable "conexion" pues se trae toda la cadena de conexión para el control Adodc, pero fuera de Editar, el resto lo puedo manejar sin usar el control Ado, es decir, lo tengo solo por este código.

Con DAO uno solo colocaba con una variable Recordset: Rs.Edit y todos felices

Pero con ADO, Rs.EditMode no conozco qué le faltaria para funcionar, porque yo puedo por ejemplo cambiar solo el codigo de conexión, pasando de DAO a ADO y el resto del código seguiría igual exceptuando el de Editar.

En el caso de no querer usar un control Adodc sino por variable Recordset, como Editan, como lo hacen

ArKaNtOs

Set con = New ADODB.Connection
con.ConnectionString = "driver={MySQL ODBC 3.51 Driver};server=miserver;uid=usuario;pwd=mipass;database=midb;connection="
con.Open

Dim Consulta As String
Consulta = "SELECT * FROM Mi tabla"
Set rs = New ADODB.Recordset

With rs
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open Consulta
End With

'eso es lo que yo utilizo para conectarme

'y para editar solo basta hacer

rs.fields("micampo1")=mival1
rs.fields("micampo2")=mival2
rs.fields("micampo3")=mival3
rs.update

' y todo listo

UserCode

y donde indicas cuál de tantos regisros es el que estas editando? ahi la SQL dice "Select * From Tabla" no hay Where

Pero ya veo, todo un proceso de conexion sea por control o variable para luego directamente meter los datos, ese codigo que puse ahí esta dentro de un If TexT=Rs!Campo Then el cual está dentro de un bucle While

Código: Text

 
If Rs.RecordCount &#62; 0 Then 'para que el .movefirst no de error
   Rs.MoveFirst
   While Not Rs.EOF
         If Text1=Rs(&#34;Campo&#34;) Then
               Aqui todo el codigo anterior de edicion
               con esto sé que estoy parado en ese registro
              Exit Sub
         End If
         Rs.MoveNext
   Wend
   Msgbox &#34;Registro No Encontrado&#34;, vbInformation, &#34;Aviso&#34;
 
 

Si, muy semejante con lo mio del Adodc, no se diferencia mucho, ya vi, voy a ponerlo a variable y quito el control, me gusta más asi.

ArKaNtOs

eso que estas haciendo seria algo muy lento lo mejor es hacer un where en la consulta y listo, yo no lo puse porque simplemente asumi que lo harias

UserCode

Si, totalmente de acuerdo contigo, un Where y listo

SoloCodigo

Autor Tema: Como Editan Con Ado (Leído 1809 veces)

UserCode

Como Editan Con Ado

ArKaNtOs

Re: Como Editan Con Ado

UserCode

Re: Como Editan Con Ado

ArKaNtOs

Re: Como Editan Con Ado

UserCode

Re: Como Editan Con Ado