I was so amazed at how easy it was to embed google maps into a vb app I decided to post a quick example to help anyone get started. This is a simple example. Google's api has all kinds of things to help customize your map. You can find out anything you need to know from here: [url]http://code.google.com/apis/maps/documentation/javascript/reference.html[/url] You will need to: Create a new windows forms app. Add a class named GoogleControl and paste the GoogleControl code into it. Add a new html doc to the project and name it GoogleMap.htm and set its Build action to CopyIfNewer Copy …

Member Avatar
Member Avatar
+4 forum 46

Hello How do I rectify this error, please: 'Argument not specified...'? I have 4 columns in a MS Access database: username, strEmail, hashed, and salted. In my form field (on the Webpage), I have Name (username) and Email (strEmail) which are text fields and correspond to username.Text and strEmail.Text in the attached screenshot. But how would I correct the "@hashed" and "@salted" errors in the attached screenshot? ![ArgumentNotSpecified.jpg](/attachments/small/4/8105e72eed7c287d662033b63f228dca.jpg "align-left") Thanks!

Member Avatar
Member Avatar
+0 forum 4

I want to color cell of the listview, how to write code ? You see my image file. http://www.mediafire.com/view/uoq3qw4o9c90jwd/chamcong5.jpg/file

Member Avatar
Member Avatar
+0 forum 5

vb.net 2010 Windows Pro 7 ## Create a Video Library with an Embedded Windows Media Player ## I have close to 400 video clips in my home movie library. In order to quickly locate any given video I have added certain words into the file names. Even so, locating specific files is clumsy from the Explorer window and playing a clip requires starting an external application and flipping back and forth between Explorer and the media player. That's why I decided to embed the media player directly in the application. Given a choice, I would have preferred to embed [vlc …

Member Avatar
Member Avatar
+1 forum 8

Hi, For a school assenment I was tasked to make a small database solution for a medical clinic. I am wanting to select an access database table after gaining the ID for the table. I will be needing to read and write to this table as well if it makes a difference. I have been using this code to search for the patient. Any and all help would be fantasic! provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" 'Change the following to your access database location dataFile = "C:\Users\BAKER113\Documents\EHRDatabase.accdb" 'Set the file path for the connString = provider & dataFile myConnection.ConnectionString = connString …

Member Avatar
Member Avatar
+0 forum 1

Suppose there are two forms: frmMain and frmPopup, frmPopup is always on frmMain, when select frmMain inputting data then frmPopup always on frmMain, frmPopup is always on frmMain, how is it to write code ? you see attach file http://www.mediafire.com/view/bq32fcb3ept329r/PopUpInput.jpg/file

Member Avatar
Member Avatar
+0 forum 1

i need to format my textbox result into two decimal places after i divide two textbox here is my code. If String.IsNullOrEmpty(txtMonthly.Text) OrElse String.IsNullOrEmpty(txtdr.Text) Then Exit Sub If Not IsNumeric(txtMonthly.Text) OrElse Not IsNumeric(txtdr.Text) Then Exit Sub txtDaily.Text = CDbl(txtMonthly.Text) / CDbl(txtdr.Text) Thanks in Advance

Member Avatar
Member Avatar
+0 forum 2

