Need help from a crystal reports Guru. I am trying to display values from the text boxes on this one form. The crystal report is already connected to the database and all the fields are there. When I try to run the report it pulls all the data from the DB. Below is the code. Please help! :( Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load Dim myDS As New Dataset1 Dim rptdata As New dbAccess Dim rptval As New Change Dim rpt As New Chgmgt rpt.SetDataSource(myDS) CrystalReportViewer1.ReportSource = rpt Dim LogNumber1 As Integer Dim Daterequested1 As String Dim TargetDate1 As String Dim Time1 As String Dim RequestedBy1 As String Dim ProjectName1 As String Dim ChangeDescription1 As String Dim Users1 As String Dim Department1 As String LogNumber1 = rptval.LogNumber Daterequested1 = rptval.DateRequested TargetDate1 = rptval.TargetDate Time1 = rptval.Time RequestedBy1 = rptval.RequestedBy ProjectName1 = rptval.ProjectName ChangeDescription1 = rptval.ChangeDescription Users1 = rptval.Users Department1 = rptval.Department End Sub ------------------------------------------------------------------------

Thanks bro!:-D

Does anyone know how to deploy an application/project in VB.Net? thanks.:~

Hi, I am new to .NET and having trouble writing the code to take values from all the text boxes in one Form and displaying it in Crystal Reports. Right now the report is connected to Access DB and I have dragged all the fields onto the report. Obviously when I run the report now it takes all the data from the DB and dumps it in the report. To make it display just the desired text boxes this is the code I have written but it does not work. Any help would be appreciated. Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load Dim rptdata As New dbAccess Dim rptval As New Change Dim LogNumber1 As Integer Dim Daterequested1 As String Dim TargetDate1 As String Dim Time1 As String Dim RequestedBy1 As String Dim ProjectName1 As String Dim ChangeDescription1 As String Dim Users1 As String Dim Department1 As String LogNumber1 = rptval.LogNumber Daterequested1 = rptval.DateRequested TargetDate1 = rptval.TargetDate Time1 = rptval.Time RequestedBy1 = rptval.RequestedBy ProjectName1 = rptval.ProjectName ChangeDescription1 = rptval.ChangeDescription Users1 = rptval.Users Department1 = rptval.Department CrystalReportViewer1.ReportSource = New Chgmgt End Sub

Thanks alot Mike, I really appreciate your time and effort. I am using Access DB and this is the code in my search button. Right now it does'nt even work for Form1. By that I mean I am missing simple code to open the database. I am using stored procedures by the way. Take a look and let me know if it makes sense. ----------------------------------------------------------------------------- Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click Dim data As New dbAccess Dim logNumber As Long 'data.GetAllChangeControl(CDate(txtdtrqst.Text), CDate(txttrgdt.Text), CDate(txttime.Text), txtrqstby.Text, txtprojname.Text, txtdscp.Text, txtusers.Text, txtdpt.Text) logNumber = data.GetAllChangeControl Dim srch As Change srch.DateRequested = txtdtrqst.Text srch.TargetDate = txttrgdt.Text srch.Time = txttime.Text 'txtdtrqst.Text = srch.DateRequested End Sub ---------------------------------------------------------------------------- This is the class called dbAccess Public Function GetAllChangeControl() As String Dim con As OleDbConnection Dim cmd As OleDbCommand = New OleDbCommand con = New OleDbConnection(connectionstring) cmd.Connection = con cmd.CommandText = "EXECUTE GetAllChangeControl" con.Open() GetAllChangeControl = CStr(cmd.ExecuteScalar()):mad: con.Close() End Function ---------------------------------------------------------------------------- This is another class which only has all the stored procedures and they refletct the stored procedures in Access. I mean the same code is in Access. sSQL = "CREATE PROC GetAllChangeControl AS SELECT * FROM ChangeControl WHERE LogNumber = @LogNumber;" CreateStoredProc(sSQL) --------------------------------------------------------------------------- When I run the program I get the error message where you see the mad face. err msg "An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.windows.forms.dll" Any help would be appreciated. Thanks.

OK, It me again. Now I want to know if it is possible to have a search button on one form. When I click on the button it should take all the data from the Database and display it on the other two forms. I know for sure that I might be able to do this by calling funtions but don't know if it will work. If any of you have ever done this kind of coding please help this poor guy. Thanks.

Never mind. I got it. Its only a one line code that takes care of the problem. Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged Me.txttrgdt.Text = Me.DateTimePicker1.Value.ToString("MM/dd/yyyy") End Sub There you go guys. And Dave this is not a HOME WORK ASSIGNMENT. Thanks.

Thanks Dave, How do I put all this in code language. I am sorry for being so dumb but I am new to VB.Net and just want to get over with this stupid project. Please help!

I would like to be able to click on the drop down arrow. Pick the date and once I click it should show the date in a seperate text box. Does anyone know the code for that. Any help would be appreciated. Thanks.

Hello, I need help with this. Everytime I run my code I get this error message "An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll" at ExecuteNonQuery. If someone is an SQL and VB.Net guru any help would be appreciated. Thanks. cmd.Parameters.Add(param22) cmd.CommandText = "EXECUTE AddtnlComments" con.Open() cmd.ExecuteNonQuery() con.Close()

I am new to VB.Net and I having some difficulty with the new codes. I wrote the following code in VB6 and trying to implement the same technique in VB.Net. autosql = "select * from orders" Set myorder = mydb.OpenRecordset(autosql, dbOpenDynaset) If myorder.EOF Then x = 1 Else myorder.MoveLast x = myorder!autono + 1 End If addordstring = "insert into orders values(" & x & ",'" & mebdate & "','" & txtaccount & "','" & phone & "','" & coname & "','" & psgname & "','" & cabno & "','" & authname & "','" & driver & "','" & mebpick & "','" & wait & "','" & mebdrop & "','" & from & "','" & txtto & "','" & fare & "')" Set addorder = mydb.CreateQueryDef("", addordstring) addorder.Execute MsgBox "New entry has been added", vbOKOnly + vbExclamation, "Success" clear End Sub Can someone help please. Thanks.

I guess you are right. I will dig more on that website to get help. Thanks.

Thanks guys. Actually that dotnetspider.com was helpfull but I now I am really stuck. I downloaded a sample application from there and helped me build most of my code. I created a bunch of functions within one big class. Now when I try to use the Insert query I get error msgs (Value of type 'String' cannot be converted to 'WindowsApplication1.Change'). Offcourse I am doing a lot of things wrong but I guess I am dumb enough to not know where the problem is. Here is the code for the SAVE button. Private Sub btnsave_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click Dim ad As New Change txtlognum.Text = ad.LogNumber txtdtrqst.Text = ad.DateRequested txttrgdt.Text = ad.TargetDate ad.LogNumber = Change.Createdata("Change", "LogNumber") ad.DateRequested = Change.Createdata(txtdtrqst.Text) ad.TargetDate = Change.Createdata(txttrgdt.Text) ad.Time = Change.Createdata(txttime.Text) ad.RequestedBy = Change.Createdata(txtrqstby.Text) ad.ProjectName = Change.Createdata(txtprojname.Text) ad.ChangeDescription = Change.Createdata(txtdscp.Text) ad.Users = Change.Createdata(txtusers.Text) ad.Department = Change.Createdata(txtdpt.Text) MsgBox("New entry has been added", vbOKOnly + vbExclamation, "Success")--------------------------------------------------------------------- Here is my Class Public Class Change Public CategoryHardware As CheckBox Public categorySoftware As CheckBox Public CategoryNetwork As CheckBox Public CategoryDatabase As CheckBox Public CategoryTcom As CheckBox Public CagegoryFacilities As CheckBox Public RiskHigh As CheckBox Public RiskMedium As CheckBox Public RisLow As CheckBox Public NewProgram As CheckBox Public Maintnace As CheckBox Public Problem As CheckBox Public Enhancement As CheckBox Public Other As CheckBox Public LogNumber As Int16 Public DateRequested As DateTime = Nothing Public TargetDate As DateTime = Nothing Public Time As String Public RequestedBy As String Public ProjectName As String Public ChangeDescription As String Public Users As String Public Department As String Public TypeEr As String Public TypeException As String Public TypeNormal As String Public Description As String Public Completed As CheckBox Public Initials As String

You are so AWSOME!! Thanks for your help. I will try this but I am sure I will have more questions as I start getting the hang of it. Some how MSDN did not help. Shahid.;)

I am new to VB.Net and need some help creating a simple project. I am tryint to user select and insert queries to make it work but somehow nothing happens when i click on the button. Here is the code I am using to do so. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & ("C:\db1.mdb") End Sub Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click Dim searchcommand1 As String = "SELECT * FROM Change Control WHERE (Log number = 'txtlognum')" Private Sub btnsave_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & ("C:\dblog.mdb") Dim InsertCommand1 As String = " INSERT INTO Change Control VALUES ('txtlognum','txtdtrqst','txttrgdt','txttime','txtrqstby','txtprojname','txtdscp','txtusers','txtdpt')" MsgBox("New entry has been added", vbOKOnly + vbExclamation, "Success") ---------------------------------------------------------------- On the left column under Server Explorere I can see all the a tables in my database which means I can connect to it. Can somebody please guide me. I don't know what am I doing wrong. Thanks.