Visual Basic.NET - Ayuda POr favor !!!!

 
Vista:

Ayuda POr favor !!!!

Publicado por HAF (178 intervenciones) el 12/05/2006 13:10:59
una ayuda Por favor!
! NO he podido ni INSERTAR ni ELIMINAR datos de una tabla de access!
Las consultas las hace perfecto.
El codigo es el siguiente : (trabaja bien en consultas)

el código que uso:

Private dt As DataTable
Private da As OleDbDataAdapter
Private Odateset As New Data.DataSet
Private fila As Integer
Dim STRSQL As String
Private cnn As OleDbConnection

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

STRSQL = "SELECT * FROM JACK ORDER BY NUMERO_JACK"
cnn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ("c:\sistema\datos\DATOS.mdb"))
da = New OleDbDataAdapter(STRSQL, cnn)
dt = New DataTable
da.Fill(dt)

end sub

Con estos datos ¿que debo hacer para eliminar o insertar un registro en la base de datos?

Le agradeceria mucho que me explicaran porque lleo varios dias "trancado" en este punto.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda POr favor !!!!

Publicado por oswaldo (41 intervenciones) el 15/05/2006 16:36:59
'bueno unos tips para agregar espero te sirva

Dim strQry As String
Dim cmUpdate As New OleDb.OleDbCommand

strQry = "INSERT INTO JACK (campo1, campo2, campo3, campo4, " & _
"campo5, campo6, campo7, campo8, campo9, " & _
"campo10) " & _
"VALUES( '" & Trim(valornuevo1.text) & "', " & _
" '" & Trim(valornuevo2.text) & "', " & _
" '" & Trim(valornuevo3.text) & "', " & _
" '" & Trim(valornuevo4.text) & "', " & _
" '" & Trim(valornuevo5.text) & "', " & _
" '" & Trim(valornuevo6.text) & "', " & _
" '" & Trim(valornuevo7.text) & "', " & _
" '" & Trim(valornuevo8.text) & "', " & _
" '" & Trim(valornuevo9.text) & "', " & _
" trim(valornuevo10.text)) "

cmUpdate.CommandText = strQry
cmUpdate.Connection = cnn
cmUpdate.ExecuteNonQuery()

'para eliminar

Dim strQry As String
Dim cmDelete As New OleDb.OleDbCommand

cmDelete.CommandType = CommandType.Text
cmDelete.Connection = cNGen
strQry = "DELETE FROM JACK " & _
"WHERE numero_jack = '" & Trim(numerobuscayborra.text)
& "'"
cmDelete.CommandText = strQry
cmDelete.ExecuteNonQuery()

'bueno espero te sirva esto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar