Como insertar

[alejandrom]

que tiene de malo esta lineas de Codigo, que debo ó que me recomiendan para hacer esto

Dim s As SqlCommand
s.CommandText = "INSERT INTO ingrKardex (Cia,TipoPieza,Cod,FecDcmto,TMvto," & _
"NroDcmto,NomCliPro,Und) VALUES('" & strCodCia & "','" & .Item("TipoPieza") & "','" & _
.Item("Cod") & "','" & .Item("FecDcmto") & "','" & TipoMvto & "','" & .Item("NroDcmto") & "','" & _
NomCliPro & "','" & .Item("Und") & "'"

s.ExecuteNonQuery()


Intente tambien con Esto y tampoco me funciono

daCo.Fill(ds, "coConcepto")
daKarde.Fill(ds, "ingrKardex")

For i = 0 To ds.Tables("coConcepto").Rows.Count - 1
With ds.Tables("coConcepto").Rows(0) COMPRAS

NewLineKar = ds.Tables("ingrKardex").NewRow()
NewLineKar("Cia") = strCodCia
NewLineKar("TipoPieza") = .Item("TipoPieza")
NewLineKar("Cod") = .Item("Cod")
NewLineKar("FecDcmto") = .Item("FecDcmto")
NewLineKar("TMvto") = TipoMvto
NewLineKar("NroDcmto") = .Item("NroDcmto")
NewLineKar("NomCliPro") = NomCliPro
NewLineKar("Und") = .Item("Und")
ds.Tables("ingrKardex").Rows.Add(NewLineKar)
daKarde.Update(ds, "ingrKardex")

End With
next i

QUE DEBO HACER

[RootK]

Hola.. creo que para empezar.. en tu insert.. no haz abierto la conexion.,.,.

s.ExecuteNonQuery()

Veo que haces el ExecuteNonQuery() pero donde abres tu objeto connection..???

Ejemplo

dim sql as String

sql = "INSERT INTO ingrKardex (Cia,TipoPieza,Cod,FecDcmto,TMvto," & _
"NroDcmto,NomCliPro,Und) VALUES('" & strCodCia & "','" & .Item("TipoPieza") & "','" & _
.Item("Cod") & "','" & .Item("FecDcmto") & "','" & TipoMvto & "','" & .Item("NroDcmto") & "','" & _
NomCliPro & "','" & .Item("Und") & "'"

Dim sqlCmd As New SqlCommand(sql, sqlCon)

sqlCon.Open ()
sqlCmd.ExecuteNonQuery()
sqlCon.Close ()

Tambien te falta instanaciar el objeto command...

Tu tienes

Dim s As SqlCommand

y te faltaría

Dim s As New SqlCommand

Por otro lado ya checaste que estes utilizando bien cuando poner comillas y cuando no..??

De todas formas porque no nos pones tambien el mensaje de error que te esta mandando.

Saludos