Code:
'// Declaration of Variables
Dim Air_AH As Integer
Dim Air_Undercut As Integer
Dim Air_Bot As Integer
If rad_WoW_AH_Maelstrom_AH.Checked = True Then
[Code] .....
Shield is returning 0 regardless of the expected value. Can you not have three conditions in an if statement?
I have declared a String variable(PC) for use within another String variable(currentQuery) to form a SQL statement to pass to my SQLDataAdapter variable.
I'm performing this action to change the string variable(PC) for the different onClick events I have.
It seems i can change this variable (PC) within my onClick event handlers and the 'PC' variable will change when I apply it to a testing Text Box 'testTextBox' but not for the currentQuery variable.
Do i need to perform this action as a function or am i missing something obvious - code below - I don't want to spend time writing a function to return a string value for my SQL statement if i can just tweek something in my code (below).
Partial Public Class IVMain
Inherits System.Web.UI.Page
Dim DBConn As New SqlConnection("Data Source=hnaServer;Initial Catalog=Hnastatus;User ID=Test;Password=test")
[Code]....
So I have a class called Transactions and I put all my functions there. The problem is, when I try to call that specific function and assign it to a variable, there is a "ByRef Argument Type mismatch" error that keeps on bugging me.
Public Function GetUserID(name As String) As Integer
Dim gotID As Integer
Dim rec As Recordset
Call connectDB
sSQL = "select ID from User where Name ='" & name & "'"
Set rec = CurrentDb.OpenRecordset(sSQL)
[Code] ......
It's often the case that I can write a nice tight little VB.NET function, and when it comes time to do the Return statement, it's really natural to just return the result of a quick calculation or a method call. However, this makes it difficult if I need to step through the debugger to see what is going to be returned from that Function. For example, take this simple method to illustrate the concept[code]...
View 3 RepliesI've used this code before but only when I was serializing one array. Here I'm trying to serialize two and VB returns "local variable is already declared within the current block."Someone tell me how to do this correctly, pleases. I'm banging my head against a brick wall that I can't see.
[Code]...
In the Session_Start of the Global.asax i have
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
Session("login") = False
[code]....
Why i am getting error the error Object reference not set to an instance of an object. at line
If Current.Session("login") Is Nothing Then
while checking for the login state as follows?
If GetLogin = False Then
'Do something
End if
I mean i have already created the instance on the Session_Start... Haven't i?
Dim x = GetType(List(Of )) 'valid statement
Dim list As New List(Of String)
Now I want to see if list is a List(Of T) variable: Dim isList = TypeOf list Is List(Of ) On the last line I get a compile error: "Type Expected". Is there any cheap-performance TypeOf operator alternative for generics?
just found out that replace(string does not do the same as string.replace when my string variable was an empty str the first one returns "nothing" and the second returns an empty string (as expected).just sloppy coding anyhow, it was a function that was converted from classic asp and never rewritten properly. [code]
View 1 RepliesDoes anyone know what is wrong with this IF Statement? I'm getting the errors "Expression Expected" and "End of Statement Expected".If DropDownList1.SelectedValue = "Educational Sponsoring" Or "Grants" Or "Product Training" Or "Centres of Excellence" Then
[Code]...
I have some code which gets child items for a menu via the GetChildren function which takes a list of menuData: Dim builtMenu As New List(Of MenuData)(_rawData.FindAll(Function(item) item.GroupingID = 0))
For Each menuData As MenuData In builtMenu
If menuData.Children IsNot Nothing Then
menuData.Children.AddRange(GetChildren(menuData))
End If
Next
If I check if menudata.children isnot nothing, it always is nothing because the GetChildren function is yet to run (providing the child items, which do exist). If I remove this check and just have this code:
Dim builtMenu As New List(Of MenuData)(_rawData.FindAll(Function(item) item.GroupingID = 0))
For Each menuData As MenuData In builtMenu
menuData.Children.AddRange(GetChildren(menuData))
Next
Then I am presented with a Object reference not set to an instance of an object error on menuData.Children.AddRange(GetChildren(menuData))
I am getting the error:"Range variable 'sender' hides a variable in an enclosing block or a range variable previously defined in the query expression."for this
Imports System.Data.SqlClient
Imports System.Linq
Public Class Form1
[code]....
I can select any other item from the table without the error. "sender" has the same properties as "receiver" in the SQL table.
I receive the error -
[Code]...
I keep getting this error in my code: " end of statement expected".[code]Please use code tags when posting your code.
View 8 RepliesImports System
Imports System.IO
Imports System.Linq
[Code]....
I am setting the DataSource of the LIstView as Photos.ToArray() in the code behind..but still i get the error.. "Select DataSource for ListView"
I am currently working on VB. I am using Visual Studio 2008.
The piece of code below is a console application which builds without any error.
Imports System.Net
Module Module1
Public Sub Main()
[Code]....
Protected ButtonsClass(count).ButtonsArray = CtrlButton
Where
ButtonsClass As Class
ButtonsArray As Button
CtrlButton As Control
count As Integer
I have a statement 'ptr.Line((xmin, ymin) - (xmax, ymax), B)' which was originally coded in VB 6.0. Could anyone tell me why this code is now throwing an error in VB.NET?
View 6 RepliesI have an Excel worksheet with a Source Cell and a Target Cell.Via GDI API functions, I draw a temporary gradient fill over the source cell which happens to be cell "D6"then, I make a transparent copy of the temp gradient fill drawn over the source cell and place the copy (ie the transparent gradient fill) over the target cell which happens to be cell "D9".
View 3 RepliesI want to fetch data from a database table modify it and update it without being dependent on the database provider and the database structure, because it will be part of a library.My first attempt was as follows:
'factory defined somewhere else as DbProviderFactory
'connection is a working DbConnection
Dim selectcmd As DbCommand = connection.CreateCommand()[code]....
it did not work. After further investigation I figured out that the Commands the CommandBuilder generated were useless, because it inserted ? instead of @param1 for all Parameters. It generated something like INSERT INTO tbl1 (field1, field2, field3) VALUES (?, ?, ?) for the InsertCommand.I would really like to use the CommandBuilder, because it is simple and I don't have something complicated like JOINS.
why the Output window does not print the "xxxxx" part of the string? Looks like I'm missing some basic understanding about something...?
I'm sending string messages over TcpClient, and when building the strings, I don't add any special characters on the sender side, and neither on the receiver side.
[URL]
EDIT:
I'm building my strings at the sender side like this:
Private Sub SendData(ByVal stringArray As String())
SendData(GetMessageString(stringArray))
End Sub
Public Function GetMessageString(ByVal array As String()) As String
[Code]....
this code always return '0' i don't know why
Dim cur_month = DatePart(DateInterval.Month, Now).ToString()
Dim cur_date As String = "01/" + cur_month + "/" + (DatePart(DateInterval.Year, Now).ToString)
[Code]....
cnb_mnth is ComboBox for Month
txt_year is Text Box For Entering Year
I have a query like so:
Dim clcexists = (From p In dbContext.Signatures _
Where p.StudentID = people_id _
And p.ContractType = "clc" _
Order By p.ID Descending _
Select p)
Later I check whether any rows exist in clcexists using IsNothing like so:
If IsNothing(clcexists) Then ' If no CLC is on file.
clcfirst = Date.Now.Subtract(year)
clcdate = clcfirst
[Code]....
But IsNothing() is not functioning like I expect. There is no row in the results table, but it is still acting as if there is and going to the Else clause.
For some reason when i declare an array and set it to a certain amount of elements then under it specify the elements it works in VB 2005 but when i do it in VB 2008 it get : "declaration expected " and i get words underlined.
Public Class Form1
Dim words(20) As String
words(1)="Computer"
End Class
Let me know how to do this in 2008!
A "declaration expected" error occurs when attempting to use any of the MY objects. What declaration needs to be made?
View 4 RepliesI keep getting that error with this code
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Mail As New MailMessage
Mail.Subject = ""
Error occurs at the line above.
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.EnableSsl = True
[code].....
ODBC_COM = New OdbcCommand("UPDATE President SET '" & President_UPDATE_field.Text & "'='" & President_UPDATE_text.Text + "'", ODBC_CON)
ODBC_COM.ExecuteNonQuery()
i dont know why im having error like this, what i know is my syntax for UPDATE command is correct and im using correct number of single quotes and double quotes?
I'm simply trying to create an array of integers:
Dim amenities() as Integer
amenities=New Integer(){1,2,3,4,5}
And I'm getting this error:
Expected end of statement
Dim amenities() as Integer
It says the error is happening on "as", but I have no idea what I'm doing wrong.
Everywhere text is in Black i get the error "Type Expected"
Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0),
[code]....
(The Lines array is actually just the count of Paragraphs in the text, why they call it lines I don't know. )In order to do this, with word wrap, I need to know when I reach the end of a line. So in the Key_Down event I use some code to calculate the length of the current string and compare it to the width of the container. It turns out that the string is too short.
View 1 RepliesI am running Windows 7 pro and using Visual Basic 2010 express.I have written a small program to switch on a USB relay which is controled by a serial port.I have debuged the program and it appears to work correctly. I have published the program and if I start it from thr run menu / desktop shortcut / or through explorer it works as expected.
However I have tried to run it by the Task Scheduler and then it fails to run as expected. I have a small section of code that checks to see if the serial port is present if not I have used messagebox.show to ask for the relay to be pluged in. In every case other than when running through the Task Scheduler the messagebox works with the Task schedulerit doesn't show the messagebox and the program hangs I have included the code I have used.
Dim retry As Boolean = False
Dim data() As Byte = {255, 1, 1}
Do Until retry
[code]....
