Staff
Good night, based on the code below am the following issues:
1) The opening screen of the database login, password to verify the claims that must be done? 2) And how should I do to refresh when the user presses, he update the report?
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim frm As New Form2 frm.Show() End Sub End Class
Public Class Form2 Private Sub crptempresas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crptempresas.Load Dim dbstrconexao As String = "User ID=system;Password=fernanda;Data Source=ORCL;" Dim dbcnnconexao As New OracleConnection Dim dbcmdconexao As New OracleCommand Dim dbdstconexao As New DataSet Dim telarpt As New relempresascrp dbcnnconexao.ConnectionString = dbstrconexao Try dbcnnconexao.Open() Catch ex As Exception MessageBox.Show(ex.Message, " Erro 1 ", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try Try dbcmdconexao.Connection = dbcnnconexao With dbcmdconexao .CommandText = "BUSCAPORCEP" .CommandType = CommandType.StoredProcedure .Parameters.Add("CEP_ID", OracleType.NVarChar, 8).Value = Form1.TextBox1.Text.ToString .Parameters(0).Direction = ParameterDirection.Input .Parameters.Add("EMPRESAS_C", OracleType.Cursor) .Parameters(1).Direction = ParameterDirection.Output End With Try Dim dbadpconexao As New OracleDataAdapter(dbcmdconexao) dbadpconexao.Fill(dbdstconexao) telarpt.SetDataSource(dbdstconexao.Tables(0)) crptempresas.ReportSource = telarpt Catch ex As Exception MessageBox.Show(ex.Message, " Erro 2 ", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try Catch ex As Exception Console.WriteLine(ex.Message) End Try dbcmdconexao.Dispose() dbcnnconexao.Close() dbcnnconexao.Dispose() End Sub End Class
|