I want to execute an SQL statement and put the result in to a data table.
Sub getvehicletypes()
Dim dt As New DataTable
Dim intLine As Integer = 0
[Code].....
Once Ive got it in a dataset I need to work out how to search the dataset for a code and return the corresponding description and vice versa
I need to pupulate a Grid, but i like to do like Microsoft SQL Server Management Studio, when you make a Select to a table with bounch of rows, it start show the result but in the botton still retriving data.So you can start looking the data, not like you get the data and after you get the last row you can asing to the Grid.
View 6 RepliesWhat type of collection should I use to store data from a table (in a book) that has multi-dimensional Keys to get a single value result?
What is the best way to store and retrieve these values in a program?
I am trying to input specific information on a form.I have created an sql statement from a table that will out put 18 rows of data.I have opened a recordset and instituted a do until loop.I need for the program to look at each row and if the Standard Score = the value of a field I have on the form it takes the value of the other three columns in updates it on the form.I have created the code and it works for upto 3 (Do Until loops)records, but when I try to add a 4th in the SQL statement and put in another do loop my computer runs it but it acts as if it freezes up. [code]
View 3 RepliesI have a database application with several data tables. How can I use a for each statement to add the records of the datatable into a collection?
View 7 RepliesI have three tables set up in a MySQL database called "event", "status" and "user". (as shown below:
EVENT TABLE (below)
STATUS TABLE (below)
USER TABLE (below)
and when I get data from the event table I use the SQL query statement below to bind the persons first and last names together as one variable called "name" and then bind that name to the respective user_id; and so on. However when I make changes to the event table it doesn't show the changes I've made. I'm certain it has something to do with the way I'm retrieving the data.
SELECT CONCAT(u.lastname, ', ', u.firstname) AS Name
, s.message AS Message
, DATE_FORMAT(e.timestamp,'%b %d %Y - %r') AS DateTime[code].....
Attempting to run an SQL statement to UPDATE a column in a table with new data. The column being updated is defined as varchar(40) and the new data is 41 bytes (varchar(41)). I get a generic 'data will be truncated' error message, but no detail on which column caused the problem. I've attached a sample VB program to illustrate the issue. In this scenario, Company is defined as varchar(40).
My question: Can I get a more detailed error message? i.e. can I get an error message that tells me the row and column that the truncation occurs in? Often times, I may be updating hundreds or thousands of rows and only one value in one column from the source file is too large for a database cell. As a related question, does each OLEDB provider create its own error messages. i.e. will the MS SQL Server OLEDB provider potentially give different text in the error message than say the MS Jet OLEDB provider?
Imports System.Data.OleDb
Module Module1
Dim cn As OleDbConnection
[Code]......
I have a IF statement which is checking each row in the data table (for a match) and ELSE statement with commands which are executed if the If statement is not satisfied. Now I would like to write like so that it goes to the Else part BUT ONLY for values which are not satisfied in the IF statement. If I am more specific; I would like to calculate values if a match is found and just print them if it is not fond (usually there are both cases). Now the problem is the bold text; if there is a match found I don't want it processed BUT if the match is found I do. How can I write that?
currencyPosition = 0
Dim d As Integer = w + 100
For Each currency In Ary
[CODE]..........................
I am working on a front-end application program and cannot figure out what is giving me this error. The program is accessing an Access Database and filling a text box on the form. The error i keep receiving is "Index out of range", "No row at position 0". I have information in the data table, and when I type the select statement into a query in Access, it returns the information in the data table.[code]...
View 8 RepliesI'm trying to run an INSERT statement to pass data from a datagrid to a table I have on my database. The problem I have is that the table has 6 columns and the datagrid has only 3. So I only want to pass those 3 columns but I get the error that the other 3 columns does not accept null values. I need to change the columns to accept null values. The other problem it is that I can't pass more than 9 records, if I have more than 9 record on the DataGrid it says "object not set as an instance of a reference" and it only add 9 records if I have more than 9.
Dim RowCount As Integer = datagrid1.Rows.Count - 1
Dim ColumnCount As Integer = datagrid1.Columns.Count - 1
Dim RowIndex, ColumnIndex As Integer
Dim myconecction As String
myconecction = My.Settings.DataSource
[Code] .....
How do i execute this code in vs2008 visually with a result?
C#
struct Cycle {
int _val, _min, _max;
public Cycle(int min, int max)
[code]....
I need to execute commandpromt process async and get the output of the execution. i currently have this code
Public Function ExecuteCommandSync(ByVal command As Object) As String
Dim result As String = Nothing
Try
[Code]....
How I can execute a stored procedure and the put the results into a webbrowser to display. I know html so I will format the stuff to look how I want it to.
View 6 RepliesI am new to VisualBasic and trying to learn it online. For my first assignment I have to make a program that allows someone to input a time in AM/PM and select the time zone and automatically output a picture and three other time zones. I think I have it for the most part but I am having an issue with one part in particular. Since the time is input using AM or PM if the original time is 11:00 AM and I add an hour it should switch to PM. But I'm not quite sure what I'm doing wrong. I basically need to say If the time is equal to 12 and the meridiem is equal to am then it should switch to pm but I keep getting errors inidicating they are trying to switch to a boolean value.
[Code]...
I am doing a sql statement to get all the data that starts with "A" in the database.
[Code]...
Lets just say we have this as Command1 Dim Command1 = "whoami.exe >> C:Hello.Txt" The program will read a list of users from a text file and then perform the action on each of them. If the user does not exist, or they are part of a password protected computer, I would like to see that in my printout. I have this but am Unsure how to write the If Then Statement (If that is the ebst route to take)
[Code]...
I have something that I want to do and what looks very simple, but I cannot get it to work. I want to build a function that gets as input a xdocument and some other strings. It should have a return that contains a filtered part of the xdocument in a way that I can use it as input for a new Linq function. This is what I mean:
Private Function fncGetFilteredDecendantsOfNode(ByVal xdocDoc As XDocument, _
[Code]...
I have the following function
Public Function GetPositionBySchoolID(ByVal SchoolID As Integer) As CPAPositionsDataTable
Dim positions As New CPAPositionsDataTable
[Code]....
And I was wondering if there is any way to cut out assigning the LINQ result to tmp and just work with the result directly, i.e.
Public Function GetPositionBySchoolID(ByVal SchoolID As Integer) As CPAPositionsDataTable
Dim positions As New CPAPositionsDataTable
[Code].....
I have a windows application. I would like to run a statement while exiting my application. I tried adding my statement on FormClosing event. but it only executes if the application is closed properly. However, If the application is closed via task manager or system is restarted or logged out, etc. then the statement in closing or disposed event is not getting executed.
Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
MsgBox("disposed") End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
MsgBox("closing")
End Sub
can some one tell me how to get my statement executed even the user tries to log out or shut down or application is closed via task manger.
I was rooting around in one of our company apps which is done in VB.net. I'm not familiar with VB.net (I do stuff in C#) so I'm asking this question: Does the code after the clean up comment execute? [code]It is my understanding once you say return, you give the calling function control again.
View 6 RepliesI'm relatively new to VB. I want to perform a SELECT statement that uses a variable to return a value, example;
mysql> SELECT room_description FROM room_descriptions WHERE current_room = 'someVariable';
And display the result in a TextBox i.e. TextBox.text = someVariable.
So how do I perform a query from VB that passes a variable? How do I assign the result to a variable?
It seems like a lot of people are having trouble with this piece of the control toolkit.I've looked for a few days on the internet for an answer and haven't been able to find one. Best solution I've seen so far is "write your own reordering procedure" which I don't want to do.
<asp:ScriptManager ID="smgrJobBidding" runat="server">
</asp:ScriptManager>
<asp:UpdatePanel ID="uPanelReorderList" runat="server"
[code].....
In my .NET application I have to get results from a MS Access database. I would like to add error checking to make sure a row was returned from my SELECT statement.
View 1 RepliesI have a requirement where I have to add items into a List(Of T) (let's call it Target) from an IEnumerable(Of T) (let's call it Source) using Target.AddRange() in VB.NET.
Target.AddRange(Source.TakeWhie(Function(X, Index) ?))
The ? part is a tricky condition that is something like: As long as the as yet unenumerated count is not equal to what is needed to fill the list to the minimum required then randomly decide if the current item should be taken, otherwise take the item.Somethig like...
Source.Count() - Index = _minimum_required - _curr_count_of_items_taken _
OrElse GetRandomNumberBetween1And100() <= _probability_this_item_is_taken
' _minimum_required and _probability_this_item_is_taken are constants
The confounding part is that _curr_count_of_items_taken needs to be incremented each time the TakeWhile statement is satisfied. How would I go about doing that? I'm also open to a solution that uses any other LINQ methods (Aggregate, Where, etc.) instead of TakeWhile.If all else fails then I will go back to using a good old for-loop =)
I have found the class code below which should be activated to show the result for the selected option
Dim pc as new CheckPerm
pc.Permission = "Modify"
if pc.CheckPerm("C:WIndowsSystem32") then
[Code].....
Office 2010; Windows7; Visual Studio Basic 2008 (VB.Net)
[Code]...
The following strSQL string is not working as expected when run in VB.Net Interop to Access: (NOTE: The line-feeds " _" are used below are for reading only - are not in actual code line)
[Code]...
I am currently updating an application I wrote to view Car Insurance Policies, using a backed SQL database and a front end vb.net GUI. I now need to make a change.
I haev added a new table which has all Active Policies, and i have the old table with every policy there has been active or not. We do an import from a separate company, and there is no Active/Not Active field.
I need a query/code that will populate an "Active/NotActive" field in the old table. For example:
CODE:
THis code extract a value from a table to a var...
Dim var_IES_fornecedores as double = 0
For Each dRow In ds.Tables("Tabelavalor").Rows
If dRow("numeroconta").Equals("221") Then
[CODE]...
This is the problem...the numbers after the period should be just 2 and not a lot of numbers...everythin wrong with the code?
I want to be able to get the one record I return from a table and put the results into text box's directly rather than put the result into a combo box and then transfer the text across.
Private Sub GetStationStats()
conn.ConnectionString = myConnString
Dim myCommandStationStats As New MySqlCommand
Dim myAdapterStationStats As New MySqlDataAdapter
Dim myDataStationStats As New DataTable
Dim SQLStationStats As String
[Code] .....
The fields Signon and SignOff, plus many others which I didn't include in this sub. Above code does work, its how to get it into a text box.....
i have problem when i click a ADD button, there is one null value in the textbox .. so the try catch statemnt is to catch that null value error but after that the catch is success but the button click never stop excute the statemnt till the end of the button event.
View 6 Replies