Hi guys, i'm having a difficulty to set the path in vb.net.i put the code in the module and every time i run the code it throws error "Could not find file 'C:\Users\Abdueie\Desktop\BMS\Bridge Asset Management\Bridge Asset Management\bin\Debug\Adigrat.accdb'." here's the code Public conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source= .\\Adigrat.accdb;Persist Security Info=False")

Member Avatar
Member Avatar
+2 forum 10

Hello, I want to have a manual IP-input-box like windows. ![tcpip_properties.gif](/attachments/large/4/1b3cb2d2b7b2be11e2b4abcef8d6fcc5.gif) I tried by MaskedTextBox but the problem is, the 3 pionts are sliding when i insert some numbers and i can insert letters and numbers higher then 255 (higher is not allowed in IP´s). I hope anyone helps me, maybe with some codesnips!?! :) best regards josh

Member Avatar
Member Avatar
+0 forum 6

Hi, I Have below table I want all rows with all coloumn from below table where ActCode is 1162828 and sum of DocAmount for DocNo. i.e where the docNo is repeated i want only one row with sum of amount of all repeated rows. ** "Select *, Sum (DocAmount) from TblPurLedTranData whre TblPurLedtranData.ActCode='" & 1162828 & "' Groupby DocNo " ** PosDate DocDate DocNo DocAmount DueDate Status Period DocType FinYear Chan ActCode 10/10/2018 12/10/2018 369896     36980      11/11/2018 INV      5         PUST       2018       PUST       1243684    10/10/2018 12/12/2018 665        36000      11/01/2019 INV …

Member Avatar
Member Avatar
+0 forum 4

[B][COLOR="Green"]Hi Guys :).. I hope you fine :), I need the best and easist way for printing the form ,nested of PrintForm tool coz it is very bad :angry:,it prints the form [U][COLOR="Red"]like screen shot :angry:[/COLOR][/U] ,what I want print entire form on A4 ... Any suggestions ? :( Thanks for your help :)[/COLOR][/B]

Member Avatar
Member Avatar
+1 forum 4

Hello all, I am relatively new to Visual Basic and have managed to muttle my way through creating a 2013 Word document that has some ActiveX controls. The final control I put in place is a Command Button that, when clicked, it sends the form off to an email. That is all working great, however, I would like to have a pop-up message that displays after the button is clicked, letting the form sender know the form has actually been sent. I have put the code I used for this Command Button below. Any help would be much appreciated. Private …

Member Avatar
Member Avatar
+0 forum 9

I am traying to filter Datagrid view based on user type in TbxGlCode (TextBox) Initialy Datatable is populated from SQL table to TempTable (DataTable) getting error at **runtime** at below line Dim Rows As DataRow() = TempTable.[Select]("Code like '%" & VerCode & "%'") Exception Unhandled **System.Data.EvaluateException: 'Cannot perform 'Like' operation on System.Int32 and System.String** How to filter datatable with** Like ** option *My Code* Dim TempTable As DataTable Private Sub FrmGLCodeList_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' Dim TempTable As DataTable 'Create New Table Instance TempTable = New DataTable TempTable.Columns.Add("Code", GetType(Integer)) TempTable.Columns.Add("Name", GetType(String)) 'Adding Rows to TempTable from …

Member Avatar
Member Avatar
+0 forum 5

hi, i am trying to read from a text file and store the data in an array but i don't know how to get started with my code. can someone please get me started here. i have start with the code for locating the file, but i am having difficulty reading the file. Dim strFileName As String OpenAnswerFile.ShowDialog() strFileName = OpenAnswerFile.FileName MessageBox.Show(strFileName) 'message box showing the file path

Member Avatar
Member Avatar
+0 forum 13

Im Stuck With Something, Iv Been Searching, And Searching And I Canot Find Any Information On How To Make SQL Database Show The Samething For Everyone, When Updated Of Coarse... I Can Make The DataTable And Put It On A Form But I Cannot Make It To Where I Add Something And It Update For People That Have Different computers... Please Help!!!!

Member Avatar
Member Avatar
+1 forum 3

Hi! We are a 4 member group for our thesis and we already have submitted 5 topic proposals yet nothing was accepted...and here are the topics: enrollment system, gadgets on track, employment resource system, subdivision technical entry pass Now, I need a help for new ideas that can be developed through visual studio and it can be a web-based or window-based projects. Hope you can help me Thanks in advance!

