Tomar datos de otra tabla, mostrar en combobox, guardar VB.n

[ExtreemD4t4]

YAAAAAAA, lo arreglé (recien hoy ¬¬)

 

pero ahora me salta otra duda xD, como sabrán, MySql y SqlServer trabajan las fechas asi (yyy/MM/dd), pero yo tengo un datetimepicker (objeto) que me guarda dd/MM/yyyy , y no encuentro la forma de darlo welta xD

 

probé con el format(datetimepicker.value,"yyyy-MM-dd") o con el datetimepicker.text = date.parse(datetimepicker.text) y no lo pesca :B, he visto algunos tutos en internet pero tampoco lo toma xD

 

 

 

aki dejo el código para ver si me pueden ayudar :)

 

 

 

        Dim con As SqlConnection
        Dim conexion As String = "Data Source=EXD4T4-PC\SQLEXPRESS; Initial Catalog=Programa; Integrated Security=yes"

        con = New SqlConnection(conexion)
        Dim com As SqlCommand
        Dim buscar As String = "SELECT * from Clientes where rut_cl ='" & TxtRut.Text & "'"

        com = New SqlCommand(buscar, con)
        Dim Adapter As SqlDataAdapter = New SqlDataAdapter(buscar, con)
        Dim tabla As DataTable = New DataTable

        con.Open()

        Adapter.Fill(tabla)

        If tabla.Rows.Count = 1 Then

            MessageBox.Show("Rut Correcto, Cliente Existe ")
            Dim id As Integer = RecuperarId()

            'TxtFecha.Text = Format(TxtFecha.Value, "yyyy-MM-dd")
            ' TxtFechaD.Text = Format(TxtFechaD.Value, "yyyy-MM-dd")


            Module1.ejecutarConsulta("Insert Into Cheques(rut_cheque,banco,numero_cheq,monto,fecha_ing,fecha_dep) values(" & id & "," & CInt(ComboBox1.SelectedValue()) & ",'" & TxtNumCheq.Text & "','" & TxtMonto.Text & "'," & Format(TxtFecha.Value, "yyyy-MM-dd") & "," & Format(TxtFechaD.Value, "yyyy-MM-dd") & "")


        ElseIf tabla.Rows.Count = 0 Then

            MessageBox.Show("el Cliente no Existe, Ingréselo")
            Clientes.Show()
            Me.Hide()

        End If

y aki el error, se supone que el 20 es el día del mes :/

 

 

 

 

 

 

 

 

 

 

pal que no kacha el datetimepicker, es este

 

 

 

 

 

 

y tambien dejo el código de como arreglé el combobox

 

Mostrar  los datos en el Combobox


        sqlcon = New SqlConnection("Data Source=EXD4T4-PC\SQLEXPRESS; Initial Catalog=Programa; Integrated Security=yes;")
        sqlcon.Open()

        ''se crea la consulta
        Dim consulta As String = "select id_banco,nombre_b from Bancos"

        cm = New SqlCommand()
        cm.CommandText = consulta
        cm.CommandType = CommandType.Text
        cm.Connection = sqlcon

        da = New SqlDataAdapter(cm)
        ds = New DataSet
        da.Fill(ds)

        ''cargar datos para combobox 
        ComboBox1.DataSource = ds.Tables(0)
        ComboBox1.DisplayMember = "nombre_b"
        ComboBox1.ValueMember = "id_banco"



y para guardarlo usé este código pa convertir el value a integer

CInt(ComboBox1.SelectedValue())  y asi lo guardo directo a la BD  desde la consulta xD

Edited December 8, 2012 by ExtreemD4t4

[AshWilliams]

Para darla vuelta la puedes hacer mediante código con substring por ejemplo:

Module Module1
    Sub Main()
	'
	' Use this string literal for the demonstration.
	'
	Dim literal As String = "CatDogFence"
	'
	' Take the first three characters into a new string.
	' ... Use the Substring method.
	'
	Dim substring As String = literal.Substring(0, 3)
	'
	' Write the results to the screen.
	'
	Console.WriteLine("Substring: {0}", substring)
    End Sub
End Module

Output

Substring: Cat

 

O bien en SqlServer la puedes convertir directamente mediante convert(datetime,@tufecha) ;)

 

Saludos :krider:

 

[AshWilliams]

Para darla vuelta la puedes hacer mediante código con substring por ejemplo:

Module Module1
    Sub Main()
	'
	' Use this string literal for the demonstration.
	'
	Dim literal As String = "CatDogFence"
	'
	' Take the first three characters into a new string.
	' ... Use the Substring method.
	'
	Dim substring As String = literal.Substring(0, 3)
	'
	' Write the results to the screen.
	'
	Console.WriteLine("Substring: {0}", substring)
    End Sub
End Module

Output

Substring: Cat

 

O bien en SqlServer la puedes convertir directamente mediante convert(datetime,@tufecha) ;)

 

Saludos :krider:

 

[ExtreemD4t4]

tu dices cortar cada porción de la fecha y despues concatenarlos? D:

 

 

y lo del convert es durante la sentencia sql?

[AshWilliams]

Exacto, puedes usar cualquiera de las 2 formas: en el código VB o en la sentencia sql ;)

 

Saludos :krider:

[ExtreemD4t4]

Exacto, puedes usar cualquiera de las 2 formas: en el código VB o en la sentencia sql ;)

 

Saludos :krider:

 

 

 

gracias :D voy a kachar que tal keda :D