Mensajes

[Hola amigos, disculpen pero que error de sintaxis puede tener mal, estoy intentando almacenar la información que existe en los textbox y me tira el siguiente error:Error de sintaxis en la instrucción INSERT INTO]

Hola amigos, disculpen pero que error de sintaxis puede tener mal, estoy intentando almacenar la información que existe en los textbox y me tira el siguiente error:
Error de sintaxis en la instrucción INSERT INTO
Los campos de la tabla ya los cheque y los copie y pegue para no equivocarme

Código (vbnet) [Seleccionar] Expandir


        Dim sql As String
        sql = "INSERT INTO Usuarios (Name,LastName,NameSesion,Password,Fecha,active) values ('" & TextBox1.Text & "', '" & TextBox4.Text & "','" & TextBox3.Text & "','" & TextBox2.Text & "','" & Date.Today & "','1')"
        Dim cnn As OleDbConnection
        cnn = New OleDbConnection(Cadena)
        '  ' crear comando
        Dim Comando As New OleDbCommand(sql, cnn)
        '  ' crear DataReader
        Dim DataReader As OleDbDataReader
        cnn.Open()
        DataReader = Comando.ExecuteReader() ' obtener DataReader

Gracias si funciona!!!

[Hola amigos, estoy utilizando el siguiente código para llenar un Listview pero me carga a medias la tabla y mi pregunta es como puedo agregarle el campo Descripcion y el campo Activo]

Hola amigos, estoy utilizando el siguiente código para llenar un Listview pero me carga a medias la tabla y mi pregunta es como puedo agregarle el campo Descripcion y el campo Activo

Código (vbnet) [Seleccionar] Expandir

Dim cmdselect As New OleDb.OleDbCommand("Select *  From Rol where Activo=yes", conn)
            Dim datareader As OleDb.OleDbDataReader = cmdselect.ExecuteReader()

            While datareader.Read()
                '=======Agregar elementos al ListView ========
                Dim subelemento As ListViewItem
                'Dim codigo As String = datareader("idRol")
                Dim codigo As String = datareader("idRol")

                subelemento = New ListViewItem(codigo)
                subelemento.SubItems.Add(datareader("Nombre"))   
                'como seria esta linea para agregar Descripcion
                'como seria esta linea para agregar Activo
                ListView1.Items.Add(subelemento)

            End While

            datareader.Close()
            conn.Close()

pff jaja ok gracias!!!

[Hola, amigos, esta ventana se parece a un inputbox pero no se como se llama, mi intención es utilizarla en vb.net 2010Saludos!!!]

Hola, amigos, esta ventana se parece a un inputbox pero no se como se llama, mi intención es utilizarla en vb.net 2010
Saludos!!!

[Checale esta otra web de recursos vb]

Checale esta otra web de recursos vb
http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico4.htm#parametros-byval-byref
Saludos!!!

[Funcionan, muchas gracias!!!]

Funcionan, muchas gracias!!!

[Hola, disculpen pero como puedo recorrer un listbox y pasar los valores a un arreglo?, esto es lo que tengo...]

Hola, disculpen pero como puedo recorrer un listbox y pasar los valores a un arreglo?, esto es lo que tengo...

Código (vb) [Seleccionar] Expandir


Dim arreglo(100) As Integer
Dim l As Integer
Dim n As Integer
Dim valor As Integer
        For l = 0 To List1.ListCount - 1
            valor = List1.Text
                For n = 1 To List1.ListCount - 1
                    arreglo(n) = valor
                Next
        Next
'Por ultimo coloque unos textbox para confirmar que se guardaron los valores
Text1.Text = arreglo(1)                 'me sale 0 y en realidad es un 2
Text2.Text = arreglo(2)                 'me sale 0 y en realidad es un 4
Text3.Text = arreglo(3)                  'me sale 0 y en realidad es un 1


Gracias, esta muy bien explicado!!!

Hola, estoy haciendo la siguiente consuta, para el turno nocturno:

Código (sql) [Seleccionar] Expandir

SQL1 = "SELECT * FROM tablainformaciondelaunidad WHERE TURNO='" & Label7 & "' AND TECNICO='" & txtid & "'AND FECHA= '" & Label3 & "' AND HORA BETWEEN #" & Format("19:00", "Short Time") & "# AND #" & Format("23:59", "Short Time") & "#"
pero el turno termina al siguiente día a las 6:59 am,

quisiera agregarle algo como esto, pero se que no esta bien

Código (sql) [Seleccionar] Expandir

AND FECHA= #" & Label3+1 & "#AND HORA BETWEEN #" & Format("00:00", "Short Time") & "# AND #" & Format("05:59", "Short Time") & "# "

para que todo se muestre en la siguiente lista