|
I would like to acheve that when the user clicks on save form or tries to close the form,
the code would check if chkbox_otp is checked and if it is not checked than would show a msg to the user, that they must select a town from the combobox(listbox).
THANKS!!!
|
|
|
|
|
The form has a FormClosing event
Sub Form1_FormClosing(byval sender as Object, byval e as System.Windows.Forms.FormClosingEventArgs)
You can check here for your condition, if it doesn't meet your check
there are two parameters passed to this procedure.
Use the e FormClosingEventArgs
e.CancelReason="You Need to check that"
e.Cancel=True
Hope this helps.
~ CodeDoctor ~
|
|
|
|
|
Hi CodeDoctor!
Thank you for your reply.
When I click on the form I see:
Option Expilict. Below that: Privat Sub lblRefer_Click()
End Sub
Privat Sub Command1_Click()
End Sub
I have found this:
Privat Sub Form_Unload(Cancel As Integer)
---Should I put your code here maybe?---
End Sub
I don't have a Sub Form1.
I'm sorry, I am a beginner.Thanks So much!!
|
|
|
|
|
try this. Instead the code is in the Form_Load try to change it to Form_Closing.
here is the code:
if the user press the close, a message will appear.
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
dim ans
ans= MsgBox("Close this form?", MsgBoxStyle.YesNo, "Close")
if ans=MsgboxResult.Yes then
me.Close
endif
End Sub
Don't block the drive way of all the newbies in programming.  )
|
|
|
|
|
hi
i have an xml file and i populated that in a treeview control.what i want is - modify the treeview like add nodes,delete nodes or edit etc and write back to the xml file/ create an xml file from that modified treeview control using vb.net
diees
|
|
|
|
|
I'm trying to read a sequential/random file written by a QBasic program, and one of the fields in the file is defined as 'Double Precision'. The field appears to be 8 bytes in length, but does not map appropriately to VB.Net 2005's Double or Long datatypes. After executing a FileGet, the double precision variable, (OrderAmount), is always filled with the wrong number.
I'm reading the record using the following logic:
Private Structure myRecordStructure
<vbfixedstring(10)> Dim FirstName As String
<vbfixedstring(15)> Dim LastName As String
<vbfixedstring(15)> Dim StreetAddress As String
<vbfixedstring(6)> Dim OrderDate As String 'MMDDYY
Dim DaysDue As Short
Dim OrderAmount As Double
End Structure
Private myRecord As myRecordStructure
mintFileNumber = FreeFile()
mstrFileName = "c:\control1.f"
FileOpen(mintFileNumber, mstrFileName, OpenMode.Random, _
OpenAccess.Read, OpenShare.Shared, Len(myRecord)
FileGet(mintFileNumber, myRecord)
Any help towards converting the QBasic double precision data to values that can be viewed from within VB.Net 2005 will be greatly appreciated.
Thanks
G-3
|
|
|
|
|
Hi
I've just started programming in VB .Net 2005, and I'm trying to
creat a datagrid that is connected to an Access database.
I want to populate the datagrid with records from Access and have fields
(with details from the same record eg. name, surname, id no.)
on the form that get populated according to the selection
in the data grid. I'm fairly new to programming so if there is anyone who
can write a concise but simple article on this, I'd really appreciate it.
Thank you.
|
|
|
|
|
try this one:
Dim objdataadapter As New SqlDataAdapter
Dim objcommand As New SqlCommand
Dim objdatatable As New DataTable
Dim objdataset As New DataSet
Dim objconn As New SqlConnection
Dim nrow As Integer
Dim strselect As String
Try
strselect = "Select * from table1"
objconn = New SqlConnection("Server=localhost; DataBase=table1; User ID=sa; pwd=")
objdataadapter.SelectCommand = New SqlCommand(strselect, objcon)
objdataadapter.Fill(objdataset)
objdatatable = objdataset.Tables(0)
If objdatatable.Rows.Count > 0 Then
DataGrid1.DataSource = objdatatable
End If
NOTE: this is optional. you can put this code
With objcommand
.Connection = objconn
.Connection.Open()
.CommandText = strselect
.CommandType = CommandType.Text
.Connection.Close()
End With
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Don't block the drive way of all the newbies in programming. )
|
|
|
|
|
I am doing a project for school and I'm trying to pull up an HTML document from a local source. My concern is that when I move the project from my HDD to a CD/ DVD the path will be incorrect and it won't be able to pull up the file. I don't want the computer to be connected to the internet to access the HTML document.
Also, I have images as backgrounds and they are not in my Resource folder according to VB. In the path they are in fact in the Resource folder. Are they going to be integrated?
Thank for any help you may be able to give.
W Lugo
|
|
|
|
|
You'd have to use relative paths for all of your file names in all of your HTML. Don't specify fully qualified paths starting with a drive letter.
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
Hi guys,
I have a datagrid which is dynamically created using server-side code. The columns and rows, and just about any of it are all created depending on the users search criteria.What I want to know is that in the OnItem_DataBound event, a user can do this:
e.item.cells(4).Text = "SomeText"
BUT, when the datagrid is dynamic.. cell number 4 will be different each time. I want to be able to find and target cells by "FindingByText" or something rather than cells(4). Cells(4) is very static.
I hope that made sense. Please ask me any questions to elaborate on my point.
Thank you!
|
|
|
|
|
I don't get how this is supposed to work, or what you're doing with this.
You're trying to fill in Text in a specific column without knowing which column you're filling in? About the only thing you can do to find theproper column is get the names of the column from the DataTable and search through those to get the column number.
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
Thanks for the reply.
I was kinda hoping there is a syntatic way of changing the text of a column on the datagrid when it is displayed. One method is to use the OnItem_DataBound event and use e.item.cells(0).text = "SomeText"
BUT.. the problem is, the column's text that I am wanting to manipulate is not always present when that datagrid is produced. In addition, its position is not known. Therefore if I use e.item.cells(0).Text = "SomeText", it will not work all the time because the column's position changes depending on what columns the user chooses have as part of this datagrid.
One way I was thinking of was to use a "for" loop and say something like this:
Dim i as Int<br />
For Each e.item.cells(i).blabla .. <br />
If the column name is "ColumnName" Then<br />
Select e.item.cells(i).Text<br />
Case x<br />
e.item.cells(i).Text = "Bla"<br />
Case y<br />
e.item.cells(i).Text = "BlaBla"<br />
Case z<br />
e.item.cells(i).Text = "BlaBlaBla"<br />
End Select<br />
End If<br />
Next<br />
Another way of doing this is to change what the database returns. You see, I am supposed to be "Saving" Reports, and those reports are saved in the database as views, and retrieved whenever needed by binding data from the relevant views.
This creates a problem because the view is not always present. I will therefore have to produce code to create the views in such a way that It understands what to do if the column in question is ever selected. Both are doable I think.. but which is easier? or better? hmm...
|
|
|
|
|
What are you doing with this column?? It looks like you're returning a column, but when you go to display it in the datagrid you're replacing what would be shown with some other text entirely, or possibly reformatting the data in that column, correct?
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
lol .. sorry for the confusion.
You are correct. Here are the steps that are involved with the creation of this datagrid:
1 - User Selects the column names from the webpage
2 - User clicks on "Run"
3 - The Application runs a SELECT query involing ONLY the selected Columns.
4 - User Enters a name into a Textbox and clicks on save.
5 - The application runs a "Create View" query to the database. This "Create View" query will have ONLY the columns selected.
6 - You return to the main report page. There is a dropdown list which is populated by data in a table which stores records about 'Saved' Reports(which the user has stored just now)
7 - The user then selects the report name which he just saved from the dropdown.
8 - The name from the dropdown refers to the view which was created.
A - All the views are dynamically created.
B - The same DataGrid is being used to display any of those views.
C - There is ONE column that a User may or may not select.
D - If he selects it, I want the contents of that column to be manipulated; Else forget about it.
Normally for a static set of data being retrieved, I use "e.item.cells().Text = something" for manipulation, but that syntax refers to a column which is in a fixed position and which is always there no matter what. BUT I am looking for some syntax which will target that particular column which may or may not be returned depending on whether the user has selected it.
I am very sorry for the confusion. If this does not make sense to you, don't worry about it any more. It may be too confusing to solve by communicating online.
Thanks a lot for your replies.
|
|
|
|
|
I think I got it now. I think all you have to do is scan the column headers (For I = 0 to MaxColumns) for the name you're looking for, then just save the index of that column for use in your Cells reference.
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
Thanks a lot man. Will try to code it =D
|
|
|
|
|
I have a DVR Card. And i want show video from CCTV camera by DVR Card in form vb.net.
|
|
|
|
|
There is no standard .NET classes that will do this for you. You have to see if your DVR card manufacturer supplies and SDK (Software Development Kit) you can use, or if there is any documentation on what you should be using.
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
The SelectCommand property has not been initialized before calling 'Fill'.
shs
|
|
|
|
|
It appears you have not set the sql query or stored procedure in your command before you called your dataadapter.fill method. Do you have another question?
Ben
|
|
|
|
|
You're trying to execute a command without telling your OleDbCommand, or SqlCommand, or AdoDbCommand, object what command to execute. You have to give it the Sql command you want it to execute so it knows what to return to fill your dataset.
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
Environment: Op Sys 2003 server; Sql Server 2005 with update; Visual Studio; Multiple VB functions and subroutines as stored procedures.This subroutine needs to use a connection string to enable MARS. It does not have the SQL Attributes. They seem to prohibit byref class instantiations being returned.
Dim connectionString As String = _
"server=(local);" & _
"Trusted_Connection=yes;" & _
"database=Frontier_equipment;" & _
"MultipleActiveResultSets=true;"
RecordTypeConnection = New SqlConnection()
RecordTypeConnection.ConnectionString = connectionString
RecordTypeConnection.Open()
Error Numr 5
Error Desc An error has occurred while establishing a connection to the server.
When connecting to SQL Server 2005, this failure may be caused by the fact that
under the default settings SQL Server does not allow remote connections.
(provider: Named Pipes Provider, error: 40 - Could not open a connection to SQL Server)
rkj
|
|
|
|
|
Are you sure your sql server name is correct? Are you sure the sql server allows trusted connection. Can you ping the sql server name from where you are trying to run this app? Is there an instance of a sql server you are trying to connect to? You have to put that into your server name. Sometimes you have to set a port number for sql server instances. Anyway, a few thoughts, I hope that helps.
Ben
|
|
|
|
|
I had read that Stored procedures running within the SQL Server could use the local option for server name. Placing the combined servername\sqlservername as the servername worked.!! Thank you.
rkj
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
