jez9

I tried to make a setup file wherein i want to install and unistall the application/system that i made but when i try to run the application and i tried to save, edit, order and other stuff in the application it says "Operation must use an updateable query" i use …

ive got a table: code, stocksretail, stocksws and numexpected for example code: 0001, stocksretail : 24, stocksws: 1, numexpected :24 (numexpected = 1wholesale that contains 24pcs in retail) code: 0002, stocksretail : 24, stocksws: 1, numexpected :24 my problem is when i buy the two items above, the stocksretail should …

Really need help please this is my code: Sub updteWS() Dim sql = "select Count(*) from ItemProduct where Code= ?" Dim cmd = New OleDbCommand(sql, conn) cmd.Parameters.AddWithValue("@Code", LVCart.Items(0).SubItems(0).Text) Dim result As Integer = Convert.ToInt32(cmd.ExecuteScalar()) cmd.Parameters.Clear() cmd.Dispose() If result > 0 Then For Each x As ListViewItem In LVCart.Items Dim Stocks_WS1 …

Good Day Everyone!. Now im trying to know more about masterkey. Ive heard that if my database[ms-access(i use oledb)] accidentally deleted or someone hack it and delete my database, they said that i should make a master key where even though my database got deleted i still can LogIn or …

i want to print my receipt in A4 size, but the problem is when i tried to print preview the form that need to be print , it occupy the whole paper. I use Word in printing. and here's my code in print preview Private Sub frmreceipt_Click(ByVal sender As Object, …

database - field[counterx3 - Id(text)Primary Key] my code works really well before but when i changes and add codes in the others forms i got error in updating the value in my database, here's my code for update sql = "update counterx3 set ID='" & Val(acsdr!ID) + 1 & "'" …

Hi again, i am working for a new project [payroll system] , i want to know how can i calculate late like for example my working time should be 8:00am-5:00pm and one day i go to office at 8:30 am , can someone tell me how can i save in …

in my database: [tbl, nod, qty, DorT, tme, price] I wanted to call 3fields in the database, The nod[name of dish], tbl[table], DorT[dinein/takeout] nod[in listview, subitems(1)], tbl[cbtable in the form], and DorT[combobox1 in the form] In listview[LVORDER]-(qty, nod, price, total) In my case, adding order is already OK. But i've …

I want to backup my database when a changes happen in my system,like for example i add new user/ update/ delete etc. I want to know wether it is possible or not?I'm not a pro user of vb.net that's why everything is still new to me :)

when i run my system in .exe file i got error[unhandled exception has occurred in your application] , i used this code Public Class Form1 Declare Function Wow64DisableWow64FsRedirection Lib "kernel32" (ByRef oldvalue As Long) As Boolean Declare Function Wow64EnableWow64FsRedirection Lib "kernel32" (ByRef oldvalue As Long) As Boolean Private osk As …

Hi again, i want to use on sceen keyboard when i want to click/touch a textbox, i tried to do a keyboard in vb.net but it can only focus on one form only. Can you give any idea how can i use on screen keyboard or how can i focus …

Hi again, I'm having a trouble in updating an item from listview to database I try this code , but it says syntax error in Update nod=name of dish , qty = quantity TBLORDERS - nod[text], qty[text], price[text] lvorder - qty , [subitems] - name of dish, price Dim sql …

i have a textbox named AddU.text, i also have a msaccess table field named Quantity, what I want is that when i input a value in AddU.Text and click the add button, the value i entered will be automatically add to the existing value in Quantity. I keep searching for …

Private Sub LVlist_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LVlist.SelectedIndexChanged If LVlist.SelectedItems.Count > 0 Then With LVlist.SelectedItems(0) VarIdentifier = .SubItems(0).Text lblname.Text = .SubItems(0).Text End With pix() End If end sub Sub pix() sql = "select pic from tbldishlist where nod = '" & lblname.Text & "'" Dim acscmd …

Hi again, i'm trying to put a background image in my button[i declare the button] , My database[ms access] , tbldishlist - name[text , Primary key], pic [ole object] when the form is loading, the button's background is according to the name of the item. here's my example: Dim btn …

help please, i really need to solve this one. when the quantity of the product is increasing/decreasing, i want the Total Price to update/increase/decrease also, but its only remain working. the button is declare, so when i click the button , all of the info of that will be transfer/view …

ms access [tblorder - code[text], items[text], total[text]] code = lblcode [label] items= x.SubItems(1) [in listview] total = lbltotal [label] as of now i can only save 1 item in the field 'items' , but i want to save 2 or more items,how can i do that? For Each x As …

QTY-QUANTITY The Price is not increasing. I want to multiply the QTY to PRICE , when QTY is Increasing The PRICE need to increase to depends on the QTY. Private Sub clickMe(sendr As Object, ByVal e As EventArgs) Dim btn As Button = CType(sendr, Button) Dim ProdMatch As Boolean = …

ms access[tblmonthly - month, total] month = lbldate [actually my date format is ` lbldate.Text = Date.Now.ToString("MMMMMMMMMM dd, yyyy")` , im using this format for my daily sales and i can save and update at the same time, but in Monthly sales i want to use the same format but …

here's my code Dim sql As String = "INSERT INTO tbldailysales(date, totalprice)VALUES(@date, @totalprice)" cmd = New OleDbCommand(sql.ToString, con) cmd.Parameters.AddWithValue("@date", lblday.Text) cmd.Parameters.AddWithValue("@totalprice", lblstotal.Text) cmd.ExecuteNonQuery()

i created a simple keyboard in vb.net , the problem is i got 2 textboxes, but when i tried to use the keyboard that i've created in textbox1, i got the same result in textbox2[ in short what i type in textbox1 it also textbox2] if textbox1.[dont know what to …

Hi, i'm really having trouble how can i make a sales report without using crystal report. I want to do daily, weekly,monthly and yearly report. I created a database with two fiels only, Date and Total Price, but i don't know how to code it, do i just use if …

Syntax error. Im not really familiar in using parameter so i dont know whats wrong with code . i used ms access. Private Sub btnupdate_Click(sender As System.Object, e As System.EventArgs) Handles btnupdate.Click Dim name As String = txtfname.Text Dim pos As String = txtpos.Text Dim address As String = txtadd.Text …

hello again :) heres the code for declare button: Sub table_load() Dim CMD As OleDb.OleDbCommand = New OleDb.OleDbCommand("Select * from tblnumber", con) Dim rd As OleDbDataReader = CMD.ExecuteReader() If rd.HasRows() Then Dim pos As New Point(5, 5) Dim sz As New Size(50, 50) Do While rd.Read() Dim tblnum As New …

here is my code: With RECEIPT For i = 0 To MENUORDER.lvorder.Items.Count - 1 .LstOrder.Items.Add(MENUORDER.lvorder.Items(i)) 'dont know what to do next Next i .ReceiptNo.Text = Me.lblos.Text .lblTotal.Text = Me.lbltotal.Text .lblCash.Text = Me.TextBox1.Text .lblChange.Text = Me.lblchange.Text .ShowDialog() End With [forms : RECEIPT, MENUORDER] i dont know how to display listview subitems …

hi, I want to Count how many times i click a button and display the number in listview. but i dont know the syntax for counting a button, can someone help me with this problem?

database table : tblsale fields : id [autonumber], name[text], TOTALQTY [text], TOTALPRICE[text] lvlist column: QTY, NAME, PRICE this is my code sql = "UPDATE tblsale set TOTALQTY = TOTALQTY + lvlist.FocusedItem.getTOTALQTY AND TOTALPRICE = TOTALPRICE + lvlist.FocusedItem.SubItems(2).getTOTALPRICE where name = '" & lvlist.FocusedItem.SubItems(1) Dim acscmd = New OleDb.OleDbCommand(sql, Con) acsdr …

it can only save 1 record, but i want to save 2 or more from listview to database database table: table1 , fields [receiptnum,nod,qty,price,total [all in text]] For Each x As ListViewItem In lvorder.Items sql = "insert into table1 (receiptnum,nod,qty,price,total) values ('" _ & lblos.Text & "','" _ & x.SubItems(0).Text …

this is my code dim btn as button dim rs as dataadapter rs =" Select * from tbltable1 where status = 'unavailable'", con) with rs [i dont know what comes next but i tried this one] btn.enabled = false end with [nothing's change] [so i tried this one] dim rs …

I wanted to call a value in database[ms access]. I have a table named tbltable1 and there are three fields, i,d[autonumber], tablename[text] and status[text]. And i have 4 buttons. Each buttons represents the table name. what i want to happen is,status [available, unavailable], when the status is = "unavailable" the …