Mensajes

Me.propietariosTableadapter.UpdateCommand.CommandText = "UPDATE propietariosTableadapter SET Fiscalia = @fisdis, Expediente = @numexp, Reiteracion = @rei, Supervision =  @sup, Victima = @noml, Delito = @deli, Avances = @obs WHERE Fecha = @ingreso"

esta es la sección del codigo, no se si el were esta bien escrito en el query o si tiene que llevar parentesis.

Amigos, tengo el problema de que cuando quiero actualizar un dato en el datagridview me tira este error en el query, y este sucede al colocar la sentencia "where", espero alguien pueda ayudarme a solucionarlo, muchas gracias amigos



Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.propietariosTableadapter.UpdateCommand = New OleDbCommand
        Me.propietariosTableadapter.UpdateCommand.CommandText = "UPDATE propietariosTableadapter SET Fiscalia = @fisdis, Expediente = @numexp, Reiteracion = @rei, Supervision =  @sup, Victima = @noml, Delito = @deli, Avances = @obs WHERE Fecha = @ingreso"
        Me.propietariosTableadapter.UpdateCommand.Parameters.Add("@fisdis", OleDbType.VarChar, 25, "Fiscalia")
        Me.propietariosTableadapter.UpdateCommand.Parameters.Add("@numexp", OleDbType.VarChar, 24, "Expediente")
        Me.propietariosTableadapter.UpdateCommand.Parameters.Add("@rei", OleDbType.VarChar, 24, "Reiteracion")
        Me.propietariosTableadapter.UpdateCommand.Parameters.Add("@sup", OleDbType.VarChar, 24, "Supervision")
        Me.propietariosTableadapter.UpdateCommand.Parameters.Add("@nom", OleDbType.VarChar, 24, "Victima")
        Me.propietariosTableadapter.UpdateCommand.Parameters.Add("@deli", OleDbType.VarChar, 24, "Delito")
        Me.propietariosTableadapter.UpdateCommand.Parameters.Add("@obs", OleDbType.VarChar, 24, "Avances")
        Me.propietariosTableadapter.UpdateCommand.Parameters.Add("@ingreso", OleDbType.BigInt, 24, "Fecha")

        Me.propietariosTableadapter.UpdateCommand.Connection = Me.miconexion

        Me.propietariosTableadapter.Update(parqueaderoDataset.Tables("propietariosTableadapter"))

Amigos esto tratando de hacer ingresar unos datos a una bd en acces pero al darle click al boton Ingresar me sale este error: Error de sintaxis en la instrucción INSERT INTO.  , les ruego puedan ayudarme, aca les dejo el codigo:

Código (vbnet) [Seleccionar] Expandir


