|
Hi,I hope you can help me out here..I am in the hot seat.. For now I am unable to woatch the video..Can you guide me on what to do. Here is my problem, lets say i create a dataset for complaintDS and drag it onto the form, all the columns are there i can insert fine, but when i do dataset for the other tables on the same form, not all columns i want on the form for example Complainantid( int primary key for that table) i don't want it on the form, it should be autoincremented when i do the insertion. here lies my problem, complaintid, complainantid, etc cannot be nulled... Please help me I have one week to get this done... Look at my scenario, sketch me some few codes, i will be able to take it from there..Do it for just two tables(insert/update) and search and print the actual form data I will take it from that..
|
|
|
|
|
Can you fit the transcript of a 20 minute video in a forum post?? Nope.
You got the cliff-notes version. The step-by-step is in that video and I don't have an hour to type it all up.
|
|
|
|
|
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.
|
|
|
|