|
I watched the video a bit but connection problem..
Below is what i've done..
These are table definitions:
ReceivedCorr-Table
1)ID PK KEY
2)DATE
3)ReceivedCorrNo
4)RegisNo
5)RegisDate
6)Instruction
7)Destination
8)Summary
9)ReferenceNo
Complaint-Table
1)ID PK KEY
2)complaintID
3)complaintType
4)complaintDesc
5)Status
6)Recommendation
Complainant-Table
1)ID PK KEY
2)LASTNAME
3)FIRSTNAME
4)ETC..
Offender-Table
1)ID PK KEY
2)lastname
3)firstname
4)etc..
duty_officer-table
1)ID PK KEY
2)lastname
3)firstname
4)etc...
I have a dataset ReceivedCorrDS that has all five tables(receivedCorr, complaint, complainant,offender, duty_officer)
I drag the ReceivedCorrDS as details onto the form
when i load receivedCorr.vb, i see all the records on ReceivedCorr table not the other tables..
when i save nothing happens not even msgbox("your Correspondence were saved")
Here is code of the actual form.. guide me thru it please..
---------------
Private Function Save() As Boolean
Dim Saved As Boolean = False
If ReceivedCorrDS.HasChanges Then
Try
Dim ReceivedCorrUpdate() As DataRow = Me.ReceivedCorrDS.ReceivedCorr.Select("", "", DataViewRowState.Added Or DataViewRowState.ModifiedCurrent)
Dim ComplaintUpdate() As DataRow = Me.ComplaintDS.Complaint.Select("", "", DataViewRowState.Added Or DataViewRowState.ModifiedCurrent)
Dim ComplainantsUpdate() As DataRow = Me.ComplainantsDS.complainants.Select("", "", DataViewRowState.Added Or DataViewRowState.ModifiedCurrent)
Dim OffendersUpdate() As DataRow = Me.OffendersDS.offenders.Select("", "", DataViewRowState.Added Or DataViewRowState.ModifiedCurrent)
Dim DutyOfficersUpdate() As DataRow = Me.DutyOfficersDS.Duty_Officers.Select("", "", DataViewRowState.Added Or DataViewRowState.ModifiedCurrent)
Me.ReceivedCorrTableAdapter.Update(ReceivedCorrUpdate)
Me.ComplaintTableAdapter.Update(ComplaintUpdate)
Me.ComplainantsTableAdapter.Update(ComplainantsUpdate)
Me.OffendersTableAdapter.Update(OffendersUpdate)
Me.Duty_officersTableAdapter.Update(DutyOfficersUpdate)
Dim RecievedCorrDelete() As DataRow = Me.ReceivedCorrDS.ReceivedCorr.Select("", "", DataViewRowState.Deleted)
Dim ComplaintDelete() As DataRow = Me.ComplaintDS.Complaint.Select("", "", DataViewRowState.Deleted)
Dim ComplainantsDelete() As DataRow = Me.ComplainantsDS.complainants.Select("", "", DataViewRowState.Deleted)
Dim OffendersDelete() As DataRow = Me.OffendersDS.offenders.Select("", "", DataViewRowState.Deleted)
Dim DutyOfficersDelete() As DataRow = Me.DutyOfficersDS.Duty_Officers.Select("", "", DataViewRowState.Deleted)
Saved = True
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End If
Return Saved
'Me.ReceivedCorrBindingSource.EndEdit()
End Function
------------------------------------------------
Private Sub ReceivedCorrForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'ReceivedCorr_ActorDS1.ReceivedCorr_Actor' table. You can move, or remove it, as needed.
Me.ReceivedCorrTableAdapter.Fill(Me.ReceivedCorrDS.ReceivedCorr)
Me.ComplaintTableAdapter.Fill(Me.ComplaintDS.Complaint)
Me.ComplainantsTableAdapter.Fill(Me.ComplainantsDS.complainants)
Me.OffendersTableAdapter.Fill(Me.OffendersDS.offenders)
Me.Duty_officersTableAdapter.Fill(Me.DutyOfficersDS.Duty_Officers)
End Sub
------------------------------------------
Private Sub RecCorrBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.ReceivedCorrBindingSource.EndEdit()
Me.ComplaintBindingSource.EndEdit()
Me.ComplainantsBindingSource.EndEdit()
Me.OffendersBindingSource.EndEdit()
Me.Duty_officersBindingSource.EndEdit()
If Me.Save() Then
MsgBox("Your Received Correspondence were saved.")
End If
End Sub
-----------------------------
Private Sub ReceivedCorrForm_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
frm_Mainwindow = Me.MdiParent
frm_Mainwindow.ReceivedCorr.Enabled = True
End Sub
----------------------------
Thanks very kindly..
Waiting for your help..
when i load the form
|
|
|
|
|
Is there any way to get Failure notification for the sent mail, in the email address supplied in ReplyTo field ?
Plz Help !!!
Thanks in advance
|
|
|
|
|
No. It's not part of the SMTP standard.
|
|
|
|
|
fine, I get that !!! but what if i still need to implement the same.
|
|
|
|
|
How are you possibly going to know if the server sending the mail won't tell you because it doesn't know?? Or did you not think of that part?
|
|
|
|
|
Hi All,
I am using vb.net 3.5
I am facing a problem when I am trying to attach a ".mdf" from my application's Data folder. its throws an error message "Access Denied",but when I am Change the permission manually the database attached successfuly.
So, I am trying to Create Data folder's Perpisson and Rights Programiticaly, but it's not accessable. my code is :
Try
Dim DomainUser As String = Environment.UserDomainName & "\" & Environment.UserName
Dim Dinfo As New DirectoryInfo(Folder)
Dim Dsecurity As DirectorySecurity = Dinfo.GetAccessControl
Dsecurity.AddAccessRule(New FileSystemAccessRule(DomainUser, FileSystemRights.FullControl, InheritanceFlags.ContainerInherit, PropagationFlags.None, AccessControlType.Allow))
Dsecurity.AddAccessRule(New FileSystemAccessRule(DomainUser, FileSystemRights.FullControl, InheritanceFlags.ObjectInherit, PropagationFlags.InheritOnly, AccessControlType.Allow))
Catch ex As Exception
Debug.Print("GrantAllAccess EXCEPTION:")
Debug.Print(ex.ToString)
End Try
----------------------------------------------------------------------------------------------------
After doing This
under Sequirity tab in "Allow " Columns all the Checkbox uncheck state, but into the advanced tab all the Checkbox Checked
So, What I am doing to to check all the permission in "Security" Tab
Arindam Banerjee
Sr. Software Developer
Rance Computer Pvt Ltd.
Kolkata (India)
|
|
|
|
|
How to detect KeyPress Event of datagridView Cell?
|
|
|
|
|
What is it you want to do with the key press? There is a KeyPress event for the grid which you could handle and then get the current cell. But depending on what you want to do this may not be the best approach.
|
|
|
|
|
do anyone know how to insert a variable type date inside an array type date?
example
Dim startdt(10) as date = date.Today
yours truly,
hyperalergelo
|
|
|
|
|
You can't assign a value to an array, you have to assign it to one of the items in the array:
Dim startDate(10) As DateTime
startDate(10) = DateTime.Today
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
How to get the list of all the folders programmatically inside the mailbox store in exchange server with their URL
|
|
|
|
|
|
Hi....
Please suggest me as to how would i het the list of appointments from user's mailbox in exchange server using VB.net. It has a constarint that we cannt use webDav and CDOEX or CDOEXM needs to be used. The application will be running on exchange server.
|
|
|
|
|
how to enable the pop up window?
|
|
|
|
|
In VB or Vb.net?
In VB Create Menu then visible False. Then use POP UP Menu code.
Code is: -
This Code using in Mouse Down Event.
If Button = 2 Then
PopupMenu ComPort 'ComPort is Menu Name.
End If
In VB.net.
Use ContextMenuStrip build menu then use.
If e.Button = Windows.Forms.MouseButtons.Right Then
Me.ContextMenuStrip1.Show(x, y)
End If
To Enable and Disable Use Menu name and Enable Property.
comPort.Enable = True
modified on Thursday, February 19, 2009 12:18 AM
|
|
|
|
|
hii..i can create a new form..but how to send data from a form to another new form?..thnks
|
|
|
|
|
There are a few ways to do it...
1) Overload the second forms constrictor to provide arguments that you need to pass to the new form as it is created.
2) Provide property getters on the other form so that once you create an instance of it (but before you show it) you can set the properties you need to pass your data across.
3) Provide an Initialize (or other name) method on the new form that has arguments you can use to pass you data along once you create the forms instance but before you show it.
Personally I think these are in the order of best to good, but that is up to you and what your needs are.
|
|
|
|
|
Hi,
I have a toolstripcombobox with auto-suggestions according to listitems in it. My aim is to find the selected item in the listview and highlight it. I am able to select it but I am not able highlight it because lostfocused for toolstripcombobox doesn't happen. How could you do that? I tried invoking listview1 but it didnt'work out.
Thanks.
Private Sub ToolStripComboBox2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripComboBox2.SelectedIndexChanged
Dim ICount As Int32 = 0
ListView1.SelectedItems.Clear()
For Each LItem As ListViewItem In ListView1.Items
If LItem.SubItems(7).Text = ToolStripComboBox2.SelectedItem.ToString _
Or InStr(LItem.SubItems(7).Text, ToolStripComboBox2.SelectedItem.ToString) > 0 Then
ListView1.Items(ICount).Selected = True
Exit Sub
End If
ICount += 1
Next
End Sub
What a curious mind needs to discover knowledge is noting else than a pin-hole.
modified on Wednesday, February 18, 2009 6:45 PM
|
|
|
|
|
Clear the selected items first (there may be 1 or more of them)
do your loop except change this
JUNEYT wrote: ListView1.Items(ICount).Selected = True
to
LItem.Selected = True
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
It doesn't work either. When you click the toolstripcombobox, it gets focsed. When you select an item it the list, the matching record in listview should be highligted at same time. It doesn't highlight it the row in the listview.
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
pleaze help me in infrared communication on the mobile phone
IRCHAT
pleaze help me in this project
|
|
|
|
|
Worst thread ever.
Prepare to be bombarded with insults.
|
|
|
|
|
Help you with what?? We really can't copy a book into the forums to describe how IR comm works.
|
|
|
|
|
Hi,
welcome to CodeProject.
as you are new to this site, I suggest you show you have spent time and effort to get some things done, and then ask specific questions about the thing you are stuck at. People here don't react well on a general "I need so and so, please help" type of question.
Also always use Google to search information, the answer you seek is probably already present somewhere.
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
|
|
|
|
|
I am beaming the answer from my infrared port, prepare to download the transmission.
Any suggestions, ideas, or 'constructive criticism' are always welcome.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
