Wenas soy nuevo en esto de la programacion actualmente estoy intentando obtener unos datos de un formulario que estoy creando en visual studio 2012 y llevo todo a una base de dados en Mysql una parte necesito que sea almacenada un par de fechas que tengo en el formulario la fecha en la que es guardado y la fecha de entrega pero al momento de darle al boton guardar me da un error lo que tengo desarrollado es lo siguiente :
---------------------------
Imports MySql.Data
Imports MySql.Data.MySqlClient 'referencia agregada
Public Class Laboratorios
Private dt As DataTable
Private da As MySqlDataAdapter
Dim fila As Integer
Private Sub Laboratorios_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim fecha As String ' Procedimiento para cambiar la fecha a formato MySql
'fecha = Format(txtfechaentrega.Value.Date, "yyyy-MM-dd")
fecha = txtfechaentrega.Value.Date.ToString("YYYY-MM-DD")
Textfechaingresado.Text = DateTime.Now().ToString("yyyy-dd-mm hh:mm:ss")
'Textfechaingresado.Text = DateTime.Now().ToString("yyyy/dd/mm hh:mm:ss tt")
'crear la conexion
Dim oConexion As MySqlConnection
oConexion = New MySqlConnection
oConexion.ConnectionString = "Server=localhost;Database=prueba;Uid=root;Pwd=*** **;"
Dim sSel As String = "SELECT * FROM sel_lab ORDER BY idlaboratorios"
Try
da = New MySqlDataAdapter(sSel, oConexion)
dt = New DataTable
da.Fill(dt)
Catch ex As Exception
MsgBox("ERROR DE CONECCION")
End Try
'combobox
cbolab.DataSource = dt
cbolab.DisplayMember = "laboratorio"
cbolab.ValueMember = "idlaboratorios"
End Sub
Private Sub guardarremisiones_Click(sender As Object, e As EventArgs) Handles guardarremisiones.Click
'crear la conexion
Dim oConexion As MySqlConnection
oConexion = New MySqlConnection
oConexion.ConnectionString = "Server=localhost;Database=prueba;Uid=root;Pwd=*** **;"
oConexion.Open()
Dim sSel As String = "insert into laboratorios72(caja,factura,laboratorio,fecha_entr ega,fecha_ingresado)values(?caja, ?factura, ?lab, ?fechaentrega, ?fechaingreso)"
Dim cmd As New MySqlCommand(sSel, oConexion)
cmd.Parameters.AddWithValue("?caja", txtcaja.Text)
cmd.Parameters.AddWithValue("?factura", txtfactura.Text)
cmd.Parameters.AddWithValue("?lab", cbolab.Text)
cmd.Parameters.AddWithValue("?fechaentrega", CDate(txtfechaentrega.Text))
cmd.Parameters.AddWithValue("?fechaingreso", DateTime.Parse(Textfechaingresado.Text))
cmd.ExecutenonQuery()
Dim Ds As New DataSet
Dim tabla As New DataTable
Dim objadap As New MySqlDataAdapter(sSel, oConexion)
oConexion.Open()
objadap.Fill(tabla)
End Sub
Private Sub MostrarRemisiones_Click(sender As Object, e As EventArgs) Handles MostrarRemisiones.Click
Dim ConsStr As String
ConsStr = "Server=localhost;Database=prueba;Uid=root;Pwd=*** **;"
'variable de conexión
Dim Con As New MySqlConnection(ConsStr)
'variable dataaset
Dim Ds As New DataSet
'variable tabla
Dim tabla As New DataTable
Dim da As New MySqlDataAdapter("select * from laboratorios72 ", Con)
'capturamos errores
Try
'ejecutamos la querry q tienes el dataadapter
Dim cmd As New MySqlCommandBuilder(da)
'llenamos la tabla
da.Fill(tabla)
'muestro datos
DGVRemisiones.DataSource = tabla
Catch ex As Exception
'en caso de error
MsgBox("ERROR DE CONECCION")
End Try
End Sub
End Class
--------------------------------
la base de datos de mysql la tengo configurada para los datos de la fecha asi:
fecha_entrega = DATE
fecha_ingresado = DATATIME
no se si por esto me da el error a la hora de convertir.
Espero alguna otra indicacion o sugerencia ya que me e pasado leyendo al respecto sobre la solucion pero no consigo solucionarlo el error supuestamente radica en el formato de los datos que mysql los lee YYYY-MM-DD y visual DD-MM-YYYY
Gracias otra vez por tu pronta respuesta
