|
check rst.recordcount plus where is the while loop for your code
while not rst.eof
<td><%=(1)%></td>
<td><%=rst("fileName")%></td>
<td><%=rst("reportMonth")%></td>
<td><%=rst("reportYear")%></td>
<td><%=rst("status")%></td>
rst.movenext
wend
|
|
|
|
|
Hi I am learning VB.Net. Right now my knowledge is all in bits and pieces I want to put all this together so I want ot create a small project that covers all the features of vb.net. Do any of you have guidelines to any such project for a vb.net beginner.
Thanks
|
|
|
|
|
A good beginner level project is an address book.
Use a treeview/listview design. Treeview has a top node for each alphabet letter, and names under each letter. List view shows details when you click on a name. Adda menu and a toolbar. Create forms to allow you to add/edit data. Use a small Access database as the data source. Make sure it is normalized. If you don't know what that means, time to learn.
This is a good beginner level exercise that uses a variety of controls and their events, requires field level validation, data binding, data access, and sharing data between forms.
Plus you can actually use it when you are done.
|
|
|
|
|
Ok, I am planning out right now a new VB.Net application and am looking for suggestions.
I will be storing the username & passwords inside a SQL table and need suggestions or pointers for code to handle the read/write and decription for verification of the passwords.
This is a system being developed for the Federal Government so a serious level of security is required for this app.
I have been looking through the Microsoft Enterprise Patterns & Practices but am not sure if this is the way to go.
Suggestions?? or Ideas??
David @ Premier
You are only as good as your last project.
|
|
|
|
|
|
Hi All. I have 2 windows application build with Visual Studio Enterprise Architect.
1st one is the actual application and the 2nd one is the installation project.
1st application utilizes 2 crystal 10 reports build with CR10 that comes with the studio.
Then I obfuscate this project and place the exe in 2nd - installation project. After installation everything
works except the crystal reports. I get an error stating: "can not find the report in the manifest file.
Please recompile and try again"
BUT if I recompile WITHOUT obfuscating the project and install it everything works!!!
ANY IDEAS??? What is wrong??
|
|
|
|
|
I'm (beginner) programming a web service with win application, both in VB.NET (VStudio.NET 2003). How can I send messages from Debug class used in web service to output (debug) window in VS? Messages from application side appear in this window.
|
|
|
|
|
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
|
|
|
|