Ver Mensaje Individual
  #4 (permalink)  
Antiguo 11/10/2008, 11:43
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 2 meses
Puntos: 37
Respuesta: Error al insertar fecha en Sql Server 2005

Cita:
Iniciado por Urko56 Ver Mensaje
El teclado sigue aquí, pero yo sigo desesperado.

El método insert lo genera automáticamente la herramienta de desarrollo (Visual Studio) al crear el dataset
Respecto al formato del DateTimePicker selecciono el formato "short" en las propiedades del control, "dd/mm/aaaa"
Hasta ahora había trabajado con bases de datos de access, y no había tenido problemas, salvo la lentitud.

El cambio a Sql Server va a acabar conmigo......
Bueno, ya que por lo visto no quieres poner tu código, te pongo el mío (sólo la parte de agregar datos)

Código:
Imports System.Data.SqlClient

Public Class Form1

    Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;" & _
                                 "AttachDbFilename=""|DataDirectory|\Facturacion.mdf"";" & _
                                 "Integrated Security=True;Connect Timeout=30;" & _
                                 "User Instance=True")
    Dim cmd As New SqlCommand()
    Dim da As New SqlDataAdapter(cmd)
	
    Private Sub cmdAñadir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAñadir.Click
        Try
            Añadir()
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Error")
        Finally
            con.Close()
        End Try
    End Sub

    Private Sub Añadir()
        Dim nReg As Long = ComboBox1.Items.Count + 1
        cmd.Connection = con
        con.Open()

        cmd.CommandText = "INSERT INTO Facturas " & _
        "(Id, Num_Fra, Fecha_Fra, Num_Clie, Tipo_IVA, " & _
        "Base_Euros, IVA_Euros, Total_Euros, Pagada) " & _
        "VALUES ('" & nReg & "', '" & TxtNumero.Text & "', '" & _
        DtpFecha.Value.ToString("MM/dd/yyyy") & "', '" & _
        TxtCliente.Text & "', '" & TxtTipo.Text & "', '" & _
        TxtBase.Text & "', '" & TxtIva.Text & "', '" & TxtTotal.Text & "', '" & _
        IIf(CheckBox1.Checked = True, 1, 0) & "')"

        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Registro añadido")
        FillCombo()
    End Sub
End Class
Espero que te sea de alguna utilidad, si tienes alguna duda mañana (creo) te contesto. Ahora me voy, hasta mañana!!