command name can be APP_COMMAND_NAME as const Friend Module Program Private CurrentString As String = String.Empty Public Const APP_RUNNING As String = "Running" Public Const APP_TITLE As String = "Console" Public State_Output As String Public State_List As List(Of String) = New List(Of String) Private commandlist_ As Dictionary(Of String, Action) Private State As String = String.Empty Public APP_USER As String Event Command_Run() Sub Main() APP_USER = String.Empty Program.State_Output = "App is " & State.ToString & CStr(Program.APP_RUNNING) 'Program.State_List = New List(Of String) Console.Title = APP_TITLE AddHandler Command_Run, AddressOf RunCommand Program.commandlist_ = New Dictionary(Of String, Action) Program.commandlist_.Add("Notepad", New Action(AddressOf Notepad)) Console.Write(">>") 'Program.CurrentString = …

Member Avatar
Member Avatar
+0 forum 1

# **OLD** # [URL=http://s127.photobucket.com/user/yoda3ddd/media/codemap_zps4115ff7e.jpg.html][IMG]http://i127.photobucket.com/albums/p158/yoda3ddd/codemap_zps4115ff7e.jpg[/IMG][/URL] The Data Namespace Core Friend Module Func Public OkButton As Button Public CancelButton As Button Public ProgBar As ProgressBar Private Sub ProgressLoop() Do Func.ProgBar.PerformStep() Threading.Thread.Sleep(1) Loop End Sub #Region "Constants" Public Const DataRoot As String = "C:\AFormData\" Public Const IMG_PATH As String = "C:\AFormData\img" Public Const LoadImage As String = "C:\AFormData\img\codemap_zps4115ff7e.jpg" Public Const LINE_TERMINATOR As String = ">>" Public Const LoadImageX As Integer = 0 Public Const LoadImageY As Integer = 0 Public Const LoadBarFailedMessage As String = "Loading Bar Denied" Public Const ResizeMessage As String = "Current Form Resizing" Public Const NoCommandMsg As String = …

Member Avatar
Member Avatar
+0 forum 6

Hello Group! I've developed an app that takes the data in a text file and moves it to specific columns in an Excel file. My computer has the Excel 2010 installed. So the application works fine with no issues. However we've begun to upgrade computers and software in the office which means we are moving to Office 2016. I'm finding that my application doesn't behave well with Excel 2016. It stops part of the way through and simply won't finish. The original application was built in Visual Studio 2010. It is using .NET Framework 4.5 and references Microsoft Excel 14.0 …

Member Avatar
Member Avatar
+0 forum 1

I want to show the total qty of these query (total qty from datagridview where ActualQty value will update the values of Used Column) `SELECT COUNT(Software) AS ActualQty FROM tblswlogs WHERE Software='MS EXCEL'` and (**Total** will appear in textbox) `SELECT MAX(used + initialqty) As Total FROM tblswlist WHERE Software = 'MS EXCEL'`

Member Avatar
Member Avatar
+0 forum 1

Hi all ! I'm using vs2008, sqlserver2008 and vb.net as language. I would like to ask, i got this line of error when i'm debugging my code **----Too many arguments to 'Public Function getDrawingNumber(PlcCode As String) As System.Data.DataSet'.----** below is my program code : Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim clsDrawNum As New DrawingNumber() Dim dsDraw As DataSet Dim PlcCode As String dsDraw = clsDrawNum.getDrawingNumber(drpPlaceOfOrig.SelectedValue, PlcCode) End Sub Public Function getDrawingNumber(ByVal PlcCode As String) As DataSet Dim ToEDCConn As New DBConnection("", "TOEDC_Conn") Dim ds As DataSet Try ds = ToEDCConn.RunSqlReturnDS("select * from Place …

Member Avatar
Member Avatar
+0 forum 2

Hi all :) Before i'm starting futher more about my problem. lets me tell a short description about my program. user will choose path ID (retrieve all this data from table TPATH of database SDO) that they want to delete. before the path ID would be delete, it will compare this path ID from table TTENS of database SDO and table TPATH of database SDO where this two table share the same column namely as M_C and also share the same database. ![Capture4.PNG](/attachments/large/4/9f0610598636750086f8c6fcb873b442.PNG "align-center") this comparing method was write in Stored Procedure(SP). **this SP will be called on this class …

Member Avatar
+0 forum 0