Member Avatar
Member Avatar
+0 forum 36

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

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! 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

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

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

Dear Friends, Good Day, I am facing an issue in one of the functions the code is given below if someone can help on this actually this function is supposed to check the work ordewr number if it's nulll then it is suppose to take default value as 4999 and add one everytime, but the function is not taking the default value its is starting from 1 and then next record +1 means 2 like this but it supposed to be like 4999+1 means 5000 next record 5000+1 means 5001 like this. Any help in this regard will be highly …

Member Avatar
Member Avatar
+0 forum 4

I have the following problem. when i pres buttun printpreview (button 5) the the print preview fires up. and when i close the print preview without printing and minimize the form (after close the printpreview), and when i maximize the form again the image in the picturebox is turned 90 dergees. How is that pissible ? i have the following code for print preview. Public Class Form1 Dim fotoheight As Integer Dim fotowidth As Integer Private Sub Button5_MouseDown(sender As Object, e As MouseEventArgs) Handles Button5.MouseDown If e.Button = MouseButtons.Left Then If PictureBox1.Image Is Nothing Then MessageBox.Show("Er is niets te printen, …

Member Avatar
Member Avatar
+0 forum 4

Hello All, I have experienced a very strange problem in my application. When I launch my WPF application, it loads fine with a window and button, upon clicking the button, it launches another form which is also fine but in this second form, when I click some button, it launches a window with a blank screen (yet I am quite sure it has got many controls to show on the screen). I have already checked `DelegateCommand`, `Events`, `Methods` but still facing the same issue. I tried deleting some files as suggested by Google in "C:\Windows\ServiceProfiles\LocalService\AppData\Local" as `~FontCache-S-1-5-21-2260904419-1400770398-4175912926-283977.dat`, `~FontCache-System.dat`, `~FontCache-FontFace.dat` but …

Member Avatar
Member Avatar
+0 forum 17

Hi I have a broblem with my label text. The code is Public Class Form5 Dim a As Integer Dim currentDate As DateTime = DateTime.Now Dim jaarnu As Integer = currentDate.Year Private timeLeft As Integer Dim WithEvents timer As New Timer Dim milliseconds As Integer Dim monthnumber As Integer Dim v As Integer Dim h As Integer Dim maand As Integer Dim dagnummer As Integer Dim montnaam As Integer Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load timeLeft = 10 Label30.Text = jaarnu Dim currentDate As DateTime = DateTime.Now Dim days As Integer = currentDate.Date.Month Dim dagmaadn As …

Member Avatar
Member Avatar
+0 forum 4

hello ! i want to develop the keycounter , i mean i want to get the total no. of key pressed by the user in the specific time , i have a code of keylogger , i can use it to get the text in that time period and after that just get its length , but i dont want to use this . here is a code of VB.net which i found so for on msdn Private Shared keyPressCount As Long = 0 Private Shared backspacePressed As Long = 0 Private Shared returnPressed As Long = 0 Private Shared …

Member Avatar
Member Avatar
+1 forum 7

Who can help me with the following For Each Con As Control In GroupBox1.Controls If Con.GetType Is GetType(Button) Then Con.BackColor = SystemColors.Control Con.UseVisualStyleBackColor = True End If Next Can someone help me to fix it with Con.UseVisualStyleBackColor = True or do i have to do the for all buttons separate like Me.Button1.UseVisualStyleBackColor = True Me.Button2.UseVisualStyleBackColor = True i have 32 buttons in groupbox thanks in advice John

Member Avatar
Member Avatar
+0 forum 3

Hi guys, I just got into a little problem.I just deployed an application with backend db access.It works fine on major OSs being used like win7 and XP. But some functionality related to the database doesn't work properly when deployed on win8. I used a code to delete temp table if it exists.This feature completely works on the other OSs.But i don't know why the code is not working on the later OS. Any thought to solve the problem? Public Sub DroptempProject() On Error GoTo ErrorHandler Dim str As String str = "DROP TABLE ptempTable" ExecSQL(str) 'Exit Sub ErrorHandler: If …

Member Avatar
Member Avatar
+0 forum 5

Hi can someone give me the code how i make the first and last word of a string to Propr case The folowing gives all words to proper case Dim plaats As String = Replace(TextBox1.Text, "'", "''") plaats = StrConv(plaats, VbStrConv.ProperCase) I want, shall we say: "ohe en laak" to "Ohe en Laak" or "mülheim an der ruhr" To "Mülheim an der Ruhr" Thanks in advise John

Member Avatar
Member Avatar
+0 forum 4

i have 3 table i inner join with 3 table and add function but now getting error please help me how to solve the the problem please help me ERROR :Msg 8120, Level 16, State 1, Line 1 Column 'TBL_pur_inv.invno' is invalid in the select list because it is not contained in either an aggregate function or the GROUP BY clause. TABLE 1: TBL_pur_inv as pr (purinvid,slno,pdcgst,cgstamt,pdsgst,sgstamt,pdigst,igstamt,TaxableAmt totaltaxamt) TABLE 2: tbl_party_ldg AS p (partyID,prtynm,prtgst,prtpan) TABLE 3: TBL_pur_invdet AS prd (purinvid,purinvdt,invno,invdt,partyIDpur,invamt) What I have tried: select p.prtgst,p.prtynm,pr.invno,pr.invamt,PR.purinvdt,prd.pdcgst,sum(prd.totaltaxamt)As Rate,sum(prd.TaxableAmt)As Taxable_Amount from TBL_pur_inv as pr INNER JOIN tbl_party_ldg AS p ON pr.partyIDpur = …

Member Avatar
Member Avatar
+0 forum 2

Sir Please help me about MenuStrip Control used. I create a project there one parents form and two child form MenuStripControl-1 is on parents form (main_form) Menu Item name a) Trans. b)Report c) Setting and MenuStripControl-2 is on child form (purchase_Entry_Form) Menu Item name a) File. b)Close I want to when start the application (parents form (main_form)) then show MenuStripControl-1 menu Items only. But when run the child form (purchase_Entry_Form) then show MenuStripControl-2 menu Items only. After closing child form(purchase_Entry_Form) then re show the parents form (main_form) MenuStripControl-1 menu Items only. It is possible please help me sir... What I …

