|
I have been working on a database program with a Access database. I have on one form a datagrid and it has "Employee Table" table on it. Now what I want to happen is if you click on a row and click "Open" button (btnOpen" it fills the information to another form with text boxes like "TxtAdd1" (Address) and so on.
Also, I have a save button on the form with the text boxes (Save Form) and what I want is to be able to save the information in the text boxes as a new employee in Employee Table, but if the employee ID is same as already in the database table, it will say message "This employee ID already exists, would you like to overwrite current employees information?" (Yes or no)
Any help would be appreciated. I am trying to make this so I don't have to use databound items on text boxesThanks in advance.
In the end we're all just the same
|
|
|
|
|
You need to write code in the button click events of both the buttons. In case of open, get the selected row and fill its data in the textboxes. In case of save button, use classes in OleDB namespace to save data.
Dave McCool wrote: "This employee ID already exists, would you like to overwrite current employees information?" (Yes or no)
Assuming this will be the primary key, it should be auto-incremental or should be generated through code. Why are you letting user create the IDs?
जय हिंद
|
|
|
|
|
I fixed that, just realised the ID should be an autonumber. Anyway is there a way of adding the information on all the textboxes to the database table as a new user... the txtAdd1 text will be stored in Address 1 cell and so on.
In the end we're all just the same
|
|
|
|
|
Create a stored procedure in your database and send the textbox values as parameters or build a query in your code and perform insert/update using Command object.
जय हिंद
|
|
|
|
|
u should use command builder to save or update which will generate command dynamically insert for new and updated for existance.
|
|
|
|
|
i have a text file which has lines as follows:
modified 28-Nov-12 4:46am.
|
|
|
|
|
Obviously you need to step through and work out why m is not -1 when you want it to be.
Christian Graus
Driven to the arms of OSX by Vista.
"I am new to programming world. I have been learning c# for about past four weeks. I am quite acquainted with the fundamentals of c#. Now I have to work on a project which converts given flat files to XML using the XML serialization method" - SK64 ( but the forums have stuff like this posted every day )
|
|
|
|
|
I think you actually want to do a replace rather than remove
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
|
You can't, unless you do an indeterminate one. Of course, it also needs to run in another thread.
Christian Graus
Driven to the arms of OSX by Vista.
"I am new to programming world. I have been learning c# for about past four weeks. I am quite acquainted with the fundamentals of c#. Now I have to work on a project which converts given flat files to XML using the XML serialization method" - SK64 ( but the forums have stuff like this posted every day )
|
|
|
|
|
I would like to know how to write out excel 2003 excel worksheets to separate files. Basically I need to write out each excel 2003 file generated by a vb.net 2005 desktop application to separate workbooks. Each separate worksheet is going to be email and encrypted for each customer.
Thus I would appreciate any suggestions that you have how to accomplish this task.
Thanks!
|
|
|
|
|
I'm assuming you already have Excel interop code written that creates the worksheet.
All you do is create a new Workbook, add a new Worksheet to it, populate it, and save. Rinse and Repeat.
Google results for "vb.net create new workbook"[^].
|
|
|
|
|
Dave Kreskowiak:
Thank you for your immediate response. However my question is can I reuse the excel object embedded in the vb.net 2005 desktop application? I need to put the output from sql server 2005 on separate spreadsheets for different customers. To accomplish this tak, it looks like I need to close and reopen the excel object each time I need to write to a new excel worksheet. Thus is there a way that I could reuse the object?
Thanks!
|
|
|
|
|
jazzgirl wrote: can I reuse the excel object
Yes.
jazzgirl wrote: it looks like I need to close and reopen the excel object each time I need to write to a new excel worksheet.
Not true. You just close the existing workbook after you save it and create a new workbook, then add a new worksheet to it.
jazzgirl wrote: is there a way that I could reuse the object?
The simplest route, though no the most proper, would be to just create a class-level variable to hold the Excel app object, then you can use it through out the form class.
|
|
|
|
|
Hi I programmed Xcell Object in VB6 , and Here is My Idea ,How it works , it may not be
much different from VB-Net Code :
To Read from a specific cell on the Sheet --> to a variable use following Formats :
-----------------------------------------------------------------------------------
NUM = Val(Form1.Spreadsheet1.Cells(9, 5))
BRN = Val(Form1.Spreadsheet1.Cells(10, 5))
And To Write a value from a Variable to a Spesific Cell on a sheet Use Format below :
----------------------------------------------------------------------------------------
MM = 4 :' Say or any other value.
Form1.Spreadsheet1.Cells(MM + 3, 1) = MM
-----------------------------------------------------------------------------------------
If You are in Sheet1 and you want to send Output to sheet3 , this is Simple, Just Change
the sheet # and provide the Cell adress exactly as an example see :
JK ... has some value send it to sheet3 :
Form1.Spreadsheet3.Cells(7, 5) = JK
I hope I helped .
Regards , mohamad
|
|
|
|
|
hello every one
i want to create a report in excel using the items and sub items of listview
my code is:-
Dim xl As New Excel.Application
Private Sub exc()
Try
Dim i As String
i = CStr(1)
Me.xl = CreateObject("Excel.Application")
Me.xl.Workbooks.Add()
Me.xl.Range("A1").Value = "Sr No."
Me.xl.Range("B1").Value = "Area Code"
Me.xl.Range("C1").Value = "Area Name"
Me.xl.Range("D1").Value = "Alias"
i = CStr(2)
'Me.TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
this i have written in form Load event
now code on button click event is:-
Private Sub btnreport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreport.Click
Try
xl.Visible = True
Me.xl.Range("A" & i).Value = Me.lst1.Items(0).SubItems(0).Text
Me.xl.Range("B" & i).Value = Me.lst1.Items(0).SubItems(3).Text
Me.xl.Range("C" & i).Value = Me.lst1.Items(0).SubItems(1).Text
Me.xl.Range("D" & i).Value = Me.lst1.Items(0).SubItems(2).Text
i = CStr(CDbl(i) + 1)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Exception from HRESULT: 0x800A03EC
i got this message in catch block cant get it so
please help..
|
|
|
|
|
As far as I can see, i needs to equal 1 for this to work ? Have you stepped through the code to see what is blowing up ? Have you googled the HRESULT ? Is that all the error message you get ?
I googled the HRESULT and this was the first hit:
http://www.ureader.com/message/692318.aspx
you really need to learn to do basic research.
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
i give u full code aft one to two days ok
dinesh rajput
global infotec
Mohali
Punjab
India
dinua1091@rediffmail.com
|
|
|
|
|
hello
Mr. Rajput
it will be kind of u if u give me code...
thanks a lot in advance...
|
|
|
|
|
I have not used vb is about 15 years, I was wondering what I needed to do to get my program to allow me to pick a directory and load 3 dbf files in to the program so I can modify them if some one can point me in the right direction that would be great
|
|
|
|
|
seccard1 wrote: I have not used vb is about 15 years,
wow, Is that mean the last version you use was VB3.0? It was released around 1993. What made you come back?
seccard1 wrote: I was wondering what I needed to do to get my program to allow me to pick a directory and load 3 dbf files in to the program so I can modify them if some one can point me in the right direction that would be great
You are trying to read dbase databse? here is what you need
Add Microsoft DAO reference to your project then the following code will do some magic tricks
Dim sql As String
sql = "Select * From table"
Dim db As Datbase
Set db = DBEngine.OpenDatabase("C:\Database", False, False, "dBASE III;")
Dim recset As RecordSet
Set recset= db.OpenRecordset(sql)
This is may not compile, you will need to tweak it. It has been that long since working with vb
Yusuf
Oh didn't you notice, analogous to square roots, they recently introduced rectangular, circular, and diamond roots to determine the size of the corresponding shapes when given the area. Luc Pattyn[^]
|
|
|
|
|
I used to use VB 3.0 Professional loads a while ago 
Lloyd J. Atkinson
I used Vista the other day. It was also the last time I will ever voluntarily use the damn thing. I would rather use Windows 1.0 just because it dosent literally chew the RAM just to draw pretty colours.
|
|
|
|
|
hello every one
I want that all the items of checklistbox which are checked to be entered in multiline textbox...for that my code is:-
Dim i, t As Integer
t = Me.chklistbox.Items.Count
For i = 0 To t - 1
Me.txtpov.Text = (Me.chklistbox.CheckedItems(i) & "," & Me.chklistbox.CheckedItems(i + 1))
Next
but this only works for two items rest are not seen
so please tell what shall i write in code to display every item that is checked comes in multiline textbox....
|
|
|
|
|
Hi,
a property that gets several values assigned to it only remembers the last value, so having Me.txtpov.Text = something in a loop like that does not make sense. Either use a Control that knows how to collect multiple items, or concatenate all strings you want to be shown.
Luc Pattyn [Forum Guidelines] [My Articles]
- before you ask a question here, search CodeProject, then Google
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get
- use the code block button (PRE tags) to preserve formatting when showing multi-line code snippets
|
|
|
|
|
Dim i, t As Integer
t = Me.chklistbox.CheckedItems.Count
For i = 0 To t - 1
Me.txtpov.Text = Me.txtpov.Text & Me.chklistbox.CheckedItems(i) + ","
Next
* You were counting all the items in your loop, whilst you only want to iterate through the checked ones.
* You were overwriting your textbox with the text of the last two items found, whilst you want to append text to the textbox, for each checked item.
Enjoy
I are troll
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
