Visual Basic - carga de datos

Life is soft - evento anual de software empresarial
   
Vista:

carga de datos

Publicado por Mariano (41 intervenciones) el 23/11/2015 14:47:03
hola
quería saber si me podrían indicar como cargar un código sin que se repita
Osea
codigo11
nombre : teclado

que no me deje ingresar otro código con el numero 11

esto es VB 6.0 y con base de datos ACCESS

desde ya muchas garcías
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Daniel Gonzalo

carga de datos

Publicado por Daniel Gonzalo (13 intervenciones) el 23/11/2015 15:09:55
defini codigo como clave principal, sino creale un indice sin duplicados a código. (en diseño de tabla de acces)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

carga de datos

Publicado por Mariano (41 intervenciones) el 23/11/2015 15:55:47
GRACIAS Por la pronta respuesta
hice lo me indicaste pero cuando lo cargo desde vb 6.0 me tira un error
como puedo solucionar eso
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Daniel Gonzalo

carga de datos

Publicado por Daniel Gonzalo (13 intervenciones) el 23/11/2015 15:58:20
si no es molestia, pasas el codigo para saber como lo estas haciendo, pude ser que el insert este mal hecho, que tu campo codigo sea autonumerico y vos le pases un valor para ese campo cuando haces el insert. pero, de no ser molestia, aunque sea describì el mensaje de error.
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

carga de datos

Publicado por Mariano (41 intervenciones) el 23/11/2015 16:28:04
Daniel, el codigo es este

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub Command1_Click()
Dim RS As Recordset
Dim RS1 As Recordset
If TxtCodigo.Text = "" Then
MsgBox "Ingrese el Codigo", vbCritical
Exit Sub
End If
 
If TxtDesc.Text = "" Then
MsgBox "Ingrese el producto", vbCritical
Exit Sub
End If
 
If Txtprecio.Text = "" Then
MsgBox "Ingrese el Precio", vbCritical
Exit Sub
End If
 
Set RS = Base.OpenRecordset("insumos", dbOpenDynaset)
RS.AddNew
 
RS!codigo = TxtCodigo.Text
RS!fecha = Label9.Caption
RS!descripcion = TxtDesc.Text
RS!Proveedores = TxtPa.Text
 
RS.Update
 
RS.Close
MsgBox "Datos Cargados ", vbOKOnly, "Alta Exitosa"
 TxtCodigo.Text = ""
 TxtDesc.Text = ""
 Txtprecio.Text = ""
 TxtCantidad.Text = ""
 Txtiva.Text = ""
 Txtivadesc.Text = ""
 TxtTotal.Text = ""
 
TxtCodigo.SetFocus
Exit Sub
 
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Daniel Gonzalo

carga de datos

Publicado por Daniel Gonzalo (13 intervenciones) el 23/11/2015 16:39:23
y la descripcion del error?
para ver si no tenes error en tipo de datos, (la fecha ejemplo). encerralo en On error goto etiqueta
y en la etiqueta manejas tu error
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

carga de datos

Publicado por Mariano (41 intervenciones) el 23/11/2015 16:53:18
te adjunto error que me sale al querer ingresar un codigo en vb 6.0
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Daniel Gonzalo

carga de datos

Publicado por Daniel Gonzalo (13 intervenciones) el 23/11/2015 17:08:18
Pero una pregunta, el campo de la tabla es autonumerico? de ser así no le tenes que pasar el valor para el mismo, sino por el error la restricción puede estar en que en algun indice de otro campo le hayas puesto que no se puede repetir (ejemplo descripcion que no pueda haber dos veces solo teclado) en ese caso si te pincha porque violas las Constraint. Tenes relaciones formadas? tenes relacion a una tabla proveedores que espera un integer y le pasas un String ? son cosas que se me ocurren ya que no tengo forma de saber tu diseño de aplicacion. otra cosa, trata de hacer manejo de errores, te salva ayuda muchas veces a descubrir mas rapido donde esta el mismo,

On error GOTO ME

exit sub ' si ejecuto todo bien le das salida al procedimiento/ si es funcion es exit function
ME: ' aca definis el manejo de error
el codigo que uses para manejar
end sub/Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

carga de datos

Publicado por Mariano (41 intervenciones) el 23/11/2015 19:07:48
Disculpa mi ignoracia

pero no se como aplicarlo
me lo podrias indicar
desde ya muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Daniel Gonzalo

carga de datos

Publicado por Daniel Gonzalo (13 intervenciones) el 23/11/2015 20:33:39
disculpa la tardanza, te hice un ejemplo solo contempla las altas pero tambien te mando una tabla para que veas como no tenes que pelearte con la repeticion de los id, para la busqueda, como para la actualizacion si vas a necesitarlo pero bueno eso te lo dejo a vos.
Saludos y espero serte de ayuda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

carga de datos

Publicado por Mariano (41 intervenciones) el 23/11/2015 20:37:56
muchas gracias
si me surge otra duda te puedo preguntar?

Saludos y mil gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Daniel Gonzalo

carga de datos

Publicado por Daniel Gonzalo (13 intervenciones) el 23/11/2015 20:40:18
ningun problema, va siempre y cuando sepa la respuesta.
Perdon que me meta, pero por lo que vi, te convendría pasar a algun lenguaje de .net recomiendo, si de algo vale mi recomendación. C#.
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar