Bases de Datos - Ayudaaaaaa!!!! Resulset

   
Vista:

Ayudaaaaaa!!!! Resulset

Publicado por Claudio (1 intervención) el 13/11/2008 16:20:16
Necesitaria si alguien sabe como declarar el resulset para que pueda editar una base de datos ya que el codigo que tengo declarado me dice que es de solo lectura cuando ejecuta la linea:

ResultSet.UpdateLong ("col3", sqlcol1)

Desde ya muchas gracias aquella persona por tomarse las molestias de ayudarme

PD: este seria el codigo.

REM ***** BASIC *****

Sub aceptarPM

Dim Doc As Object
Dim DrawPage As Object
Dim Form As Object
Dim DatabaseContext As Object
Dim DataSource As Object
Dim Connection As Object
Dim InteractionHandler as Object
Dim ValPM as string
Dim sqlcol1 as integer

'Sentencia para trabajar con el formulario activo
'-------------------------------Comienzo----------------------------------
Doc = StarDesktop.CurrentComponent
DrawPage = Doc.DrawPage
Form = DrawPage.Forms.GetByIndex(0)
'---------------------------------FIN-------------------------------------

'Sentemcia para conexion con Base de Datos solicitando pass en caso de requerirla
'-------------------------------Comienzo----------------------------------
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("Nombre base de datos")
If Not DataSource.IsPasswordRequired Then
Connection = DataSource.GetConnection("Usuario","Contraseña")
Else
InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
Connection = DataSource.ConnectWithCompletion(InteractionHandler)
End If
'---------------------------------FIN-------------------------------------

'Sentemcia para declarar Resultset y crear consulta
'-------------------------------Comienzo----------------------------------

Statement = Connection.createStatement(ResultSet.CONCUR_UPDATABLE ,ResultSet.TYPE_FORWARD_ONLY)
ResultSet = UPDATEABLE
ResultSet = Statement.executeQuery("SELECT col1,col2 FROM tabla1 WHERE col3 = 1")

'---------------------------------FIN-------------------------------------

'Sentemcia para cargar datos
-------------------------------Comienzo----------------------------------
valpm = form.PM.text
If Not IsNull(ResultSet) Then
While ResultSet.next
if valpm = ResultSet.getString(2) then
sqlcol1 = ResultSet.getString(1)
ResultSet.UpdateLong ("col3", sqlcol1)
ResultSet.updateRow()
end if
Wend
End If
'---------------------------------FIN-------------------------------------
End Sub
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:Ayudaaaaaa!!!! Resulset

Publicado por Franklin Gamboa (188 intervenciones) el 18/11/2008 01:01:31
Deverías consultar en el foro de visual basic, aqui es mas que nada para consultas generales de bases de datos, por ende nuestra especialidad es bases de datos.
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