Adodc y access

He hecho un form con varios controles entre ellos 2 textbox un dbcombo ligado a un data control el cual a su vez esta ligado a una bd y a una tabla (dirdis). Los dos textbox reflejan la selección del dbcombo "CUENTA" Y "NOMBRE".
En el mismo form tengo otros 2 textbox
Con el mismo texto de los primeros textbox y los cuales están ligados a un adodc el cual a su vez esta ligado a una bd y a una tabla (dirdis1) vacía.
Lo que quiero hacer es que al momento de elegir un nombre en el dbcombo los datos "CUENTA" Y "NOMBRE" se copien a la bd vacía y puse este código:
Private Sub Command_Click()
adodc1.recordset.addnew
adodc1.recordset.fields("CUENTA")=TEXT1.TEXT
adodc1.recordset.fields("NOMBRE")=TEXT2.TEXT
adodc1.recordset.update
End Sub
El problema es que me marca un error No.1-2147217842(80040e4e) Operation was cancelled y me marca en amarillo la linea del código :
Adodc1. Recordset. Addnew
¿Me puede decir alguien a que se debe o como lo soluciono?
Respuesta
1
Lo que pasa es que debes de conectar un DATAGRID con tu ADO para que puedas abrir un registro.. después de conectarlos y poner los text tu código quedaría así
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0) = Text1.Text
Adodc1.Recordset.Fields(1) = Text2.Text
Adodc1.Recordset.Update
End Sub
el fiels 0 = a cuenta
el fiels 1 = a nombre
Y listo.. lo que pasa es que también debes de verificar que tenga los datos guardados correctamente por ejemplo si es numero que tu estés guardando números y si es texto pues no importa mucho! SUERTE cualquier duda.. escríbeme

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Porque no guardo en una bd

Que tal tengo 3 problemas que para mi gusto son muy serios y alarmants, quisiera que alguien m ayudara a corregirlos en calidad de urgencia el bueno estos son los problemas 1ª tengo una base de datos enlazada a visual basic 6.0 mediant un adodc1 pero...
1 respuesta

Problema: dar de alta un registro en vb 6

Que me surge en vb 6, utilizando una base de datos access 97. El código es el siguiente: Private Sub Command1_Click() If Text0 = "" Then MsgBox "El campo ID es el identificador del nuevo cliente, es obligatorio que complete con valores numericos...
1 respuesta

Datagrid

Me gustaría acceder a un dato concreto del datagrid, es decir, acceder a una fila y a una columna en concreto. ¿Cómo se hace?
1 respuesta

Como ingresar letras mayúscula en un textbox

Necesito saber como programo un textbox para que lo que uno introduzca aparezca en mayúscula así uno lo ingrese en minúscula
1 respuesta

Comparar datos en una bd

Bien tengo una BD en access2000 en lazada a visual basic6 mediante un adodc1 en la base de datos tengo una tabla llamada principal la cual contiene un campo "vin" y en visual tengo un formulario con un texbox llamado "text1"lo que quiero que haga es...
1 respuesta

Cómo dar nuevas claves a clientes en una aplicación de altas y bajas creada con Visual Basic

Antes que nada, estoy realizando una aplicación donde doy de bajas, altas modifica, y consultas. Pero a la hora de darles de alta introduzco una clave y si ya esta me dice que ya existe, y si no pues se guardan los datos en la tabla clientes ok, pero...
1 respuesta

Extraer los 2 caracteres de un textbox

Tengo 3 textbox, lo que quiero es que en el text3.text copie lo dos primeros caracteres del text1.text y todos los caracateres text2.text. Ejemplo de lo que quiero: Text1.text escribimos ELIEZER Text2.text escribimos BRICEÑO Text3.text automatico...
2 respuestas

Guardar Valores de Textbox de VB en Access

Espero que alguien de todos lo que participan aquí me puedan ayudar. Estoy elaborando una pequeña aplicación, y mi problema es que quiero que los datos determinados en los textbox me los guarde mediante un commandbotton en una base de datos pero no...
1 respuesta

Error en método Refresh del objeto

Tengo otra pregunta, es lo mismo que mi duda anterior, introduzco una clave pero no me muestra la información de la persona que quiero, este es el código del botón: Private Sub Command2_Click() Dim query If Text17.Text = "" Then X = MsgBox("No se...
1 respuesta

Obligar a escribir en un textbox

Tengo un formulario con datos personales y aveces las personas encargadas de llenar estos formularios no escriben todos los datos, estoy tratado de adaptar este código para forzar a que escriban en todos los textbox, pero el archivo se me bloquea,...
1 respuesta