CODIGO PARA ACTUALIZAR BASE DE DATOS

_Rodrigo_
01 de Marzo del 2004
HOLA.
SOY PRINCIPIANTE EN VB6... MI CONSULTA ES:
TENGO MI FORMULARIO CON 3 TEXTBOX Y QUIERO ACTUALIZAR MI TABLA DATOS CON EL CAMPO CLAVE RUT EN ACCESS Y TENGO LOS MISMO EN SQL (ME PARESE QE EL CODIGO DE SQL Y ACCESS CAMBIA: ESO TAMBIEN ME GUSTARIA SABER)..... HABER SI ALGUIEN ME PUEDE MOSTRAR UN CODIGO QE ACTUALIZE UNA TABLA DE BASE DE DATOS ACCESS Y UNA TABLA DE BASE DE DATOS SQL.... OK MUCHAS GRASIAS!!!

mapacha
01 de Marzo del 2004
pues mira en vb se actualiza asi:
data1.recordset.addnew
data1.recordset("clave")=text1.text
data1.recordset.update
data1.refresh

este codigo se utiliza si tu tienes la base de datos de access conectada con u8n data.
y francamente en sql no se como.
espero te sirva esto.
saludos desde chihuahua,mexico.

MASTERVISUAL
01 de Marzo del 2004
UN SALUDO DE VENEZUELA PARA TI.

CON RESPECTO A TU PREGUNTA TE PUEDO DAR LOS SIGUIENTE ASPECTOS:

1. REALIZA VARIOS BOTONES EN EL FORMULARIO PRINCIPAL DE VISUAL BASIC.
A.AGREGAR.
B.GRABAR.
C.CONSULTA.
D.MODIFICAR.
E.REPORTE.
F.SALIR
CADA UNO DE ESTOS BOTONES GENERA UN PROCEDIMIENTO DE EVENTO BUENO EN LA PROPIEDAD NAME CAMBIA A :
PROPIEDAD:NAME
A.AGREGAR. CMDAGREGAR_CLICK()
B.GRABAR. CMDGRABAR_CLICK()
C.CONSULTA. CMDCONSULTA_CLICK()
D.MODIFICAR. CMDMODIFICAR_CLICK()
E.REPORTE. CMDREPORTE_CLICK()
F.SALIR CMDVOLVER_CLICK

AHORA BIEN SI LA BASE DE DATOS ESTA EN ACCESS 97 NO EXISTE NINGUN PROBLEMA.

PRIVATE CMDAGREGAR_CLICK()
busca = InputBox("Introduzca el Codigo", "Sistema Fajes")
criterio = " codigoi = '" & busca & "'"
Data1.Recordset.FindFirst criterio
If Data1.Recordset.NoMatch = True Then
Data1.Recordset.AddNew
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text1.Text = busca
Text2.SetFocus
Else
res = MsgBox("Codigo ya existe ", vbQuestion, "Sistema Fajes")
End If
end sub

private cmdgrabar_click()

res = MsgBox("Desea Guardar Estos Datos ", vbOKOnly + vbYesNo, "ADVERTENCIA")
If res = vbYes Then
Data1.Recordset("numero") = 10
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Data1.Recordset.Update
Data1.Refresh
Else
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Data1.Recordset.CancelUpdate
Data1.Refresh
End If

y de esta manera no te da ningun error.
cualquier cosa avisame amigo a mi correo [email protected] o [email protected]

saludos de venezuela
end sub