dbconn.Open() s = "Select Max(cheque_no) + 1 As NewValue From tblEntry" Dim cmd As SqlCommand = New SqlCommand(s, dbconn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then dr.Read() If IsDBNull(dr("NewValue")) Then empId = 1 Else empId = CInt(dr("NewValue")) + 1 End If Else empId = 1 End If dr.Close() Me.TextBox1.Text = empId

Member Avatar
Member Avatar
+0 forum 2

Below is my code for adding parameters in my vb .net code for prepared statements of npgsql. Dim xConn As NpgsqlConnection = ConnectDB() Dim xCmd As NpgsqlCommand = xConn.CreateCommand() xCmd.CommandText = "UPDATE " & xTable & " SET previous_tot_adj = @prev_adj ,tot_adj = @tot_adj WHERE version = " & _version & " AND monthly_mq_id = @Index" For Each Index In _Results.Keys If Not IsNothing(_Results.Item(Index)) Then xCmd.Parameters.AddWithValue("prev_adj", NpgsqlTypes.NpgsqlDbType.Double, _Results.Item(Index)) xCmd.Parameters.AddWithValue("tot_adj", NpgsqlTypes.NpgsqlDbType.Double, _Results.Item(Index)) xCmd.Parameters.AddWithValue("Index", NpgsqlTypes.NpgsqlDbType.Bigint, Index) End If Next xCmd.Prepare() xCmd.ExecuteNonQuery() After executing this code i get this kind of error . > A first chance exception of type 'Npgsql.NpgsqlException' occurred in …

Member Avatar
Member Avatar
+0 forum 2

Hello, I´m not a professional in vb.net, but i try to make a tool for my colleague and me. I got a XMLTreeView on my form and i load a XML-File in it. Now, I want to set each node in the XMLTreeView another icon, but it must set by the XML-File. This is my XML-File : <?xml version="1.0" encoding="utf-8" ?> <Nodes> <Node Text="Programme" Icon="BlaBlub.ico"> <Node Text="Test" Icon="C:\MyProgramm\Icons\icon2.ico"> <Programm Path="C:\Program Files (x86)\Microsoft Visual" & _ "Studio\2017\Enterprise\Common7\IDE\devenv.exe">Visual Studio</Programm> <Programm Path="C:\Program Files (x86)\Microsoft" & _ "Office\root\Office16\EXCEL.EXE">Excel</Programm> </Node> <Node Text="andere" Icon="C:\MyProgramm\Icons\23.ico"> <Programm Path="C:\Program Files (x86)\Microsoft Visual" & _ "Studio\VB98\VB6.EXE">VB.NET</Programm> </Node> <Node Text="Test1" Icon="Huhu.ico"> …

Member Avatar
Member Avatar
+0 forum 55

hey guys, I already have a database that can add a person with the RFID card number, I just want a little help of you guys if how can I code the rfid and when I tap the card, the RFID# of that person will be there together with the name, time and department of that person.? Example if tag name is 00123456 (Thats my rfid card# saved to my database) if I tap the card to the RFID reader, the FORM should show that this TAG belongs to me showing my details) Please help me, I'm doing this for …

Member Avatar
Member Avatar
+0 forum 1

I am becoming confused with visual studio v. Vb.net. I am findings hundreds of pieces of code tells me how to connect. Snippets elsewhere that tell me how to access data in the database I connected to. I am not finding snippets/examples that walk one thru connecting, adding, deleting etc. for that style of database access. I am running into this everywhere. When I try to patch a sample connection with another sample that works with the data, I get trouble really quick. Like I’m trying to put a Ford tire on a Schwin bicycle and I can’t find the …

Member Avatar
Member Avatar
+0 forum 2

we r trying to insert date from datetime picker into mssqlserver 2005 but it also enter defult time(00:00) with it in database. using we want only date... [CODE]& xyzdtp.value.date &[/CODE]

Member Avatar
Member Avatar
+0 forum 12

how can i limit a user to enter 10 digit no like telephone no in textbox without using regular expressions?????

Member Avatar
Member Avatar
+0 forum 16

Hi, I would like to know how to get IP Address of the devices connected to the hotspot of my PC using a VB program that will run on the same PC where the hotspot is running. I have no idea how to get it strated. I searched internet but I what I am seeing is that there is an external router. Thank you very much.

Member Avatar
Member Avatar
+0 forum 2

Sir. I create a project in vb.net 2010 sql server 2008r2 and crystal report 13. i use this code for showing the report. Public Sub PrintSaleRInvoice() Dim PrintSale As New DataSet objsale.saleinvid = txtSaleInvid.Text PrintSale = objsale.PrintSaleInvoice() ' Procedure name PrintSale.Tables(0).TableName = "DataTable1" Dim rpt As New SaleInv rpt.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.Portrait rpt.PrintOptions.PaperSource = CrystalDecisions.Shared.PaperSource.Middle rpt.SetDataSource(PrintSale) SaleRInvPrint.CrystalReportViewer1.ReportSource = rpt SaleRInvPrint.ShowDialog() End Sub and it is work fine now i want to pass some value(company name, address, contact, Licence No etc.) cr er004 from global variable which is decalerd on a "global declaration" in a module. i used for CReport dataset cr …

Member Avatar
Member Avatar
+0 forum 1

what is causing this error here "Operator '&' is not defined for string "select * from Miscellaneouse whe" and type 'DataRowView'." provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" dataFile = "C:\Users\PrintServer\Documents\Visual Studio 2010\Projects\Hr and Payroll1\HR and Payroll.accdb" ' Change it to your Access Database location connString = provider & dataFile myConnection.ConnectionString = connString myConnection.Open() Dim str As String str = "select * from Miscellaneouse where Position = '" & SlcComboBox1.SelectedValue & "' " Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection) dr = cmd.ExecuteReader While dr.Read() SlcTextBox9.Text = dr("Salary").ToString End While myConnection.Close()

Member Avatar
Member Avatar
+0 forum 3

Try Dim Adapter As New OleDbDataAdapter Dim Command As New OleDbCommand Dim xFrom As String = dtpFrom.Value.ToString.Substring(0, dtpFrom.Value.ToString.IndexOf(" ")) Dim xTo As String = dtpTo.Value.ToString.Substring(0, dtpTo.Value.ToString.IndexOf(" ")) sqlQuery = MainQuery & " Select TOP 100 LOANS.LoanID," sqlQuery = sqlQuery & " Borrowers.NAME," sqlQuery = sqlQuery & " Barangay.BRGYNAME," sqlQuery = sqlQuery & " LOANS.RELEASED," sqlQuery = sqlQuery & " LOANS.DUE," sqlQuery = sqlQuery & " LOANS.AMOUNT," sqlQuery = sqlQuery & " LOANS.TERMS," sqlQuery = sqlQuery & " [AMOUNT]*[INTEREST]*[TERMS] AS TotalInterest," sqlQuery = sqlQuery & " [AMOUNT]+[TotalInterest] AS TotalCollections," sqlQuery = sqlQuery & " PAYMENTS.AMOUNTPAID, " sqlQuery = sqlQuery & " …

Member Avatar
Member Avatar
+0 forum 5

Dear All, I am trying to read a CSV file into VB.NET datagridview which is fine i did already but one of datagridview coloumn is date and time i want to convert it to human readable format and want to read the correct format in date and time column in all rows like if i have 100 records it should correct or convert all 100 records date and time into correct format in that column and the column number is 4. Any sample code example will be much appriciated. I did conversion in excel by using the below formula it …

Member Avatar
Member Avatar
+0 forum 7

I have an anti-virus in **Visual Basic .Net**. I want to have a real-time protection engine in my program, but I'm having some issues with the code I'm using now, which is this: Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed Try labellastreal.Text = e.FullPath ListBox3.Items.Add(labellastreal.Text) Me.OpenFileDialog1.FileName = "" Dim scanbox As New TextBox scanbox.Text = My.Computer.FileSystem.ReadAllText("viruslist.txt").ToString Dim md5 As New MD5CryptoServiceProvider Dim f As New FileStream(e.FullPath, FileMode.Open, FileAccess.Read, FileShare.Read, &H2000) f = New FileStream(e.FullPath, FileMode.Open, FileAccess.Read, FileShare.Read, &H2000) md5.ComputeHash(f) Dim hash As Byte() = md5.Hash Dim buff As New StringBuilder Dim hashByte As Byte For …

Member Avatar
Member Avatar
+0 forum 1

Hi! My name is Jung and I'm new to VBNET I have already tried many ways to write codes for "btnSearch" but seems like nothing works.. I really need help for this as the deadline is around the corner :'( Below are my codes for Search button.. ![btnsearch.PNG](/attachments/large/4/76be068c625e23d9a57e969a97509bee.PNG "align-center")

Member Avatar
Member Avatar
+0 forum 2

Vshost.exe has stopped working... Posted A minute ago vshost.exe has stopped working this error showing after using the Crystal Report. The error show when I closed the application. If I not use the crystal report then the error not showing. I am creating a program in vb with visual studio 2010 ultimate and crystal report Please help me..... -------------- For view a report Public Sub PrintSaleRInvoice() Dim PrintSale As New DataSet objsale.saleinvid = txtSaleInvid.Text PrintSale = objsale.PrintSaleInvoice() ' Procedure name PrintSale.Tables(0).TableName = "DataTable1" Dim rpt As New SaleInv rpt.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.Portrait rpt.PrintOptions.PaperSource = CrystalDecisions.Shared.PaperSource.Middle rpt.SetDataSource(PrintSale) SaleRInvPrint.CrystalReportViewer1.ReportSource = rpt SaleRInvPrint.ShowDialog() End …

Member Avatar
Member Avatar
+0 forum 1

hello sir how can I get my system short date format in a label in vb. net. I try this code : Label1.Text = System.Globalization.CultureInfo.CurrentUICulture.DateTimeFormat.ShortDatePattern() but show wrong data. all time show "M/d/yyyy" format. I change it(to "dd/MM/yyyy") manually and by coding result is same("M/d/yyyy") please help me..... For Change the Format: Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\International", "sShortDate", "dd/MM/yyyy")

Member Avatar
Member Avatar
+1 forum 3

Hi, I am currently working on a VB form for a college assignment. I am trying to add quantities from a ListBox and then display the result in a TextBox for a pizza delivery order by using a button. So far, the Listbox shows: pizza type Quantity pizza price Total pizza price The Total pizza price is the value that I want to add together and then show in a TextBox as an Order Price. This is my form and Code for the button: ![form1.PNG](/attachments/small/4/3da7c8769c68d4284e57a3e1644c9627.PNG "align-left") ![form.PNG](/attachments/small/4/a41c26183938bc03cb984f467c5bb361.PNG "align-left") ![form1_buttoncode.PNG](/attachments/small/4/710dcd869220381dab6204948dc6f362.PNG "allign right") The code is a work in progress and as …

Member Avatar
Member Avatar
+0 forum 5

Ok I have a workbook that have 5 worksheets for a 5 year span. On each of the worksheets are there is a list of countries that make up the combobox (which works perfectly). On my userform I have a frame on the userform that represent each worksheet. **My problem is that I can't get the textboxes to populate based on the combobox selection. If that country is on three of the sheets I need for it to populate according to the year.** This code works perfectly with the exception of populating my label boxes with line one starting with …

Member Avatar
Member Avatar
+0 forum 6

I'm trying to make a button that when pressed for a short while will close the form but when pressed for a long time *e.g. 5s* the form's process will be killed. I'm trying to achieve this with a timer. Private Sub CloseLongTimer_Tick(sender As Object, e As EventArgs) Handles CloseLongTimer.Tick Dim SetTime As Integer = 0 SetTime = SetTime + 1 If SetTime < 500 Then Me.Close() ElseIf SetTime > 499 And SetTime < 1001 Then System.Environment.Exit(1) ElseIf SetTime > 1000 Then CloseLongTimer.Stop() End If End Sub Private Sub CloseButton_MouseDown(sender As Object, e As EventArgs) Handles CloseButton.MouseDown CloseLongTimer.Start() End Sub …

Member Avatar
Member Avatar
+0 forum 4

I am a drafter using autocad and I know a littttttle bit of VB6. We just happen to have it installed on our computers and I wanted to create an application that can do this: 1. Takes the # input from text1 and text2 and waits for the user to hit "Ok" (command click) 2. Upon clicking, the information from Text2 gets multiplied by 0.75, and the total sum is then compared to Text1 with a less than or equals to equation. 3. the comparison then Decides if the sendkeys will say "G152B" or "CB152B" to Notepad Without words i …

Member Avatar
Member Avatar
+0 forum 2

Dear Experts, I want to develop a application that send sms on any mobile. if any one done this project then kindly give some important consideration for developing this application. Best Regards, Pardeep

Member Avatar
Member Avatar
+0 forum 5

I am working on the workshop selector in Visual Basics 7th Edition chapter 5 and I just can't get the calculate total button to work after trying numerous different codes. Here is the criteria for the program. 3 list boxes, 4 buttons, 2 labels. The application allows the user to select a workshop from lstWorkshop, Then select a location from lstLocation. Next btnAdd takes the selected workshop and location attached to a set amount of days and a registration fee and multiplies the days by a Lodging fee and outputs this number in dollar form. After multiple workshops/locations have been …

Member Avatar
Member Avatar
+0 forum 1

Hello, I am writing a simple program. I want to select the date and time, it should appear like this: DAYS HOURS MINUTES SECONDS when the time reached set date my timer must stop like this 0(d) 0(h) 0(m) 0(s) and show Form2. But my timer continues to count from 0 to negative. i dont know how can i stop the timer. Maybe this is something easy i just cant remember the syntax how to do it.. please help :) Thanks in advance Public Class Form1 Dim CurrentTime Dim TargetTime Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load …

Member Avatar
Member Avatar
+0 forum 3

The End.