I am having issue with this function where wait_rtn statement does not work and errors out with error 0. it is suppose to search the screen and if it finds (true) get out of the loop...
[code]...
The following works:
[Code]...
However, the following doesn't work:
I'm using some code I found on this forum ( at [url]) to attempt to insert some data into my access database.
I'm receiving an error, and having trouble finding it.
CODE:
Almost forgot, the error message is: Syntax error in INSERT INTO statement.
I have a multiple-value-single-string as a parameter field in a report in Report Builder 3.0 (e.g. 20124, 20125). Now I want to split up this string, and show "Summer 2012" instead of "20124" and "Fall 2012" instead of "20125. I am using Visual Basic. Here is my two functions I have made in Report Builder 3.0 custom code. The error is in the second function in the "If Right(yearterm)..." line. It gives me a syntax error. If I write "String.Right" it gives me the error: "'Right' is not a member of 'String'". If i take out the whole "If statement" the report will run but "20124,20125" gives me this: ", 2012, 2012".
Public Function SplitParameterValues(ByVal parameter As Parameter) As String
Dim result As String
Dim a(0 To 10) As String
[code]....
What is the wrong in the below code?
ClientScript.RegisterStartupScript(
Me.GetType(),
"key",
"return confirm('Are you sure you wish to delete these records?');",
True)
I am a excel vba developer, and all public functions i would put in the module. I assumed by creating a .vb rather then a module i can put all functions i use regulary throughout forms in this.however i get the error on this code
Function CopyFile(ByVal x As Integer) As String
Dim FileToCopy As String
Dim NewCopy As String
[code].....
See
Public Class Form1
Dim sql As String
Dim conn As New OleDb.OleDbConnection
Dim da As New OleDb.OleDbDataAdapter
[CODE]...
The problem, The INSERT statement works fine in the form load but not in the button click event?
I've been trying to use an insert into startement for my database project, but i dont seem to be able to get it to work!
[code]...
I'm trying to add the export to word capability to my code and adding the following to my code gets me some warning and errors. I was able to find a download sample code to do this, however it's strange, when I run the downloaded code, it didn't encounter error but I put this together with my code it produced some errors.
Option Explicit On
Option Strict On
Imports System.IO
[Code]....
In my datagrid my sql statement uses a have clause to get set information and i am having countless errors
My code is as shown below, were am i going wrong
con.Open()
cmd.Connection = con
Dim da As New SqlDataAdapter("SELECT MONTH(Head.SalesDate) AS Month, Detail.ProductID, Detail.Qty, SUM (Detail.Qty) AS TotalSold, SUM(Detail.Qty / 30) AS Average FROM Head INNER JOIN
[CODE]...
i have to convert a visual basic 6 program to the visual basic 2008. i used the wizard that is provided to upgrade but that just doesn't work. It comes up with many errors. most of them are End of statement expected and Number of indexes exceeds the number of dimensions of the indexed array. I really don't know what to do with them and i have to fix them in order for it to run.
View 18 RepliesEnd A statement which as far as i know doesn't close you program properly and hides errors. Right now i'm being forced to use end because i don't know how else to close my program properly. I'm not sure where my problem is but some of you should be able to fix it. I'm trying to make a game using directx with a game loop. This code is the skeleton of what i'm making.
Public Class Form1
Private ProgRunning As Boolean = True
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
Me.Show() 'Make the form appear
Me.Focus() 'Give the form focus
[CODE]...
This code runs alright because end is being used but if you rem end out the error which it's hiding comes out. The error is "Object reference not set to an instance of an object." I'm not totally sure but i'm guessing that the error is refering to the form.
I have a bit of a problem with the following bit of code. Basically the last line (Return Write...) is giving me the error 'Expression does not produce a value'.[code]...
View 1 RepliesI recently upgraded a project from 2003 to 2005, and there were errors in them, but I am unable to view any in the error list. Only one error displays in the list
[Code]...
I have a WCF Service Function that Returns a typed dataset. How can I return an error or message to the client?Public Function ReturnMyDS(Byval Identity as Integer) as dsMyDataSet Implements Iservice.ReturnMyDS
Try
Return = RetrievemyDataset
Catch ex as exception
[code]...
Any example to catch errors and log them to the Eventlog? I would like to catch any error and pass them to my WriteToEventLog function. If I use On Error , how could I catch the Error and pass it to my WriteToEventLog function? I would like to catch the actual error
Public Function WriteToEventLog(ByVal entry As String,
Optional ByVal appName As String = "CompanyName",
Optional ByVal eventType As EventLogEntryType = EventLogEntryType.Information,
Optional ByVal logName As String = "ProductName") As Boolean
[Code] .....
I just can't get this If statement to work with htmlelementcollection. The problem is my msgbox pops up saying element found rather the element is there or not.[code]
View 4 RepliesDim connetionString As String
Dim cnn As OleDbConnection
connetionString = "Provider=SQLOLEDB; Data Source=****; Initial Catalog=****; User ID=***; Password='****';"
cnn = New OleDbConnection(connetionString)
Try
cnn.Open()
[Code]...
I have been working with this for awhile, and I can't get it to work, I have all the correct names where the connection string is, but I just can't get it to work. It is telling me the server does not exist, but I am using a hosted solution that I know is up.
Dim
a As Date? = Nothing
Dim b As Date? = If(a Is Nothing, Nothing, GetValue(a))
I thought b would be Nothing, but it is not...is it a bug?
I'm not quite sure why, but this program doesnt work as intended. It's kind of difficult to explain but if you tried it, it doesn't work properly.
Private Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnApply.Click
'clears the changes box before going through if statements
Me.txtChange.Text = ""
[CODE]...
I'm having a problem with the Math.Abs statement. When I try to use this statement to figure the absolute value of a number, as in:
View 3 RepliesI am trying to type in the food Pizza, Taco or Crepe and get a picture of the food to come up along with a message box that gives the country.[code]
View 3 RepliesI was thinking if I can create a code that creates 8 Labels, and each label will show someone's name. The name is not generated, it is randomized. But I Don't want to see 2 same names in 2 different labels. So what I came across is this:
First, I will make an array variable (0 to 8) as String, I will declare each person's name here, the 0 is not used. I Will call this "Names"Second, I'm going to make an array variable (0 to 8) as Boolean. Original State is False. I will call this "Type"Third, I will make another array variable (0 to 8) as Integer, this one is empty. I Will call this "Empty". Original value = false
The Point is that the application will randomize a number between 1 to 8, just say that the randomized number is "x". Then I will take Names(1) and fill it in Empty(x), and set the Type(x) to True, and keep looping. If the application finds the Type = False, then the application will randomize another "x". But after making the code, it seems that the numbers show up the same way everytime I run it. Even with the Randomize() statement.
[Code]...
Is there a way to find what the error is?
View 5 RepliesI'm working through a programming project, which should be quite easy but im stuck right at the start (relatively new to VB). I have a textbox (named textbox1) and a checkbox next to it. I want the checkbox to be ticked (.checked) when ever the value in the textbox is between 1 and 100, the checkbox to not be ticked when theres nothing in there, and for it not to be ticked when the value is < 1 and > 100. Figured a case statement would be the easiest. (this piece of code is just a validation check, basically in the real thing the user would have to enter in a value between 1 and a given number, and need to tell the user if that value is valid).
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Select Case TextBox1.Text
Case Is = ""
[code]....
But what happens is, if I enter in the value 1 in the textbox, the checkbox becomes ticked, as it should. It tick with any values between 2 and 99 (any number not starting with 1) but the checkbox becomes ticked again when the value is 100. For any other range, say 1 to 70, the checkbox would be ticked if the value in the textbox is 1 to 7, or any number starting with 1 or 7, but not 8 or 9, or any number starting with 8 or 9.
how I can get the LIKE statement to work if the user enters a number like 403* ? The sql works if I do not enter an *
strWildCardFound = InStr(TNSearchTextBox.Text,
"*")
TNSearchTextBox.Text = Replace(TNSearchTextBox.Text,
[Code].....
How do I write the equivalent c# code below in vb.net? This 'About' form is launched by a ToolItemMenu. It is just informational and contains only an OK button
//Form contains company logo, copyright info and OK button.
public About formAbout;
using (formAbout = new About())
[code].....
I'm currently having some trouble getting an If statement to work. I want the statement to do its thing when it detects a form is not open. this might sound a bit confusing this is what i mean:
If Form2.open = false Then
blah blah blah
blah blah blah
blah blah blah
[CODE]...
Basically i dont know if im able to have an IF statement occur for when a form is not open and i dont know how to word it.
i'm having troubles with a linq-to-sql statement and getting a left outer join to work. here is a sample of two tables i'm trying to join and my code that i've wrote.
Table1 Table2
f1 f2 f3 f4 fID f1 f2 f3 f4
val1 val2 val3 val4 1 val1 val2 val3 val4
[code]....
Instead I'm returning ALL values from table 1. I need to return all values from the left outer join where tbl2.fID is null.
when i try to edit my web browser i made it has one error at Public Class Form1 and then when i fix it says it has nine errors how do i fix it
View 3 Replies