|
|
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
xlSheet = Ctype(xlBook.Worksheets(1), Excel.Worksheet)
...
xlSheet.Cells(1,2) = "ok" ' # Make your changes #
...
xlSheet.Application.Visible = True
xlSheet.SaveAs("C:.......\example.xls")
Please tell me the code, to open (connect with) the file: C:\...\Print.xls
Thanx for your care...
|
|
|
|
|
xlBook = xlApp.Workbooks.Open("C:\whatever.xls")
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
how to put flash in vb.net?
|
|
|
|
|
You have to customize the toolbox to add a COM component : shockwave flash object. Then you can place that control inside the form and set the properties.Hope this meets ur needs.
Happy Programming,
Vimal Raj
-- modified at 2:17 Saturday 21st January, 2006
|
|
|
|
|
|
I am using dataset to fill my datagrid. As I don't want the user to know my tables fields I using
select cname as "NAME" FROM PHONE
I am able to fill my datagrid but my problem is my header text is in small character ie. "name". Is there any way in which I can make it CAPS ie. "NAME". 
Kindly Suggest Pls
Thanks in advance
|
|
|
|
|
|
The best way to do it is to not change the column names in the SELECT statement. Instead of relying on the automatic column creation for you DataGrid, make your own columns. You can control what columns they're bound to in your DataSet and what their HeaderText names are, as well as a slew of other thing.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
|
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.
|
|
|
|
|
I believe that I understand your problem. This is how you would go about doing it. I don't know what server you are trying to run off of (MS Sql server, oracle, an internal dataset application, whatever) but you would have to setup a dataconnection to call the information from the server, then you would have to setup a dataset off of that dataconnection to actually go in and retrieve the data, once you put the dataset control in your environment you have to bind the properties of it so that it uses the dataconnection. I believe the property is datasource (if you set the data source to your connection which could be named mydbcon or whatever you named it) the data source allows the dataset to connect through the dataconnection type which actually the dataconnection only connects to the server, logs in, then the dataset retrieves the information requested from the server. .Net has server control boud functions for this that login to a server and retrieve data from it based off of data connections and datasets. These controls should automatically be placed inside your toolbox in VStudios. The next step that I am about to arrive at is binding the button search to display the dataset on the next control. This is probably the easiest part. We will display Form2 with the dataset control on the form using the nice easy
With New function that is supported in VB.Net. This is how you would call Form2 to load on the button click event to display with the dataset object:
Private Sub btnsearch_Clicked(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click<br />
With New Form2<br />
.Show()<br />
End With<br />
End Sub<br />
Now I don't know how you have your environment setup but if you have the dataset object to display on the load of form2 then you have to set the search results to bind with the search query given. Again you can do this using the with New function.
I apologize if this sounds confusing, I am at school and don't have Visual Studios on me so I am having to do this all off my head  If you have any further questions or problems MSDN libraries is a great resource on explaining how to connect datasets to dataconnections and dataconnections to servers (or any other programming problems you may arrive at). Thanks hope this helps!
~ Mike
|
|
|
|
|
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<br />
<br />
Dim data As New dbAccess<br />
Dim logNumber As Long<br />
'data.GetAllChangeControl(CDate(txtdtrqst.Text), CDate(txttrgdt.Text), CDate(txttime.Text), txtrqstby.Text, txtprojname.Text, txtdscp.Text, txtusers.Text, txtdpt.Text)<br />
logNumber = data.GetAllChangeControl<br />
Dim srch As Change<br />
srch.DateRequested = txtdtrqst.Text<br />
srch.TargetDate = txttrgdt.Text<br />
srch.Time = txttime.Text<br />
<br />
'txtdtrqst.Text = srch.DateRequested<br />
<br />
End Sub
----------------------------------------------------------------------------
This is the class called dbAccess
<br />
<br />
Public Function GetAllChangeControl() As String<br />
Dim con As OleDbConnection<br />
Dim cmd As OleDbCommand = New OleDbCommand<br />
<br />
con = New OleDbConnection(connectionstring)<br />
cmd.Connection = con<br />
<br />
cmd.CommandText = "EXECUTE GetAllChangeControl"<br />
con.Open()<br />
GetAllChangeControl = CStr(cmd.ExecuteScalar()):mad:<br />
con.Close()<br />
<br />
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.
|
|
|
|
|
I think you may be running into problems on this specific function cmd.ExecuteScalar(). I need to know what data its trying to pull. Try puting a breakpoint on the line and executing it. When it stops at that line open up the immediate window (down by your output for compilation) and type into it
?GetAllChangeControl
It would be good if it said NULL or Nothing, which I am sure it will sense it dies at that point. Does Visual Studios give you the key dropdown after you type cmd.? If it doesn't that is where the problem would be. I'm just throwing out a list of ideas here, try the debugging with the immediate window and let me know what the output of it is.
~ Mike
|
|
|
|
|
Try the following with your function:
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()
'---------------------------------------------
' Here is the change
Dim retVal As Object
Try
retVal = cmd.ExecuteScalar()
If Not(IsNothing(retVal)) Then
Return Cstr(retVal)
Else
Return String.Empty
End If
Catch ex As OledbException
Throw ex
Finally
con.Close()
If Not con Is Nothing Then con.Dispose
If Not cmd Is Nothing Then cmd.Dispose
End Try
'------------------------------------------
End Function
Let me explain, it is possible that your "cmd.ExecuteScalar" is not returning anything and you are not checking for that, so what I've done here is do a simple check and return the appropriate value. I have also enclosed the procedure in a Try statement to capture the Exception, and make sure that even if an Exception is thrown, the connection is closed and you realease your resources.
I hope this helps.
|
|
|
|
|
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.
|
|
|
|
|
Handle the DateTimePicker's ValueChanged event. Get the Value from your DateTimePicker control, convert it to a String in the format you want and set the Text property of your TextBox.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
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!
|
|
|
|
|
shakizil wrote: I am new to VB.Net and just want to get over with this stupid project.
Why does this scream "HOMEWORK ASSIGNMENT"???
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Dave Kreskowiak wrote: Why does this scream "HOMEWORK ASSIGNMENT"???
Don't look the people in that way. I usually meet this problem. I don't have any home work from school. But sometime i have my own idea to build an application, sometime i have an idea to do it but don't know how to code it.
|
|
|
|
|
Roath Kanel wrote: But sometime i have my own idea to build an application,
I seriously doubt that's the case here, simply because of this one statement he made:
...just want to get over with this stupid project.
This is telling me it's something he doesn't want to do. The only thing that fits his profile of a newbie and an assignment he/she doesn't want is homework.
I, and many people here, will not write someones homework assignment for them. That's what RentACoder is for! We'll help with code that is already written, but won't write it for them.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Originally yes, the first reply is correct, although another alternative would be to set the textbox.text property value. Say for instance you have a text box named txtbxdate and a date & time picker named datetm. You would need to set the code of the text box to equal the date selected from the date & time drop down. It would look something like this
txtbxdate.text = datetm.selecteddate
or something like that I'm not actually running visual studios so I don't know exactly what the date & time picker property looks like but i know you can set the text of a text box to the date & time selected on the date & time box.
~ Mike
|
|
|
|
|
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<br />
Me.txttrgdt.Text = Me.DateTimePicker1.Value.ToString("MM/dd/yyyy")<br />
End Sub
There you go guys.
And Dave this is not a HOME WORK ASSIGNMENT.
Thanks.
|
|
|
|
|
Hi,
What is the correct way of determining whether or not (part of) a control is visible on the screen? (i.e. when graphics in the control is continuously being updated, requiring a lot of processing that you'd want to save if the control is not even visible (when its parent window is minimized or overlapped by other windows, etc.)
Thanks
Jim
|
|
|
|
|
If Windows wants the control redrawn, it'll tell you. You don't have to worry about redrawing if you don't get a Paint message. What you might want to do is check to make sure your controls Visible property is set and not paint your control if it's false.
Simply, if your control is not visible, Windows won't send you any Paint messages, even if Invalidate is called on your control. No Paint messages means your control won't paint until Windows determines that your control has, at least, a tiny bit of it visible.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
