problemas en modulo
Publicado por Hector (1 intervención) el 19/03/2009 17:19:41
Hola amigos del foro tengo un pequeño problema en el modulo ya que almomento de declarar las variables que utilizare, posteriormente me dicen que se esperaba una declaración los errores son, en mi_conexion, mycommand, DS_Item, Item_View, Datagrid_integrantes, de todas meneras les agrego el códigoque estoy utilando actualmente desde ya muchas gracias.
Dim sql As String
Dim mi_conexion As SqlClient.SqlConnection
Dim DS_Item As DataSet
Dim ItemView As DataView
Dim MyCommand As SqlClient.SqlDataAdapter
mi_conexion = New SqlClient.SqlConnection(var_str_conn2) '(var_str_conn2 => Varible de conexion)
sql = "SELECT enc.id_encuesta,enc.id_periodo,enc.rut,enc.id_dependencia,enc.id_comuna"
sql = sql & ",enc.fecha_ingreso,enc.realizada,enc.fecha_realizada,enc.num_encuesta"
sql = sql & ",cli.rut,cli.dv,cli.nombres,cli.ape_pa,cli.ape_ma,cli.email,cli.id_dependencia"
sql = sql & ",cli.login_sistemas,cli.pass_sistemas,cli.id_estado"
sql = sql & ",(cli.ape_pa + ' ' + cli.ape_ma + ' ' + cli.nombres) as nombre"
sql = sql & " FROM " & Session("tabla") & " enc"
sql = sql & " INNER JOIN bd_comun_sistemas.dbo.clientes cli ON cli.rut = enc.rut"
sql = sql & " WHERE enc.id_periodo=" & Session("id_periodo") & ""
sql = sql & " ORDER BY nombre"
MyCommand = New SqlDataAdapter(sql, mi_conexion)
DS_Item = New DataSet()
MyCommand.Fill(DS_Item, "Tmp_Item")
ItemView = DS_Item.Tables("Tmp_Item").DefaultView
DataGrid_integrantes.DataSource = ItemView
DataGrid_integrantes.DataBind()
Favor de ayudarme he tratado todo y nada me funciona, desde ya muchas gracias.
Dim sql As String
Dim mi_conexion As SqlClient.SqlConnection
Dim DS_Item As DataSet
Dim ItemView As DataView
Dim MyCommand As SqlClient.SqlDataAdapter
mi_conexion = New SqlClient.SqlConnection(var_str_conn2) '(var_str_conn2 => Varible de conexion)
sql = "SELECT enc.id_encuesta,enc.id_periodo,enc.rut,enc.id_dependencia,enc.id_comuna"
sql = sql & ",enc.fecha_ingreso,enc.realizada,enc.fecha_realizada,enc.num_encuesta"
sql = sql & ",cli.rut,cli.dv,cli.nombres,cli.ape_pa,cli.ape_ma,cli.email,cli.id_dependencia"
sql = sql & ",cli.login_sistemas,cli.pass_sistemas,cli.id_estado"
sql = sql & ",(cli.ape_pa + ' ' + cli.ape_ma + ' ' + cli.nombres) as nombre"
sql = sql & " FROM " & Session("tabla") & " enc"
sql = sql & " INNER JOIN bd_comun_sistemas.dbo.clientes cli ON cli.rut = enc.rut"
sql = sql & " WHERE enc.id_periodo=" & Session("id_periodo") & ""
sql = sql & " ORDER BY nombre"
MyCommand = New SqlDataAdapter(sql, mi_conexion)
DS_Item = New DataSet()
MyCommand.Fill(DS_Item, "Tmp_Item")
ItemView = DS_Item.Tables("Tmp_Item").DefaultView
DataGrid_integrantes.DataSource = ItemView
DataGrid_integrantes.DataBind()
Favor de ayudarme he tratado todo y nada me funciona, desde ya muchas gracias.
Valora esta pregunta


0