ACTUALIZAR BD
Publicado por DAVID MORENO (2 intervenciones) el 21/09/2004 22:43:31
Hola a todos, cuento mi problema :
Este codigo lo gasto para recuperar unos datos de una base de datos de Acces.
Dim objConexion As OleDbConnection
Dim objDataAdapter As OleDbDataAdapter
Dim objDataSet As DataSet
Dim objRow As DataRow
objConexion = New OleDbConnection(CadenaConexion)
objDataAdapter = New OleDbDataAdapter("Select * From clients”,objConexion)
objDataSet = New DataSet
objDataAdapter.Fill(objDataSet, "Ejemplo")
For Each objRow In objDataSet.Tables("Ejemplo").Rows
TextBox1.Text = objRow("cliente")
TextBox2.Text = objRow("domicilio")
TextBox3.Text = objRow("telefono")
TextBox4.Text = objRow("poblacion")
TextBox5.Text = objRow("dni")
Next
y hasta aquí todo funciona bien, el problema lo tengo cuando quiero INSERTAR los datos de los TEXTBOX en la base de datos, ya he probado de varias maneras pero no me funciona. Haber si me podeis ayudar .
(Con lo feliz que era yo con el visual basic 6)
Gracias por la AYUDA de antemano.
Este codigo lo gasto para recuperar unos datos de una base de datos de Acces.
Dim objConexion As OleDbConnection
Dim objDataAdapter As OleDbDataAdapter
Dim objDataSet As DataSet
Dim objRow As DataRow
objConexion = New OleDbConnection(CadenaConexion)
objDataAdapter = New OleDbDataAdapter("Select * From clients”,objConexion)
objDataSet = New DataSet
objDataAdapter.Fill(objDataSet, "Ejemplo")
For Each objRow In objDataSet.Tables("Ejemplo").Rows
TextBox1.Text = objRow("cliente")
TextBox2.Text = objRow("domicilio")
TextBox3.Text = objRow("telefono")
TextBox4.Text = objRow("poblacion")
TextBox5.Text = objRow("dni")
Next
y hasta aquí todo funciona bien, el problema lo tengo cuando quiero INSERTAR los datos de los TEXTBOX en la base de datos, ya he probado de varias maneras pero no me funciona. Haber si me podeis ayudar .
(Con lo feliz que era yo con el visual basic 6)
Gracias por la AYUDA de antemano.
Valora esta pregunta


0