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 dicho campo", vbCritical, Me.Caption
Text0.SetFocus
Exit Sub
Else
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = "" Or Text6 = "" Or Text7 = "" Then
MsgBox "Debe ingresar datos en los campos obligatorios", vbCritical, Me.Caption
MsgBox "Los datos obligatorios son los marcados con asteriscos", vbCritical, Me.Caption
Text0.SetFocus
Exit Sub
Else
If MsgBox("Los datos que ha ingresado son correctos?", vbYesNo, "Grabar Registro") = vbYes Then
Data1.DatabaseName = "C:\clientitos.mdb"
Data1.RecordSource = "clientitos"
Data1.Refresh
With Data1.Recordset
Data1.Recordset.AddNew
Data1.Recordset.Fields!ID = Val(Text0.Text)
Data1.Recordset.Fields!apeynom = Val(Text1.Text)
Data1.Recordset.Fields!direccion = Val(Text2.Text)
Data1.Recordset.Fields!ciudad = Val(Text3.Text)
Data1.Recordset.Fields!provincia = Val(Text4.Text)
Data1.Recordset.Fields!pais = Val(Text5.Text)
Data1.Recordset.Fields!cp = Val(Text6.Text)
Data1.Recordset.Fields!fechadenac = Val(Text7.Text)
Data1.Recordset.Fields!comnombre = Val(Text8.Text)
Data1.Recordset.Fields!comciudad = Val(Text9.Text)
Data1.Recordset.Fields!comprovincia = Val(Text10.Text)
Data1.Recordset.Fields!compais = Val(Text11.Text)
Data1.Recordset.Fields!comcp = Val(Text12.Text)
Data1.Recordset.Fields!telpers = Val(Text13.Text)
Data1.Recordset.Fields!telcom = Val(Text14.Text)
Data1.Recordset.Fields!telcel = Val(Text15.Text)
Data1.Recordset.Fields!fax = Val(Text16.Text)
Data1.Recordset.Fields!mail = Val(Text17.Text)
Data1.Recordset.Fields!marca = Val(Text18.Text)
Data1.Recordset.Fields!modelo = Val(Text19.Text)
Data1.Recordset.Fields!Color = Val(Text20.Text)
Data1.Recordset.Fields!patente = Val(Text22.Text)
'Picture1.Picture = LoadPicture(dlgFile.FileName)
Data1.Recordset.Update
Data1.Recordset.Close
End With
End If
End If
End If
MsgBox "El registro ha sido dado de alta con éxito", vbInformation, Me.Caption
End Sub
Ahora bien, el problema que tengo es que cuando doy de alta el registro en los campos de la base de datos solamente me graba 0 (ceros). Espero puedas ayudarme con este problema que estoy teniendo, ya que yo no le encuentro la vuelta.
Respuesta
1
Lo que pones "" (entre comillas) es una cadena
dim var as string
var = "pepe" (var tiene asignado pepe)
var = "text1.text" (ya sabes que asigna)
lo debes hacer de la sig. forma
var = text1.text
para eliminar espacios puedes (si quieres) hacer:
var = trim(text1.text)
Ya van 2 preguntas y ninguna puntuada.
VAL convierte una expresión de texto en numero, pero a diferencia del CDBL, o del Cint, no ocurre error cuando la expresión a convertir no tiene la sintaxis de numero; cuando tratas de convertir una expresión no numérica en numero, te devuelve un cero, pero si la expresión si es numérica, te regresara la expresión pero ya de tipo numerioco, entonces a ti los datos de los text*.text te los esta convirtiendo en ceros, pues no son numéricos lo que con ellos captas.
Si quieres usar val, debes tener cuidado con la configuración regional de tu PC, ya que hay un problema con la coma y el punto ("," ".") en separadores de decimales. (En españa en separación de miles, etc.)
Suerte.
Si lo que pretendías con el val, era eliminar espacios, utiliza el
acces.rstVar = trim(text*.text)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Vericar Si Existe Usuario

Tengo un problema en una aplicación que estoy haciendo para guardar datos en sql server 2000 usando visual 6.0 no se como verificar si el usuario existe al momento de agregarlo te envío el código del botón guardar Private Sub Command1_Click()...
1 respuesta

Guardar desde varios formularios a única linea

Tengo tres formularios para guardar datos de una sola persona, el problema es que como son muchos datos, me toco crear tres formularios para poder llenar todos los datos.. Estoy utilizando como clave principal el numero de identifiacion del paciente,...
1 respuesta

Datagrid y textbox

Necesito que saber como puedo seleccionar un registro del datagrid y que este se muestro en los texbox que he diseñado, de tal manera que aquí pueda modificarlo, etc. La cuestión me trae de cabeza. O incluso algún ejemplo para poder estudiarlo y...
1 respuesta

Run time error 13, Type mismatch

Tengo la siguiente programación en un botón que me debería pemritir guardar los datos dentro de una base de datos Pero al presionar el botón una vez que he guardado los datos me aparece este error Run time error 13, Type mismatch Marcándome con...
1 respuesta

Crear contraseñas en viSual basic con access 2007

Mi nombre es pablo y estoy desarrollando una aplicación de base de datos para controlar la clientela de una empresa. En mi pantalla principal tengo una contraseña de control de usuario, pero solo es una. Yo necesito que existan varias contraseñas y...
1 respuesta

Guardar Datos en Access desde Visual Basic 6.0

Estoy trabajando con una base de datos access desde visual basic 6.0, cuando intento actualizar un registro o guardar uno nuevo me envía el siguiente error (Error de Sintaxis Falta Operador en la Exprision de Consulta), ya he intentado depurar el...
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

Ayuda para mejora de centro numérico

ALGUIEN ME PODRÍA AYUDAR A MEJORAR MI PROGRAMA DE CENTROS NUMÉRICOS(Un centro numérico es un número que separa una lista de números enteros (comenzando en 1) en dos grupos de números, cuyas sumas son iguales. El primer centro numérico es el 6, el...
1 respuesta

Cómo rellenar cuadro de texto según un combobox

A ver este problemilla... Tengo un combobox que me muestra una lista de expedientes y quiero que "Después de Actualizar" se rellenen varios cuadros de texto con los datos relacionados con ese expediente. ¿De qué manera puedo hacerlo?
1 respuesta

Estoy realizando un programa en Visual Basic con MySQL y tengo problemas para agregar.

Tengo una duda en un pequeño programa que estoy realizando el VB 6.0 con mysql, al momento de agregar un registro me manda un error que dice: "error '3709' en tiempo de ejecución No se puede utilizar la conexión para realizar esta operación para....
1 respuesta