Cita:
Iniciado por Kruzado 
eb ni base de datos tengo una tabla que se llama movi, entonces para pasar el parametro al crystal, debes poner la tabla y el campo ntre corchetes y separados por puntos
{movi.micampo}=algo
Disculpen amigos quisiera saber si ustedes me pueden ayyudar. Mire lo q sucede es lo siguiente yo creo una formula para controlar los informes q quiero mostrar. Bien el lo hace, pero el problema se produce cuando ingreso un dato erróneo, el me coloca el reporte en blanco y no me toma la condición donde yo comparo los datos de entrada con los de la base de datos y no me toma esta condición si me puede ayudar se lo agradecería
Miren aquí genero la formula como tal. para q me pueda mostrar las instituciones q correspondan al código q digiten en el txtContraseña no sé si hay algo malo con la formula o qué, pero en si me resulta.
Public Class Form1
Public Shared formula As String
Public Shared selectFormula As String
Public Shared info As New CrystalReport2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
info.RecordSelectionFormula = " {Instituciones.id_Institucion} = '" & frmUsario.txtContraseña.Text & "'"
Dim sqlConn As SqlConnection
Dim sqlinstitucion As SqlDataAdapter
Dim sqlestudiante As SqlDataAdapter
Dim sqlresultado As SqlDataAdapter
Dim dsPc As New depronto
Dim strconn As String = "Server=ADSI13\ADSI13;Initial catalog=Integracion SENA;Integrated Security = SSPI"
Dim StrCommEst As String = "Select * From estudiantes"
Dim strCommRes As String = "Select * From resultado"
Dim strCommInst As String = "Select * From instituciones"
selectFormula = info.RecordSelectionFormula
info.DataDefinition.RecordSelectionFormula = selectFormula
Try
'Crear los DataAdapters
sqlConn = New SqlConnection(strconn)
sqlestudiante = New SqlDataAdapter(StrCommEst, sqlConn)
sqlresultado = New SqlDataAdapter(strCommRes, sqlConn)
sqlinstitucion = New SqlDataAdapter(strCommInst, sqlConn)
'Poblar las tablas del dataset desde los dataAdaperts
sqlestudiante.Fill(dsPc, "estudiantes")
sqlresultado.Fill(dsPc, "resultado")
sqlinstitucion.Fill(dsPc, "instituciones")
'Poblar el informe con el dataSet y mostrarloinfo &
info.SetDataSource(dsPc)
CrystalReportViewer1.ReportSource = info
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Pero el error q se me presenta es en el código del botón aceptar cuando ha digitado un código q no aprace en la base de datos él me muestra el reporte e blanco.
aquí le dejo el código del otro formulario para q lo revises y me digas si es ahí donde tengo el error o es donde tengo la formula.
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
Dim conexion As String = ("Server=ADSI13\ADSI13;" & "Database=Integracion SENA;integrated security = SSPI")
Try
Dim oconexion As New SqlConnection(conexion)
oconexion.Open()
If Form1.info.DataDefinition.RecordSelectionFormula = Form1.selectFormula Then
'Form1.cargar()
Form1.Show()
'Form1.Close()
Else
MsgBox("USUARIO NO ENCONTRADO", MsgBoxstyle.Critical, "Prueba")
Me.txtContraseña.Focus()
Me.txtContraseña.Clear()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Agradesco lo q puedan hacer por mi.
Espero su respuesta
Gracias por todo
por favor ayuda q no se q mas hacer y he buscado en internet y no encuentro nada espero q ustdes me puedan ayudar
mi correo es
[email protected]
[email protected] 
RecordSelectionFormula Ayuda 
