Hola de nuevo, necesito ayuda, tomando la idea de la publicación de
Leandro Tuttini en su blog he intentado hacer lo siguiente:
Imports System.Data.SqlServerCe
Public Class asignaPregunta
Private Sub ConsultarDatos(ByVal idBuscar As Int32)
Dim sql As String = "SELECT idEncuesta, nomEncuesta, tipoEncuesta, numInterrogantes" & _
"FROM encuesta" & _
"WHERE idEncuesta=@idBuscar"
Using conn As New SqlCeConnection(cadenaConexion.cadenaConexion.ToString())
Dim commandBuscar As New SqlCeCommand(sql, conn)
commandBuscar.Parameters.AddWithValue("idEncuesta", idBuscar)
conn.Open()
Dim leer As SqlCeDataReader = commandBuscar.ExecuteReader()
If leer.Read() Then
Label7.Text = Convert.ToInt32(leer("idEncuesta"))
Label8.Text = Convert.ToString(leer("nomEncuesta"))
Label9.Text = Convert.ToString(leer("tipoEncuesta"))
Label7.Text = Convert.ToInt32(leer("numInterrogantes"))
End If
End Using
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Try
Dim idBuscar As Int32
Int32.TryParse(TextBox1.Text, idBuscar)
ConsultarDatos(idBuscar)
'Catch ex As Exception
'MessageBox.Show(ex.Message)
'End Try
End Sub
End Class
el error que me da es el siguiente:
Error al analizar la consulta. [ Token line number = 1,Token line offset = 82,Token in error = idEncuesta ]
Gracias por su ayuda.
Programming Tools