Ver Mensaje Individual
  #7 (permalink)  
Antiguo 27/08/2013, 11:53
netspider76
 
Fecha de Ingreso: julio-2013
Ubicación: Colombia
Mensajes: 11
Antigüedad: 11 años, 7 meses
Puntos: 0
Respuesta: Pasar fechas de formulario a Base de datos Mysql

si perdona lo vi despues ya cambie esto Gracias por la ayuda otra vez para responder a tu pregunta

' ¿CAJA es un campo VARCHAR? Si es VARCHAR(4)
cmd.Parameters.AddWithValue("?caja", txtcaja.Text)

' ¿La FACTURA es VARCHAR? Si es VARCHAR(5)
cmd.Parameters.AddWithValue("?factura", txtfactura.Text)

' ¿LAB es VARCHAR? Si es VARCHAR(20)
cmd.Parameters.AddWithValue("?lab", cbolab.Text)

' Este es el único que parece estar bien ---> este es DATATIME
y lo capto de un datetimepicker en el formulario
cmd.Parameters.AddWithValue("?fechaentrega", txtfechaentrega.Value)


' ¿No te parece que esto deberías se hecho de la misma forma que el anterior?
este es DATATIME y lo campo de un TextBox en el formulario
cmd.Parameters.AddWithValue("?fechaingreso", Textfechaingresado.Text)

----------------------------------------------------
continuando cambie el codigo

Private Sub guardarremisiones_Click(sender As Object, e As EventArgs) Handles guardarremisiones.Click

Dim fecha As DateTime
fecha = txtfechaentrega.Value

'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.Parameters.AddWithValue("?fechaentrega", txtfechaentrega.Value)
cmd.Parameters.AddWithValue("?fechaingreso", fecha)

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
----------------------------------------------------
me arroja este error ahora pero no tengo idea del porque

No se controló MySql.Data.MySqlClient.MySqlException
ErrorCode=-2147467259
HResult=-2147467259
Message=Fatal error encountered during command execution.
Number=0
Source=MySql.Data
-----------------------------------------------------
parece ser que el problema de la fecha quedo resuelto pero sigue sin guardarme en la BD los valores q capto en el formulario