Auxiliooooooooooooooooooooooooooooo por favor ayudenme segun lei en un manual mediante
recsql.update
deberia poder modificar los registros pero no me deja .. lo q esta aciendo es q el registro que modifica lo esta repitiendo las veces que tenga un resgistro q no sea vacio...
si le coloco el update me manda error, de q muchos campos fueron modificados y me saca de la ejecucion :(
Ayuda :(
Cita: Private Sub Command3_Click()
Dim BD As ADODB.Connection
Dim RecSQL As ADODB.Recordset
Dim ind As Integer
Dim x As Integer
Dim Tiene_Informacion As Boolean
Set BD = CONECTAR()
Set RecSQL = New ADODB.Recordset
RecSQL.Open "select * from provs", BD, adOpenStatic, adLockOptimistic
EstadoB.Text = "Autorizado"
ind = 0
Do While ind < 10 And _
Trim$(DescripcionB(ind).Text) <> "" And _
(MontoB(ind).Text) <> ""
des = Trim$(DescripcionB(ind).Text)
cost = MontoB(ind).Text
RecSQL.Fields(0).Value = Trim$(Num_docB.Text)
RecSQL.Fields(1).Value = des
RecSQL.Fields(2).Value = cost
RecSQL.Fields(3).Value = TotMontoB.Text
RecSQL.Fields(4).Value = FechaB.Text
RecSQL.Fields(5).Value = EstadoB.Text
RecSQL.Fields(6).Value = Trim$(CreadoB.Text)
RecSQL.Fields(7).Value = Form1.nom & " " & Form1.apel
RecSQL.Fields(8).Value = "."
RecSQL.Fields(9).Value = "."
RecSQL.Fields(10).Value = Form1.dir2
RecSQL.Fields(11).Value = Form1.dept2
RecSQL.Fields(12).Value = Form1.site2
RecSQL.Update ' aki manda el error....
des = ""
cost = ""
ind = ind + 1
Loop
continua = MsgBox("Prevision Autorizada, ¿Desea buscar otra prevision?", vbOK, "Continuar...")
If (continua = vbOK) Then
Unload Me
Load Form3
Else
Unload Me
End If
End Sub
Por favor ayuda