Private parqueaderoDataset As DataSet
    Public propietariosTableadapter As OleDbDataAdapter
    Private miconexion As OleDbConnection
    Private cadenadeconexion As String


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



        cadenadeconexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\Luis\Mis documentos\RegistroFemicidio.accdb"



        miconexion = New OleDbConnection(cadenadeconexion)



        propietariosTableadapter = New OleDbDataAdapter
        propietariosTableadapter.SelectCommand = New OleDbCommand("SELECT * FROM PropietariosTableadapter", miconexion)



        parqueaderoDataset = New DataSet

        parqueaderoDataset.Tables.Add("PropietariosTableadapter")


        propietariosTableadapter.Fill(parqueaderoDataset.Tables("PropietariosTableadapter"))

        DataGridView1.DataSource = parqueaderoDataset.Tables("PropietariosTableadapter")



    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


        Dim nuevafila As DataRow

        nuevafila = parqueaderoDataset.Tables("PropietariosTableadapter").NewRow

        nuevafila("Numero de Expediente") = 352
        nuevafila("Nombre de La Victima") = "Lupita"
        nuevafila("Apellido(s)") = "Lupita"
        nuevafila("Edad") = 12
        nuevafila("Fiscalia Distrital") = "Lupita"
        nuevafila("Fiscalia Municipal") = "Lupita"
        nuevafila("Fiscalia de sección") = "Lupita"
        nuevafila("Oficio de Reiteracion") = 1
        nuevafila("Oficio a Supervision") = 122
        nuevafila("Observaciones") = "Lupita"
        nuevafila("Fiscal Responsable") = "Lupita"
        nuevafila("Tipo de Delito") = "Lupita"

        parqueaderoDataset.Tables("PropietariosTableadapter").Rows.Add(nuevafila)


        propietariosTableadapter.InsertCommand = New OleDbCommand
        propietariosTableadapter.InsertCommand.Connection = miconexion
        propietariosTableadapter.InsertCommand.CommandText = "INSERT INTO PropietariosTableadapter(Numero de Expediente, Nombre de La Victima, Apellido(s), Edad, Fiscalia Distrital, Fiscalia Municipal, Fiscalia de sección, Oficio de Reiteracion, Oficio a Supervision, Observaciones, Fiscal Responsable, Tipo de Delito) VALUES (@numeroexpediente,@nombredelavictima,@apellidos,@edad,@fiscaliadistrital,@fiscaliamunicipal,@fiscaliadeseccion,@oficioreiteracion,@oficiosupervision,@observaciones,@fiscaliresponsable,@tipodedelito)"
        propietariosTableadapter.InsertCommand.Parameters.Add("@numeroexpediente", OleDbType.BigInt, 12, "Numero de Expediente")
        propietariosTableadapter.InsertCommand.Parameters.Add("@nombredelavictima", OleDbType.VarChar, 12, "Nombre de La Victima")
        propietariosTableadapter.InsertCommand.Parameters.Add("@apellidos", OleDbType.VarChar, 12, "Apellido(s)")
        propietariosTableadapter.InsertCommand.Parameters.Add("@edad", OleDbType.BigInt, 12, "Edad")
        propietariosTableadapter.InsertCommand.Parameters.Add("@fiscaliadistrital", OleDbType.VarChar, 12, "Fiscalia Distrital")
        propietariosTableadapter.InsertCommand.Parameters.Add("@fiscaliamunicipal", OleDbType.VarChar, 12, "Fiscalia Municipal")
        propietariosTableadapter.InsertCommand.Parameters.Add("@fiscaliadeseccion", OleDbType.VarChar, 12, "Fiscalia de sección")
        propietariosTableadapter.InsertCommand.Parameters.Add("@oficioreiteracion", OleDbType.BigInt, 12, "Oficio de Reiteracion")
        propietariosTableadapter.InsertCommand.Parameters.Add("@oficiosupervision", OleDbType.BigInt, 12, "Oficio a Supervision")
        propietariosTableadapter.InsertCommand.Parameters.Add("@observaciones", OleDbType.VarChar, 12, "Observaciones")
        propietariosTableadapter.InsertCommand.Parameters.Add("@fiscaliresponsable", OleDbType.VarChar, 12, "Fiscali Responsable")
        propietariosTableadapter.InsertCommand.Parameters.Add("@tipodedelito", OleDbType.VarChar, 12, "Tipo de Delito")

        propietariosTableadapter.Update(parqueaderoDataset.Tables("PropietariosTableadapter"))

El error me lo marca en la ultima Linea.

Hola amigos, les comento q tengo un problema, necesito pasar un dato seleccionado de la lista en un DataGridView a un ListBox utilizando un Boton , espero me pueden ayudar con la linea de codigo q se utilizaria para realizar esto, les agradezco mucho...

X aca les dejo el codigo amigos, lo q hace es mostrarme la suma de los numeros hasta el numero q ingrese.



int main()

      {

int num,i;

    printf("introdusc el numero   ");
    scanf("%d", &num);

{

for(i=0;i<=num;i++)



      printf( "%d", i);


      scanf("%d");

return 0;
}


}

T agradeceria q me ayudaras, esq mi problema es mas con la linea del "for", q no c como hacer para q se ejecute correctamente

Hola amigos, quisiera saber si alguine me puede ayudar con este programa, el mismo tiene q hacer esto: prgrama que lea un numero N y calcule la suma de la siguiente serie: 1elevado1 + 2elevado2 + 3elevado3 asi susesivamentre hasllegar al numero ingresado.
estoy tratando de q me funcione pero hasta ahora es inutil, espero me puedan dar una ayudita muchas gracias amigos

Amigos mucho gusto, alguien me podria ayudar a saber cual es el limite de impresiones de una impresora canon mx320?...muchas gracias 

Amigos fijense de que tngo una impresora Canon MP250 q cuando quiero mandar a imprimir, me sale una ventana con el error "b200", si alguine me puede ayudar para ver q pasa gracias amigos!

Amigos buen dia, miren resulta que tengo una compaq mini y quiero ponerle el windows xp, pero cuando le conecto la lectora externa  dentro del sistema si la reconoce, pero a la hora de reiniciar y botear no la reconoce en el menu de boteo, amigos si me pueden ayudar porfavor gracias!!