|
|
Hello there!
My code is highlighted below.I have five tabpages(two is shown here!) on a form called vwpatient that runs each time a tabpage is selected.The code below works but my problem is this: there is a textbox called sachPatient.patID from another form called sachPatient, the code pulls data from the database on clicking one or two pages, but if more than two is clicked, an exception fires saying "Make sure you have not released a resource before attempting to use it". I have tried endlessly to fix this problem to no avail. And am still trying!!.
I would appreciate if someone can help me.
Thanks in advance!!!
Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
For Each tabcont As Control In Me.Controls
If TypeOf tabcont Is TabControl Then
For Each tp As Control In tabcont.Controls
If TypeOf tp Is TabPage Then
Select Case tp.Name
Case "vwProfTabPg"
Try
LoadData()
' Configure and execute the command.
cmd = New System.Data.SqlClient.SqlCommand("SELECT * FROM Patient_profile where patient_Id = @Pat_ID")
cmd.Connection = cn
Dim paraPatId As SqlParameter = cmd.Parameters.Add("@Pat_ID", sachPatient.patID.Text)
' Load the DataTable.
datadapt = New System.Data.SqlClient.SqlDataAdapter(cmd)
datadapt.Fill(ds)
ds.Tables.Add(dt)
' Bind the DataGrid.
vwProfDG.DataSource = ds.Tables(0)
vwProfDG.Visible = True
Catch ex As SqlException
MsgBox(ex.Message.ToString())
Finally
cn.Close()
End Try
Case "vwLabTabPg"
Try
LoadData()
' Configure and execute the command.
cmd = New System.Data.SqlClient.SqlCommand("SELECT * FROM lab where patient_Id = @PatLa_ID")
cmd.Connection = cn
Dim paraPatId As SqlParameter = cmd.Parameters.Add("@PatLa_ID", sachPatient.patID.Text)
' Load the DataTable.
datadapt = New System.Data.SqlClient.SqlDataAdapter(cmd)
datadapt.Fill(ds)
ds.Tables.Add(dt)
' Bind the DataGrid.
vwLabDatGrid.DataSource = ds.Tables(0)
vwLabDatGrid.Visible = True
Catch ex As SqlException
MsgBox(ex.Message.ToString())
Finally
cn.Close()
End Try
End Select
End If
Next
End If
Next
|
|
|
|
|
First of all, you can replace the loop through the TabPages at the start with a simple TabControl1.SelectedTab.Name and do a Select Case on that. Second, please post your code in <pre> tags. Lastly, which line does the error occur on?
Between the idea
And the reality
Between the motion
And the act
Falls the Shadow
|
|
|
|
|
Here is still the problem:
My code is highlighted below.I have five tabpages(two is shown here!) on a form called vwpatient that runs each time a tabpage is selected.The code below works but my problem is this: there is a textbox called sachPatient.patID from another form called sachPatient, the code pulls data from the database on clicking one or two pages, but if more than two is clicked, an exception fires saying "Make sure you have not released a resource before attempting to use it". I have tried endlessly to fix this problem to no avail. And am still trying!!.
I would appreciate if someone can help me.
Thanks in advance!!!
Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
Select Case tabControl1.SelectedIndex
Case 0
Try
LoadData()
' Configure and execute the command.
cmd = New System.Data.SqlClient.SqlCommand("SELECT * FROM Patient_profile where patient_Id = @Pat_ID")
cmd.Connection = cn
Dim paraPatId As SqlParameter = cmd.Parameters.Add("@Pat_ID", sachPatient.patID.Text)
' Load the DataTable.
datadapt = New System.Data.SqlClient.SqlDataAdapter(cmd)
datadapt.Fill(ds)
ds.Tables.Add(dt)
' Bind the DataGrid.
vwProfDG.DataSource = ds.Tables(0)
vwProfDG.Visible = True
Catch ex As SqlException
MsgBox(ex.Message.ToString())
Finally
cn.Close()
End Try
Case 1
Try
LoadData()
' Configure and execute the command.
cmd = New System.Data.SqlClient.SqlCommand("SELECT * FROM lab where patient_Id = @PatLa_ID")
cmd.Connection = cn
Dim paraPatId As SqlParameter = cmd.Parameters.Add("@PatLa_ID", sachPatient.patID.Text)
' Load the DataTable.
datadapt = New System.Data.SqlClient.SqlDataAdapter(cmd)
datadapt.Fill(ds)
ds.Tables.Add(dt)
' Bind the DataGrid.
vwLabDatGrid.DataSource = ds.Tables(0)
vwLabDatGrid.Visible = True
Catch ex As SqlException
MsgBox(ex.Message.ToString())
Finally
cn.Close()
End Try
End Select
|
|
|
|
|
Hi,
if
(1) you watch all the exception information using Exception.ToString()
(2) you told your IDE to always show line numbers in edit windows
then it is easy to figure out which line causes the problem.
Luc Pattyn [Forum Guidelines] [My Articles]
DISCLAIMER: this message may have been modified by others; it may no longer reflect what I intended, and may contain bad advice; use at your own risk and with extreme care.
|
|
|
|
|
post by Luc Pattyn:
2) you told your IDE to always show line numbers in edit windows
how do i do that?
And am sory if my codes appear naive, am not experienced in vb.net.
Thank for your help.
|
|
|
|
|
nedusmile wrote: told your IDE to always show line numbers in edit windows
how do i do that?
depends on the IDE.
On some versions of Visual Studio, it is under menu Tools/Options/TextEditor/AllLanguages: display line numbers.
nedusmile wrote: sory if my codes appear naive
I'm not making such comment, I try to make you help yourself in the first place. Code quality comes with dedication and experience.
Luc Pattyn [Forum Guidelines] [My Articles]
DISCLAIMER: this message may have been modified by others; it may no longer reflect what I intended, and may contain bad advice; use at your own risk and with extreme care.
|
|
|
|
|
Somewhere in this mess you've released a resource (i.e. Disposed of it) - my guess would be that it's the connection that's causing you problems.
"WPF has many lovers. It's a veritable porn star!" - Josh Smith As Braveheart once said, "You can take our freedom but you'll never take our Hobnobs!" - Martin Hughes.
My blog | My articles | MoXAML PowerToys | Onyx
|
|
|
|
|
Don't post VB trash outside the VB forums and then vote down someone like Pete when he provides you with freely given advice.
|
|
|
|
|
Hi,
I have developed a code to create a ms-access table through VB.NET as mentioned below.
ADOXtable = New ADOX.Table
ADOXtable.Name = "ACN_CHARX_INSTANCE"
ADOXtable.Columns.Append("LOGICAL_DB_NAME", ADOX.DataTypeEnum.adVarWChar, 32)
ADOXtable.Columns.Append("DIM_NAME", ADOX.DataTypeEnum.adVarWChar, 32)
ADOXtable.Columns.Append("CHARX_NAME", ADOX.DataTypeEnum.adVarWChar, 128)
ADOXtable.Columns.Append("CHARX_TABLE", ADOX.DataTypeEnum.adVarWChar, 128)
ADOXtable.Columns.Append("CHARX_VALUE_COL", ADOX.DataTypeEnum.adVarWChar, 128)
ADOXtable.Columns.Append("VALUES_UNIQUE", ADOX.DataTypeEnum.adInteger)
ADOXtable.Columns.Append("CHARX_ORDER_COL", ADOX.DataTypeEnum.adVarWChar, 128)
ADOXtable.Columns.Append("CHARX_ORDER", ADOX.DataTypeEnum.adInteger)
ADOXtable.Columns.Append("CHARX_NUMERIC_COL", ADOX.DataTypeEnum.adVarWChar, 128)
ADOXtable.Columns.Append("BITMAP_COL", ADOX.DataTypeEnum.adVarWChar, 128)
cat.Tables.Append(ADOXtable)
Now i want to set primary key constraints for this table through coding. Please share your ideas...
Thanks,
Sivakumar.M.
|
|
|
|
|
|
Hi,
How many primary key constraints can we have in a table of ms-access? Any other constraints available in ms-access other than primary key?
Please share your ideas...
Thanks,
Sivakumar.M.
|
|
|
|
|
This question has nothing to do with .NET. Please ask in the Database forum.
|
|
|
|
|
For all its in the wrong forum.....
How many primary key constraints can you have in any database table? That'll be one, although the primary key can be made up multiple columns.
|
|
|
|
|
Hi everyone,
Now I have a Crystal Report file, and I print this file with Epson T88IV. But it prints so slowly.
When I type a Print Command in Commandline of Windows to print a Text File, It prints immediately. But It can print Unicode Text. It prints ASSCII only.
My print command
Print D:\temp.txt /d:com1
Can I print a Crystal Report File immediately? How Do I Do?
Thanks so much.
modified on Thursday, June 18, 2009 1:25 AM
|
|
|
|
|
Practically speaking you cannot print the crystal report in ASCII format.
The system sent the output to the printer in form of Image.
But when you send the same request from DOS prompt, the data is send as ASCII
|
|
|
|
|
Thanks for you reply.
Can you show me How Do I print it with UniCode font so Quickly?
I know when I use a print dialog in another software, firstly It converts my text to image and then the printer work.
If I convert Text to image then I Print a image file. Does it print immediately?
Thanks.
|
|
|
|
|
We solved this problem once. But we were not using the Crystal report
But you can give the try
We used a grid control.. format it and then send it to the printer.
We never submit the document to the normal printer. But try to install 9-Pin IBM printer, set it as default printer and submit the document to this printer.
Any how this solved our problem
|
|
|
|
|
Hi Guys,
I've got some dates i'm storing in a database and XML file, and when i read them out and compare them to the origional date that remained in code, they return false due to a loss in precision.
Is there any easy way to compare dates with a certain precision comparison? Or trim the precision on dates in code? The ones i have go all the way down to the milliseconds.
Cheers
Tris
-------------------------------
Carrier Bags - 21st Century Tumbleweed.
|
|
|
|
|
Hi,
DateTime.Date sets you back to midnight, which is fine for a timeless date compare.
Luc Pattyn [Forum Guidelines] [My Articles]
DISCLAIMER: this message may have been modified by others; it may no longer reflect what I intended, and may contain bad advice; use at your own risk and with extreme care.
|
|
|
|
|
ya I have tried it. Its perfect
DateTime d1 = DateTime.Today;
DateTime d2 = DateTime.Today.AddMilliseconds(1);
if (d1.Date.CompareTo(d2.Date) == 0)
{
Response.Write("Ya its equal");
}
else
{
Response.Write("No its not equal");
}
Education is not a way to escape poverty — it is a way of fighting it.
|
|
|
|
|
Thanks Luc, is there any way to do date and time, without the MS? It's just possible that there might be multiple values for the same day, so that's not really fine grain enough for me!
-------------------------------
Carrier Bags - 21st Century Tumbleweed.
|
|
|
|
|
Hi,
it all depends on what you want exactly.
1.
if parts of the DateTime should be identical, then check those parts, as in:
DateTime dt1=...;
DateTime dt2=...;
if (dt1.Date==dt2.Date && dt1.Hours==dt2.Hours) isSufficientlyEqual();
the problem now is that 16:59:59 would equal to 16:00:00 and not to 17:00:00 which is much closer!
2.
if time distance is important, calculate it
DateTime dt1=...;
DateTime dt2=...;
if (dt1.Date==dt2.Date) {
float seconds=dt1.Subtract(dt2).TotalSeconds;
if (seconds>-100 && seconds<100) isSufficientlyClose();
}
3.
Up to the second equal:
DateTime dt1=...;
DateTime dt2=...;
if (dt1.AddMilliseconds(-dt1.MilliSeconds)==dt2.AddMilliseconds(-dt2.MilliSeconds)) {
isPrettyClose();
}
Luc Pattyn [Forum Guidelines] [My Articles]
DISCLAIMER: this message may have been modified by others; it may no longer reflect what I intended, and may contain bad advice; use at your own risk and with extreme care.
|
|
|
|
|
|
That's a nice idea! Something to stick in the Common Lib. ^^
-------------------------------
Carrier Bags - 21st Century Tumbleweed.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