Hi all. As mention on the title above, i got an error `Fill: SelectCommand.Connection property has not been initialized` Anyone here have any idea or suggestion on how to solve this error? My code (.aspx.vb) for this program Protected Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelete.Click Dim i As Integer Dim result As DataSet Dim hypID As HyperLink Dim chkRemove As New CheckBox Dim clsPath As New Path() Try For i = 0 To grdPath.Rows.Count - 1 chkRemove = DirectCast(grdPath.Rows(i).FindControl("chkRemove"), CheckBox) hypID = DirectCast(grdPath.Rows(i).FindControl("hypID"), HyperLink) If chkRemove.Checked Then result = clsPath.getComparedPathID(chkRemove.Text) End If Next i lblErrorMessage.Text …

Member Avatar
Member Avatar
+0 forum 4

HELLO! I've been debugging my code for an hour now. seriously. So I have this string: SQLString = "UPDATE `etmsystem`.`main` SET `timeIn` = '22:00' WHERE `main`.`serialNo` = '70002B4A8F9E'" actually the TIME and the SERIAL NO. here is to be represented by a variable. But I changed the code into that to see that there is something weird happening. Here are the steps that I've done: 1. search the web. --- done. 2. remove the ` 3. remove the etmsystem (database name) and remove the main/ 4. check for whitespaces. 5. EXECUTE THE CODE (above) IN SQL MODE IN LOCALHOST. when …

Member Avatar
Member Avatar
+0 forum 2

good pm.,.,i have a next button Try lblcat.Text = ds.Tables("evaluation").Rows(cat)("QuestionCategory") txt1.Text = ds.Tables("evaluation").Rows(CurrentRow)("Question") txt2.Text = ds.Tables("evaluation").Rows(CurrentRow + 1)("Question") txt3.Text = ds.Tables("evaluation").Rows(CurrentRow + 2)("Question") txt4.Text = ds.Tables("evaluation").Rows(CurrentRow + 3)("Question") txt5.Text = ds.Tables("evaluation").Rows(CurrentRow + 4)("Question") Catch ex As Exception End Try every click to the next button my category and questions change.,., every click i want also to save in my database Private Sub Save_commit() Dim con As New OleDbConnection Dim cmd As New OleDbCommand Dim sSQL As String = String.Empty Try 'get connection string declared in the Module1.vb and assing it to conn variable con = New OleDbConnection(Get_Constring) con.Open() cmd.Connection = …

Member Avatar
Member Avatar
+0 forum 1

Private Sub Save_Record() Dim con As New OleDbConnection Dim cmd As New OleDbCommand Dim sSQL As String = String.Empty Dim arrImage() As Byte Dim myMs As New IO.MemoryStream Dim bSaveImage As Boolean = False Dim strImg As String = String.Empty If Not IsNothing(Me.pic1.Image) Then Me.pic1.Image.Save(myMs, Me.pic1.Image.RawFormat) arrImage = myMs.GetBuffer Else arrImage = Nothing End If 'get connection string declared in the Module1.vb and assing it to conn variable con = New OleDbConnection(Get_Constring) con.Open() cmd.Connection = con cmd.CommandType = CommandType.Text 'I just use the textbox tag property to idetify if the data is new or existing. If Me.txtFacultyFirstName.Tag = 0 Then …

Member Avatar
Member Avatar
+0 forum 10

How do i stop a running function using a button or menu. Do I use a try catch? for some reason its boggling me.

Member Avatar
Member Avatar
+0 forum 6

Hi guys, i have a project payroll, i need to create 3 reports (" Any kind report format ") im using databindingsource..

Member Avatar
Member Avatar
+0 forum 1

im trying to split the value using "," and it success but how i want to remove "," symbol at the of my array data example of my problme 1,2,3,4,5, expected result 1,2,3,4,5

Member Avatar
Member Avatar
+0 forum 6

how to create crystal report using sql quary in vb.net step by step.

Member Avatar
+0 forum 0

Hi I am doing some coding with the WebBrowser element and was wondering if there was a way to create custom error pages i.e. if something goes wrong it navigates to this page instead of the default IE8 one. I did a quick google but got nowhere. If anyone has any experience with this it would be fantastic. Cheers, I appreciate all contributions as always :)

Member Avatar
Member Avatar
+0 forum 2

[CODE]Imports System.IO Public Class LoginForm1 Dim password_guardada As String Dim user As String Dim pass As String Dim pass_desincriptada As String Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click Dim erro As Boolean = False If UsernameTextBox.Text = Nothing Then MsgBox("Erro, não pode deixar o campo Username vazio!", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Erro") UsernameTextBox.Focus() erro = True ElseIf PasswordTextBox.Text = Nothing Then MsgBox("Erro, não pode deixar o campo Password vazio!", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Erro") PasswordTextBox.Focus() erro = True ElseIf UsernameTextBox.Text <> user Then MsgBox("Erro, Username Errado!", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Erro") UsernameTextBox.Focus() erro = True ElseIf PasswordTextBox.Text <> …

Member Avatar
Member Avatar
+0 forum 1

Hello, I'm a newbie working with vbnet but i'm trying to create a project were I enter a name in a textbox and save it to a access database. I'm trying to create the OledbConnection but i'm getting this error: "oleDbException was unhandled" this is the code i'm using: [CODE]Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load con = New OleDbConnection("provider=microsoft.jet.oledb.4.0; data source= pract.mbd") da = New OleDbDataAdapter("select*from emp", con) cb = New OleDbCommandBuilder(da) ds = New DataSet da.Fill(ds, "emp") End Sub[/CODE] Thanks!!!!!

Member Avatar
Member Avatar
+0 forum 4

Hi Am new to this and was wondering if anyone knew a solution to this problem. I am wanting to get information from a text file into different arrays. My current text file has a new line for each driver but I would like it to look something like this: Hamilton,Button,Alonso,Massa,Webber,Vettel Di Resta,Sutil,Rosberg,Perez,Buemi,Glock Each line of the text file represents a player and each player has 6 drivers. Each driver is seperated by a comma (,) which is what I need the program to understand. So for example I would want to import 'player one' drivers into the array: playerdrivers(1,1) …

Member Avatar
Member Avatar
+0 forum 2

hello guys, I have a problem wiht my vb studio 2008 .When I reformat my laptop to window 7 64bit the problem is that my program "internet cafe" on first run there is so could vshost.exe not working problem then when i cancel it show another warning about the program compatibility assistant the this program does not working correctly. And when i run again on the second time that warning does not show and the program run but the problem is that "THOSE DATA IN COMBOBOX and ALSO THOSE CONNECTED TO COMOBOX THE TEXTBOX all the data does not show …

Member Avatar
Member Avatar
+0 forum 1

Hello, I'm new to this forum. Right now I'm developing a software based on Genetic Algorithms. I really have almost none experience, and I have a question. First of, this software is a prototype, a template. So the user can choose between a lot of choices (types of crossing and mutations). And I have many radio buttons for that. The question, like in the thread title is, can I give the name of a suroutine to a variable, so that sub executes instead of making a comparisson about which radio button is selecten, THEN execute the sub of that option. …

Member Avatar
Member Avatar
+0 forum 10

Alright.. i figured out mostly everything but my math is still screwing me up. I need to accumulate running totals for number of checks and number of deposits ;and total value of checks and total value of deposits. Im supposed to do this by looping through my arrays and this is what I have so far: Private Sub LoadArrayElements() strTransDate(UBound(strTransDate)) = dtpTransDate.ToString objCheckNum(UBound(objCheckNum)) = txtCheck.Text strPayee(UBound(strPayee)) = txtPayee.Text strPurpose(UBound(strPurpose)) = txtPurpose.Text End Sub Call LoadArrayElements() '*Redim arrays to add new element ReDim Preserve strTransDate(UBound(strTransDate) + 1) ReDim Preserve objCheckNum(UBound(objCheckNum) + 1) ReDim Preserve strPayee(UBound(strPayee) + 1) ReDim Preserve strPurpose(UBound(strPurpose) + …

Member Avatar
+0 forum 0

Hi guys!! I've to make a program that reads an arithmetical sentence from a textbox, e.g 12.3*34+4*5-3 and then on another textbox identify and display what is the content of the first textbox, for example taking the last ex: If I have this input: 12.3*34+4*5-3 The output should look like this: <number>12.3 <operator> * <number> 34 <operator> + <number> 4 <operator> * <number> 5 <operator> - <number> 3 This program should only read this operators like (+,-,*,/). I'm have in mind 2 ways of doing it, one with regex and the other taking the first sentence, put it on an …

Member Avatar
Member Avatar
+0 forum 3

The End.