1
Bases de Datos / Re:Cuelgue de pagina al realizar Update
« en: Febrero 05, 2018, 05:51:27 pm »
Que tal YAcosta no sera porque MPR_ID N no esta declarada como variable?
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.

Sub Process_Globals
Dim SQL1 As SQL
Dim cursor1 As Cursor
Dim Req As HttpRequest
Dim hc As HttpClient
End Sub
Sub Globals
Dim Button1 As Button
Dim ListView1 As ListView
Dim Button2 As Button
Dim Button3 As Button
Dim Label1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("principal")
If FirstTime Then
hc.Initialize("hc")
End If
End Sub
Sub Button2_Click
Dim Query As String
cursor1 = SQL1.ExecQuery("SELECT * FROM geo_data")
For I = 0 To cursor1.RowCount - 1
cursor1.Position = I
Query="INSERT INTO geo_data(fecha,hora,latitud,longitud,phonedID,transmitido) VALUES ('" & cursor1.GetString("fecha") & "','" & cursor1.GetString("hora") & "','" & cursor1.GetString("latitud") & "','" & cursor1.GetString("longitud") & "','" & cursor1.GetString("phonedID") & "','" & cursor1.GetString("transmitido") & "')"
Req.InitializePost2("http://localhost/pruebagps.php",Query.GetBytes("UTF8"))
hc.Execute(Req,1)
Next
End Sub
Sub hc_ResponseSuccess (Response As HttpResponse, tarea As Int)
Dim resultString As String
resultString = Response.GetString("UTF8")
End Sub
Sub hc_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, tarea As Int)
Log("Error: " & Reason & ", StatusCode: " & StatusCode)
If Response <> Null Then
Log(Response.GetString("UTF8"))
Response.Release
Label1.Text= Reason & ", StatusCode: " & StatusCode
End If
End Sub
50244248255
Imports IBM.Data.DB2
Imports System.Data
connectionstring = "server=MISERVIDOR:PUERTO;database=MIBASE;UID=MIUSUARIO;PWD=MICLAVE"
Dim ds As New DataSet()
Dim dbconn As New DB2Connection(connectionstring)
dbconn.Open()
Dim da As New DB2DataAdapter("SELECT * FROM MITABLA", dbconn)
da.Fill(ds)
DataGridView1.DataSource = ds
DataGridView1.DataMember = ds.Tables(0).TableName
da.Dispose()
dbconn.Close()
<producto id="8">
<sujeto id="fisico">
<tipo id="identificadores">
<item id="CEDULA DE VECINDAD" Expresion="c3234324"/>
<item id="NUMERO DE IDENTIFICACION TRIBUTARIA" Expresion="3434343"/>
<item id="CEDULA DE RESIDENCIAS" Expresion=""/>
<item id="DPI" Expresion=""/>
<item id="PASAPORTE" Expresion=""/>
<item id="OTRA IDENTIFICACION" Expresion="3434343434/>
</tipo>
<tipo id="datos_generales">
<item id="FECHA DE NACIMIENTO"/>
<item id="TELEFONO"/>
</tipo>
<tipo id="nombres">
<item id="PRIMER NOMBRE"/>
<item id="SEGUNDO APELLIDO"/>
<item id="SEGUNDO NOMBRE"/>
<item id="APELLIDO CASADA"/>
<item id="PRIMER APELLIDO"/>
</tipo>
</sujeto>
<sujeto id="juridico">
<tipo id="identificadores">
<item id="NUMERO DE IDENTIFICACION TRIBUTARIA" Expresion="232323"/>
<item id="PATENTE DE COMERCIO" Expresion=""/>
<item id="OTRA IDENTIFICACION" Expresion="232323"/>
</tipo>
<tipo id="datos_generales">
<item id="FECHA DE CONSTITUCION"/>
</tipo>
<tipo id="nombres">
<item id="RAZON SOCIAL"/>
<item id="NOMBRE COMERCIAL"/>
</tipo>
</sujeto>
</producto>
