• Sábado 15 de Agosto de 2020, 09:53

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Juan Carlos Puente

Páginas: [1]
1
VB .NET / Ayyuda ! Problema con base de datos
« en: Viernes 8 de Julio de 2016, 02:59 »
El error que me da es el de "el numero de valores de consulta y el numero de campos de destino son diferentes"
ya cheque y segun yo son 8 datos los que pide y en la tabla tambien son 8 datos aqui esta mi codigo si me pueden ayudar se los agradeceria:

Código: Visual Basic
  1. Imports System.Data.OleDb
  2. Imports System.IO
  3.  
  4. Public Class Form1
  5.     Private conex As New OleDbConnection
  6.     Private Sub conexion()
  7.         conex.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Basedatosproyecto.mdb"
  8.         conex.Open()
  9.  
  10.     End Sub
  11.  
  12.  
  13.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  14.         conexion()
  15.         picFoto.SizeMode = PictureBoxSizeMode.StretchImage
  16.     End Sub
  17.  
  18.     Private Sub exam_Click(ByVal sender As Object, ByVal e As EventArgs) Handles exam.Click
  19.         Dim ofd As New OpenFileDialog
  20.         ofd.Filter = "Imagenes JPG|*.jpg"
  21.         If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
  22.             picFoto.Image = Image.FromFile(ofd.FileName)
  23.         End If
  24.     End Sub
  25.  
  26.     Private Sub guar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles guar.Click
  27.         Try
  28.             Dim ms As New MemoryStream
  29.             picFoto.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
  30.             Dim pic As Byte() = ms.GetBuffer
  31.             If TextBox1.Text <> "" And pic.Length > 0 Then
  32.                 Dim cmd As New OleDbCommand("insert into Alumnos values(@nom,@con,@sem,@esp,@apro,@curs,@prom,@pic)", conex)
  33.                 cmd.Parameters.Add(New OleDbParameter("@nom", TextBox1.Text))
  34.                 cmd.Parameters.Add(New OleDbParameter("@con", TextBox3.Text))
  35.                 cmd.Parameters.Add(New OleDbParameter("@sem", TextBox2.Text))
  36.                 cmd.Parameters.Add(New OleDbParameter("@esp", TextBox4.Text))
  37.                 cmd.Parameters.Add(New OleDbParameter("@apro", TextBox5.Text))
  38.                 cmd.Parameters.Add(New OleDbParameter("@curs", TextBox6.Text))
  39.                 cmd.Parameters.Add(New OleDbParameter("@prom", TextBox7.Text))
  40.                 cmd.Parameters.Add(New OleDbParameter("@pic", pic))
  41.  
  42.                 cmd.ExecuteNonQuery()
  43.                 MsgBox("Los registros se han almacenado satisfactoriamente")
  44.             Else
  45.                 MsgBox("Debe agregar todos los datos")
  46.             End If
  47.         Catch ex As Exception
  48.             MsgBox(ex.Message)
  49.         End Try
  50.  
  51.     End Sub
  52. End Class
  53.  

Páginas: [1]