Member Avatar
Member Avatar
+0 forum 13

Like the title asked, what should i do to change the cursor into custom image when the form is loaded, i've tried so many style by google searching, but still can' work. :/

Member Avatar
Member Avatar
+0 forum 4

I want to filter data by day and month only excluding the year. For example I want to find people born from day 1 to day 15 in september without including years so what i did is like... Private Sub ButtonFilter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFilter.Click Dim sdate As Date = dtpfrom.Value.AddMonths(-1).AddDays(-1) Dim edate As Date = dtpto.Value.AddMonths(-1).AddDays(-1) Try con = New OleDbConnection(cs) con.Open() cmd = New OleDbCommand("SELECT ID, SerialNo as [Serial No], NamaLengkapdanBaptis as [Nama Lengkap], JenisKelamin as [Jenis Kelamin], NoKTP as [Nomor KTP], TempatLahir as [Tempat Lahir], TanggalLahir as [Tanggal Lahir], GolonganDarah as [Golongan …

Member Avatar
Member Avatar
+0 forum 2

Friends i need code to search the datas... I'm doing INVENTORY project... i'm using ACCESS databse with vb.net... i'm having purchase, sales tables... THIS IS MY PURCHASE TABLE: Code Price Category Type Dat SP Brnd 11 222 cde bgf 9/10/2025 356 asd 12 255 MEN Shirt 5/10/2010 355 Vanhesun 55 322 bb bb 9/10/2025 456 asd 66 422 bb bb 9/10/2025 556 fdd when i select CODE in SALES form, corresponding values have to shown in respective fields... I.e if i select 55, corresponding values have to be retrieved and showed in respective fields... Plz help me to finish the …

Member Avatar
Member Avatar
+0 forum 12

Hi guys, I am new to vb.net i want to know how to pass a datagridview row values onto another form once the row is been double clicked.

Member Avatar
Member Avatar
+0 forum 4

Hi All, I have a collection of huge records (6000+) wherein the object in the collections has got 50+ properties, so ideally it is not a good idea to run a "For-Each" loop here. What I want is a "GroupBy" clause which would get me a Dictionary (Of String, String) from this collection where the key is the primary key (A) of this object and the value would be concatenation of another property (B) with "|" seperated values for each key (A). For example: Dim collectionA As A() = DAL.searchForComments Here, "A" has got 50 properties (ID, Name, Address etc.) …

Member Avatar
Member Avatar
+0 forum 8

The End.