none
Pasar datos desde Visual net a Sql2005 RRS feed

  • Pregunta

  • Hola estoy realizando una aplicacion sencilla y tengo un formato de fecha escogi el control datetimepicker y en mi base tenfo datetime como tipo de dato
    y no puedo hacer el registro correcto quisiera me ayuden aqui esta mi codigo>

    Public

     

    Class fecha

     

    Dim oConexion As SqlClient.SqlConnection

     

    Private Sub btngrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btngrabar.Click

     

    Dim cadena As String

    cadena =

    "Data Source= SERVIDOR; Initial Catalog=Clinico; Integrated Security=true"

    oConexion =

    New SqlClient.SqlConnection(cadena)

    oConexion.Open()

    MessageBox.Show(

    "Conectado")

     

     

    Dim oComando As SqlClient.SqlCommand

    oComando =

    New SqlClient.SqlCommand

    oComando.CommandText = CommandType.StoredProcedure

    oComando.CommandText =

    "insertarPrueba"

    oComando.Connection = oConexion

     

    oComando.Parameters.Add(

    "@fecha", SqlDbType.DateTime)

    oComando.Parameters.Add(

    "@nombres", SqlDbType.VarChar)

    oComando.Parameters(

    "@fecha").Value = Me.datetime.Value

    oComando.Parameters(

    "@nombres").Value = Me.txtnombres.Text

    oComando.ExecuteNonQuery()

    oConexion.Close()

    MessageBox.Show(

    "insercion realizada satisfactoria")

     

     

     

     

    End Sub

     

    End

     

    Class

    • Cambiado Enrique M. Montejo viernes, 1 de julio de 2011 17:38 acceso a datos (De:Lenguaje VB.NET)
    miércoles, 2 de diciembre de 2009 5:37

Todas las respuestas

  • Al fecha dale el formato de yyyymmdd

    Por ejemplo si el usuario selecciona la fecha 10/03/2009, la formateas a 20090310.

    Dim fecha as string

    fecha = dateTimePicker1.Value.ToShortDateString()
    fecha = fecha.Substring(6, 4) & fecha.Substring(3, 2) & fecha.Substring(0, 2)

    oComando.Parameters("@fecha").Value = fecha


    Saludos

    Sparow
    miércoles, 2 de diciembre de 2009 12:17
  • si amigo pero me sigue dando el mismo error
    miércoles, 2 de diciembre de 2009 18:53
  • si me podrias ayudar con mi codigo el que tengo  haber en lo mejor donde es el error

    Public Class Form1

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim conexion As SqlClient.SqlConnection
            Dim cadena As String

            cadena = "Data source = Caja2; Initial Catalog= Clinico; integrated security= true"
            conexion = New SqlClient.SqlConnection(cadena)
            conexion.Open()


            Dim oComando As SqlClient.SqlCommand
            oComando = New SqlClient.SqlCommand
            oComando.CommandText = CommandType.StoredProcedure
            oComando.CommandText = "Fecha"
            oComando.Connection = conexion

            Dim fecha As String
            fecha = Me.DateTimePicker1.Value.ToShortDateString()

            fecha = fecha.Substring(6, 4) & fecha.Substring(3, 2) & fecha.Substring(0, 2)

            oComando.Parameters.Add("@fecha", SqlDbType.DateTime).Value = fecha
            oComando.Parameters("@fecha").Value = fecha

            oComando.ExecuteNonQuery()
            conexion.Close()

            MessageBox.Show("insercion realizada satisfactoria")

        End Sub
    End Class
    miércoles, 2 de diciembre de 2009 18:54