|
I'm getting an error when I try to call my function getPMOhistory().
The error is:
An unhandled exception of type 'System.InvalidOperationException' occurred in system.data.dll
Additional information: ExecuteReader: Connection property has not been initialized. I've bolded the line that is causing the problem.
I've created a class that handles all my data requests and it looks like this:
Imports System.Data
Imports System.Data.OleDb
Public Class DataBroker
Dim gConn As OleDb.OleDbConnection
Dim gDataReader As OleDb.OleDbDataReader
Dim gobjDBCommand As OleDbCommand
Dim goData As OleDbDataReader
Dim gstrSQL As String
Dim gstrPETConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\PET\Data\pet.mdb;User Id=;Password=;"
Dim gstrPMOConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\PET\Data\sr.mdb;User Id=;Password=;"
Const PET As String = "PET"
Const PMO As String = "PMO"
Dim gstrError As String = Nothing
Public Function GetProjectTypes() As DataSet
'If Connect(PET) Then
'gstrSQL = "Select *"
'End If
End Function
Private Function Connect(ByVal strDB As String) As Boolean
If strDB = PET Then
gConn = New OleDbConnection(gstrPETConnString)
Else
gConn = New OleDbConnection(gstrPMOConnString)
End If
Try
gConn.Open()
Connect = True
Catch
Me.ErrorMessage = Err.Number & " " & Err.Description
Connect = False
End Try
End Function
Private Function DisConnect(ByVal strDB As String) As Boolean
gConn.Close()
End Function
Public Function GetPMOHistory() As Boolean
gstrSQL = "SELECT * FROM QUERY1"
gobjDBCommand = New OleDbCommand(gstrSQL, gConn)
If Connect(PMO) Then
QueryResults = gobjDBCommand.ExecuteReader()
Else
Me.ErrorMessage = "Unable to connect to database. Please try again later"
End If
End Function
Public Property ErrorMessage() As String
Get
ErrorMessage = gstrError
End Get
Set(ByVal Value As String)
gstrError = Value
End Set
End Property
Public Property QueryResults() As OleDbDataReader
Get
QueryResults = goData
End Get
Set(ByVal Value As OleDbDataReader)
goData = Value
End Set
End Property
Public Sub New()
End Sub
End Class
|
|
|
|
|
Try moving the gobjDBCommand = New OleDbCommand(gstrSQL, gConn) line into the body of the IF statement like this...
Public Function GetPMOHistory() As Boolean
gstrSQL = "SELECT * FROM QUERY1"
' gobjDBCommand = New OleDbCommand(gstrSQL, gConn) ' FROM HERE
If Connect(PMO) Then
gobjDBCommand = New OleDbCommand(gstrSQL, gConn) ' TO HERE
QueryResults = gobjDBCommand.ExecuteReader()
Else
Me.ErrorMessage = "Unable to connect to database. Please try again later"
End If
End Function
The variable gConn is not initialized until after function Connect() is called so the instantiation of gobjDBCommand is not valid until this time.
...Steve
|
|
|
|
|
Thanks steve.
A while after I posted... I figured it out!
Thanks!
|
|
|
|
|
I am currently trying to convert a vb6 client server program to a .net web form using vb.net.
The client server vb6 program uses the webbrowser object to open a browser window and then post some data to it using the following code.
webBrowser.Navigate2 URL, 0, "BrowserWindow", "", ""
it then posts data to it using
Screen.MousePointer = vbHourglass
'Write the byte-array into a variant
varPostData = bytpostdata
'Create the Header
strHeader = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)
'Post the data
webBrowser.Navigate2 URL, 0, "BrowserWindow", varPostData, strHeader
Can someone give me the equivalent code to be used in a .net web form, I do not mind wether it is server side code or javascript?
Any help will be appreciated?
|
|
|
|
|
Doing a simple book exercise - SQL Connections 101 stuff. I got my data showing up and everything was going fine, then I realized I'd forgotten a table. I went back and added it to the database.
Try as I might, I can't get that table to appear in VisStudio/VB.NET's Data Adapter Configuration Wizard (Query Builder: Add Table). All the others do, but not that one. It's got permissions, it's even got relationships. I've even started from scratch, doing everything again in a new project. That table will not show up in the list with the others. What gives?
Have I forgotten to set some property of that table that I did with the others? Does the connection have some sort of cached record of the database tables that I should purge?
________________________________________________________________________
Dave
Y10K bug! Let's not get caught with our pants down **AGAIN**! (DC 02002)
|
|
|
|
|
How does this work?
I want to have a description of the field that the mouse hovers over.
Example could be, when the mouse hovers over a text box, want a description to say something rather than a message box appearing or a description in the status bar.
|
|
|
|
|
Have you tried the tooltip control?
|
|
|
|
|
I am working on a 3 tier application. We have a UI, Remoteserver and a database server. The application is working fine till any error occurs on Tier 29remoteserver) or Tier 3(error raised by an Sp in database server). The error messages are not propagated from Remoteserver to UI, instead we get the error message "Server encountered an internal error. For more information, turn on customErrors in the server's .config file."
Please send me a solution to this as soon as possible.
Thank you in Advance.
|
|
|
|
|
Is it possible to set the DateTimePicker control to blanks or no value at run time? Thanks.
I found my answer. Doing a Google search returns amazing results.
|
|
|
|
|
Probably not.
But the standard way to do this is:
set CheckBox property to true, this will show checkbox alongwith dtpicker, u can check or uncheck to do so.
Atul.
|
|
|
|
|
dptalt wrote:
I found my answer. Doing a Google search returns amazing results.
What did you type in to search? I am having the same issue and have only found controls that cost money. Is there an answer?
|
|
|
|
|
I have a program which reads a series of employee names and ID numbers into a dataset and then sets the datasource of a combobox to that dataset. Below is some of the logic:
.cbxEEName.DataSource = ds.Tables("EmpmastTbl")
.cbxEEName.ValueMember = dt.Columns("EmpID").ToString
.cbxEEName.DisplayMember = dt.Columns("FullName").ToString
.cbxEEName.Visible = True
Since the list of names include both active and terminated employees, is there a way to bold the names of an employee who is active, and leave terminated employees as a regular font?
Any ideas are appreciated? 
Lost in the vast sea of .NET
<a href="http://www.komputing.com/Pricelist.html">Visit my website at www.komputing.com</a>
|
|
|
|
|
I am writing a simple program to arrange data into a spreadsheet. Easy enough. However, when I store mult-selected items from a listbox, wingdings appear after each item.
I have a "for" loop that pulls each item out of the listbox. I need those items stored in a single cell. Each item is independent from one another. Therefore, I used VB's "new line" call, vbCrLf or vbNewLine. When I do this, it puts wingdings at the end of each entry within the cell. I have tried to trim the character off, but that did not work. Any suggestions would be much appreciated. Thanks.
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
ws.Cells(iRow, 3).Value = ws.Cells(iRow, 3).Value + ListBox1.List(i) + vbCrLf
End If
Next
This loops through each selected item in the listbox and displays the data in a single cell.
Dizzle
|
|
|
|
|
Dizzie, Like I said in my original reply earlier on this board, the vbCrLf character that you're using is the cause of the 'wingdings'. I presume you want something like this in the cell...
value1 value2 value3
or
value1<br />
value2<br />
value3
Both can be achieved by this change to your code...
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
ws.Cells(iRow, 3).Value = ws.Cells(iRow, 3).Value & ListBox1.List(i) & " " ' that is a single space
End If
Next
The latter format is obtained by also reducing the cell width and permitting the text to wrap within the cell (an Excel format setting).
...Steve
|
|
|
|
|
Steve,
Thanks for the quick reply. I believe if I make the spacing great enough, it might just work. Thanks again.
P.S. I know this an odd question, but did you used to or do drive a Saturn? I remembering talking to an Excel expert named Steve and he helped with a previous project. He used to say how he loved Saturns. Just curious.
Dizzle
|
|
|
|
|
You're welcome Dizzie. No I am not that Steve - I prefer to drive larger V8 cars. (I'm in Australia) Cheers,
...Steve
|
|
|
|
|
Steve,
I have one more question if you have the time. I have a multi-selectable listbox. The listbox is what I use to populate the cells in the worksheet. I would like to be able to have duplicates of the same entry to enter into the cells. For instance: If I have list1, list2, list3 and I want to display list1 TWICE within a single cell, what do you suggest? Thanks.
Dizzle
|
|
|
|
|
I'm a bit unsure why you want to put multiple entries in each cell in the first place, but I guess you have a good reason. I am assuming that you currently do not have any duplicate rows in the multi-select listbox but you'll be artificially (by some algorithm) duplicating them into the cell? Is this correct?
The trick is really to identify which list rows you need to duplicate and then simply double concatenate the value and store it as per the code I previously sent (i.e. cell.Value = listrowX.Text & " " & listrowX.Text) - I'm tired and that's not the correct syntax but I hope the meaning is clear.
If I have misunderstood anything please let me know.
...Steve
|
|
|
|
|
I have 4 text boxes - Text1, Text2, Text3, TextTotal
How can I do the following.
As I enter a value in a text box, TextTotal is automatically updated.
|
|
|
|
|
|
I'm rookie programmer, and I try to code FTP by VB.NET.
And I have some problem in GetFile From FTP follow this code
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ServFile As String = "TEST.ini"
Dim ServName As String = "192.168.1.148"
Dim User As String = "Test"
Dim Pass As String = "Test"
Try
mftp = New KCommon.Net.FTP.Session
mftp.Server = (ServName)
mftp.Port = 21
mftp.Connect(ServUser, ServPass)
mftp.CurrentDirectory.CreateFile("b.txt") ' Work
mftp.CurrentDirectory.PutFile("c.txt") 'Work
mftp.CurrentDirectory.BeginGetFile(ServFile)
' It not Work and have message
' "ex.Message"Remote file (TEST.ini) not found. ' Try refresh the directory." String"
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Thanks a lot for Ur Help.
|
|
|
|
|
I developed one project in VB6 before 1.5 year and it is running successfully till now. Suddednly a strange problem is reported by client. The problem is, to display any report,
user need to select From and To dates provided by DTPicker control and based on two dates report shows data between selected dates, but report shows from date as selected and To date of system date(today). Means From date is working fine but To date is always system date irrespective of selection of any date from dtpicker.
I checked the code and i have not written any code to change selected date as system date. what can be the problem?
thanks.
Atul
|
|
|
|
|
1. this is a web application.
2. there are 2 pages. page1.aspx and page2.aspx
3. I'm using sql server.
I am using 1 table in the server to collect all the data. When the user logs in they are taken to the first page(page1.aspx) here they are asked to input some of the data. The application creates a new record with a unique identifier called form_id. The user inputs the data and is then taken to page2.aspx. Here the user is to update the new record(from page1.aspx) they just created but i can't seem to be able to tell the application to go to the database and retrieve the last record entered.
|
|
|
|
|
Hi,
many ways.
one is use output parameter in stored proc. and return latest id generated by page, get back id and pass it in querystring, from page2, get record by passing new id.
another way is use a query like use max function for id, but this might cause problem in multiuser environment.
Atul.
|
|
|
|
|
check books online for scope_identity()
"People who never make mistakes, never do anything."
My Blog
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
