Comments by Jayanta Modak (Top 102 by date)

thanks sir

thanks sir for reply actually the problem is i want to fix the date time format "dd/MMM/yyyy hh:mm:ss"
but when I try my tried code nothing do change

thanks sir for replay
I replace my code, but how to fix it by date time format "dd/MMM/yyyy hh:mm:ss"
it is used separately or use "dt.Columns.Add("Creation Time", GetType(DateTime))"

Thanks sir, Love you to. You solve my problem, thanks again because sir you understand my problem means actually what I need THANKS SIR

actually I want to display in msgbox what is the special character
exm: "Hi! Hello, How are you?"
Result : ! , ?

I Improve Question. Please Help me sir

Thanks sir for reply problem is solve i just change to things 1) SQL Server (SQLEXPRESS) TO MSSQLSSERVER
2) and change app.manifest <requestedexecutionlevel level="asInvoker" uiaccess="false">
to
<requestedexecutionlevel level="requireAdministrator" uiaccess="false">

Thanks Sir

thanks sir for reply, i try this solution but problem is same , same error massage show please help me

yes sir, error showing when loop run 2nd time when debug this line ----

ListView1.Items.Add(listitem)

or

If Not listView1.Items.ContainsKey(listitem.Name) Then
    listView1.Items.Add(listitem)
Else
    MessageBox.Show("Duplicate Item!")
End If

sorry sir it is not work
show same error

thanks sir for replying
but how can i use this code your link is "C" i don't know "c" please help me...

thanks sir for replying
Actually I used some spacial characters in this place of "*" and same quantity of original characters. I not post here please help me sir please ....

oh! sorry sir . please forgive me I don't know good english. sorry.
I've copied all my tables in this process. So, i think stored procedure copy process is same.
Please help me sir.... how to copy a stored procedure

yes sir then i used this
select * into DB_18_19.dbo.P_Add_FY_Data from DB_17_18.dbo.P_Add_FY_Data

I want to change the database every financial year.
If I change the database and copy all table only then how to run store procedure? Because store procedure stored in database. User have no permission to change any part of program of the project and do not access the the database.


Stored procedure name is correct and it is stored in database "db_17_18

Thanks sir for replying
Actually i used this sql command in vb.net 2010. when user click on create new db by click a button after that automatically copy all table and stock ledger balance and store procedure and function. when i copy store procedure then i facing the problem.
i can do it "I think the best idea, or what I usually do when I copy a stoproc from one database to another database, is right-click the target procedure and choose "modify". The procedure will then open in the editor and I can change the word "ALTER" to "CREATE" ... then save it as .sql script. Run it on the target database (the one without it)." but the user can not
please help me sir.

Now my full code is
Private Sub btnaddcat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaddcat.Click
For k = 0 To ListView1.Items.Count - 1
'If ListView1.Items(k).SubItems(6).Text > 10000 Then
' ListView1.Items(k).SubItems(6).ForeColor = System.Drawing.Color.Red
'End If
Dim value As Integer
If Integer.TryParse(ListView1.Items(k).SubItems(6).Text, value) Then
If value > 10000 Then
ListView1.Items(k).SubItems(6).ForeColor = System.Drawing.Color.Red
End If
End If
Next k
End Sub
It is does not work and not debug the full code, After this line
" If Integer.TryParse(ListView1.Items(k).SubItems(6).Text, value) Then" go to the

End If
Next k
do not debug or read the middle lines.
Please help me sir
Sir Check with my code it work fine but not change the color of cell
my code is ---
For k = 0 To ListView1.Items.Count - 1
If ListView1.Items(k).SubItems(6).Text > 100 Then
ListView1.Items(k).SubItems(6).ForeColor = System.Drawing.Color.Red
MsgBox("hi test code yes")
Else
MsgBox("hi test code no")
End If
Next k

Sir I debug but show no error massage it debug 1st to last data

thanks sir

it is work fine thanks

thanks sir for replying
I try it but result is same. I send the value directly '2','15','19','20','21','22','23','24','25','26' from vb.net please help me

https://ibb.co/cNRFzp in this line

i do not use any button my project, when i add any part of codding then i fist checking it using a button (btnadd) after that it convert a private sub and call from where is necessary.

I try many type of coding listview1.checkbox=true but it is does not work properly, not work changing , click, mouse up / down etc. because when i click on the check the TICK sing on and off but never select full row, for that listview1 changing , click, mouse up / down do not work, So, I use this method

please forgive me sir i don't know good English please forgive. and please help me to solve this problem
Thanks

Sir I see the error massage but I don't understand the what is the error. Please help me to solve the problem. Thanks

Sir it is showing no error, but it showing only same match of items of two tables

I was very sick. So, I could not answer. Please forgive me ...
https://ibb.co/jfoJM8
https://ibb.co/fgOk18

I was very sick. So, I could not answer. Please forgive me ...
https://ibb.co/jfoJM8
https://ibb.co/fgOk18

I was very sick. So, I could not answer. Please forgive me ...
https://ibb.co/jfoJM8
https://ibb.co/fgOk18

thanks sir for reply. I try your solution but result is same
please help me

Sorry sir what you want to say please clear
Thanks for reply

Sir I use Control key It is work fine

If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.Left Then
Me.SelectNextControl(sender, False, True, True, True)
End If

sorry sir i don't wont to say that coding is wrong but i have number of combobox and textbox so, it is not possible that write code every control manually.

thanks sir for your reply.
but it is not work.
Private Sub ctrl_next(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbitemsalepri.KeyUp, cmbitempurpri.KeyUp, cmbitemmrp.KeyUp, cmbitemopnstk.KeyUp, txtitemcgst.KeyUp, cmbitemsl.KeyUp, cmbitemcl.KeyUp, cmbitemsubcat.KeyUp, cmbitemunit.KeyUp, cmbitemdes.KeyUp, cmbitemnm.KeyUp, cmbitemcate.KeyUp, txtitemsgst.KeyUp, txtitemigst.KeyUp, txtitemcod.KeyUp, cmbhsnitm.KeyUp

If e.KeyCode = Keys.Enter Then
Me.SelectNextControl(sender, True, True, True, True)
End If


'If e.KeyCode = Keys.Left Then
' Me.SelectNextControl(sender, False, True, True, True)
'End If
'If e.KeyCode = Keys.Left Then
' Me.SelectNextControl(CType(sender, Control), False, True, True, True)
' e.Handled = True
'End If

End Sub
going to next control i use the key is ENTER it work fine, but now i update my coding back to previous control how it is possible

thanks sir, for reply all time and query thanks.
it is not done i think some ghost problem i try all setup file but result is same.Install same setup file some time ago then it is work properly but i unfortunately delete the master database from sql server the start problem. I format and full format the system more then 5 times but no result. thanks.

there are many files i already download
SQLManagementStudio_x86_ENU.exe 158.3 mb and
SQLEXPRWT_x86_ENU.exe 318.4 mb it right or others setup file download and what i install, i Write the store procedure in data-base

Sir i want install SQL Server 2008R2 on windows 7 OS 32 Bit (not server OS ) i used old version because i used visual basic 2012.
one request if possible please share the link of SQL Server 2008R2

windows server 2000
sir i install "SQLManagementStudio_x86_ENU" it is download from Microsoft site
i install it (setup file) other system it is work fine but this system not work i disconnect the LAN connection the i install but result is same

Yes sir, i have one system in this system installs Server OS and SQL-Server 2005 but now i want install in a single system SQL-Server 2008 R2. when i brows the the more option there is not showing the name of this computer.

yes sir i change the .\SQLEXPRESS to my computer name but problem is same
if you want access my pc i will ready to share my team viewer id or any desk id
please help me i full format the system but problem is same please help me

Sir thanks for reply
I used a master page for create the function to connect to the SQL server that for i not used the everytime connection

no error but result is same

Msg 1035, Level 15, State 10, Line 20
Incorrect syntax near 'CAST', expected 'AS'.

hello sir
thanks
for reply it is work but sir why you use every where "T.ItemIDpur=pd.ItemIDpur for purchase T.ItemIDsale=pd.ItemIDpur for sale" "pd.ItemIDpur" this id is come from purchase details table you use when you calculate the sale quantity

and
i have 174 item abut after run the query 338 row
please help me .......
i don't know good English So, please forgive me and my query is for my knowledge update don't think others

thanks sir for help and reply,
here "p_type='P'" means it is purchase and i want to item wise purchase qty (for example i purchase 'abc' item five(5) time (2,4,5,7,9) then show purchase qty is 27) same as sale , purchase return and also Sale return column.

sir please forgive me, i don't know how to join or relation between two query please help me please share some example or help please sir

I don't know how to add the sub-query i am beginner in sql language please help me

sorry! data record means table details ?

https://ibb.co/bYyEvx

How to add the sub query in main query
i write the sub query for checking it is work or not
yes it is work but wont to add the sub-query into main query means when i run the main query i see all field in result

https://ibb.co/bYyEvx


How to add the sub query in main query
i write the sub query for checking it is work or not
yes it is work but wont to add the sub-query into main query means when i run the main query i see all field in result

ok sir, but now i am in office, i share the code after some time sorry sir please forgive me...

Sir please help me...
how to solve the problem in a single procedure
please help me....

TBL_sale_invdet this table i used for entry the product details of sale invoice. when i edit the sale invoice change the product details (delete, add, change etc.) then only UPDATE is not complete the total work. that for I used the DELETE, for all data against "saleinvid" from this table TBL_sale_invdet. Then i re **INSERT** the product details.
please help me.........

TBL_sale_invdet this table i used for entry the product details of sale invoice. when i edit the sale invoice change the product details (delete, add, change etc.) then only UPDATE is not complete the total work. that for I used the DELETE, for all data against "saleinvid" from this table TBL_sale_invdet. Then i re **INSERT** the product details.
please help me.........

TBL_sale_invdet this table i used for entry the product details of sale invoice. when i edit the sale invoice change the product details (delete, add, change etc.) then only UPDATE is not complete the total work. that for I used the DELETE, for all data against "saleinvid" from this table TBL_sale_invdet. Then i re INSERT the product details.
please help me.........

thanks sir
it is done just i want to
thanks a lot

but (prd.pdcgst) pdgst are three type 0.00,2.5,9.00 i want to show only 2.5, and 9.00 how to hide the 0.00 pdgst
and show 5.00 in place of 2.5 and 18.00 in place of 9.00

thanks sir
it is done
but (prd.pdcgst) pdgst are three type 0.00,2.5,9.00 i want to show only 2.5, and 9.00 how to hide the 0.00 pdgst
and show 5.00 in place of 2.5 and 18.00 in place of 9.00

Sir what you want to know about the attached document

Yes sir
I mean my original data is column "A" to "K" and row 1 is heading row 2 to 5 is data

I want set data as per column "B" to "F" and row 7 is heading and row 8 to 22 is data
I want do it using formula I have 2000+ data
But I don't know how to do this I try many things don't get the result
Please help me sir
I hope if you see the attachment pictures then you understand what I want to say
I don't know good english.
Please forgive me

thanks sir, only last item entry on data base in this table "TBL_pur_invdet", but I entry 4 item on list view
please help me

actually i want to run it two times when inv start time and save time because if other user if save the any inv

actually i update some stored procedure and create 2 tables in my system. Now i want to update it on other system. i add a form name "Update_Database" and here a button same name when i click on this button create the stored procedure and create 2 tables automatically in the database. how i can do it please help me.......

how can I do it.....
I want to don't open SQL Server Management Studio, But I want to add the stored procedure.

It is possible please help me

Thanks Sir. I do It

Thanks for reply. I am very newer in vb.net i have no knowledge about "SQL Injection"
Sorry sir, https://ibb.co/f2QX4a please see the link and please help me. You saying about this portion for "SQL Injection" or my coding portion. I don't know better English, please forgive me.

if I off this two line then no error
cmbpartynm.Text = dr("prtynm")
cmbinvtype.Text = dr("invtyp")

I run two privet sub in this two combox in form load event. I think problem is come from here. So, I stop the run this two privet sub. the no error and o problem.
Two Privet Sub Is---------------

1) for party name combox



Private Sub loadpartyNAME()
Call connection()
' unmcmb.Enabled = False
Dim ds As New DataSet
Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter

da = New OleDb.OleDbDataAdapter("select * from party_ldg", cn)
da.Fill(ds, "party_ldg")
ds.Tables(0).DefaultView.Sort = "prtynm"
' cn.Close()
With cmbpartynm
.DataSource = ds.Tables("party_ldg")
.DisplayMember = "prtynm"
'.ValueMember = "UNTid"
End With
End Sub

2) For Inv Type(cash/credit combox)




Private Sub loadinvoicetype()
Call connection()
' unmcmb.Enabled = False
Dim ds As New DataSet
' Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter

da = New OleDb.OleDbDataAdapter("select * from inv_type", cn)
da.Fill(ds, "inv_type")
ds.Tables(0).DefaultView.Sort = "invtyp"
' cn.Close()
With cmbinvtype
.DataSource = ds.Tables("inv_type")
.DisplayMember = "invtyp"
'.ValueMember = "UNTid"
End With

End Sub

Thanks for reply. I am very newer in vb.net i have no knowledge about "SQL Injection"
Sorry sir, https://ibb.co/f2QX4a please see the link and please help me. You saying about this portion for "SQL Injection" or my coding portion. I don't know better English, please forgive me.

if I off this two line then no error
cmbpartynm.Text = dr("prtynm")
cmbinvtype.Text = dr("invtyp")

I run two privet sub in this two combox in form load event. I think problem is come from here. So, I stop the run this two privet sub. the no error and o problem.
Two Privet Sub Is---------------

1) for party name combox



Private Sub loadpartyNAME()
Call connection()
' unmcmb.Enabled = False
Dim ds As New DataSet
Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter

da = New OleDb.OleDbDataAdapter("select * from party_ldg", cn)
da.Fill(ds, "party_ldg")
ds.Tables(0).DefaultView.Sort = "prtynm"
' cn.Close()
With cmbpartynm
.DataSource = ds.Tables("party_ldg")
.DisplayMember = "prtynm"
'.ValueMember = "UNTid"
End With
End Sub

2) For Inv Type(cash/credit combox)




Private Sub loadinvoicetype()
Call connection()
' unmcmb.Enabled = False
Dim ds As New DataSet
' Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter

da = New OleDb.OleDbDataAdapter("select * from inv_type", cn)
da.Fill(ds, "inv_type")
ds.Tables(0).DefaultView.Sort = "invtyp"
' cn.Close()
With cmbinvtype
.DataSource = ds.Tables("inv_type")
.DisplayMember = "invtyp"
'.ValueMember = "UNTid"
End With

End Sub

attached database screenshot ?

https://ibb.co/bDLEHv
https://ibb.co/minuHv
https://ibb.co/n2FQPa
https://ibb.co/bzSuHv

thanks sir,
It is done as per your suggestion or order. Thank you very much.

Thanks for reply. I solve the problem

i try it but not work,

I am sorry. unfortunately caps lock button on in my keyboard I have no intention to do this. Again I am very sorry. And I am newer in vb.net 1st time I used the vb.net so, I don't know the where I use the format.
Thanks for your Reply and suggestion
Please forgive me, sorry

WHERE I USED THE DATE FORMAT (WHICH LINE)

Hello sir It is work fine, But a problem date show with time how i can show only date without time please help me.
https://ibb.co/iYyxfF

I Don't Understand, I am Newer in vb.net. Please Sir how to do this,

This is a Product entry form. Product code is unique but product name is not unique. So, when I type product code in text box >then press enter come in the cursor in the Product name combobox then the Product name is already exsite in the combobox list then I chose the Product name otherwise I type product name and fillip all field then press enter for save data in database
But now I face the problem when I press the enter in combobox TEXT not stay in the combobox then I save it product name field is blank. Please help me sir.
Please see the picture

This is a Product entry form. Product code is unique but product name is not unique. So, when I type product code in text box >then press enter come in the cursor in the Product name combobox then the Product name is already exsite in the combobox list then I chose the Product name otherwise I type product name and fillip all field then press enter for save data in database
But now I face the problem when I press the enter in combobox TEXT not stay in the combobox then I save it product name field is blank. Please help me sir.
Please see the picture

https://ibb.co/jVk47k

Thanks sir. Done it thanks

Sub generate_inv()
Dim id_tmp As String
Query = "select top 1 InoviceNo from Invoice order by InoviceNo desc"
cmd = New OleDbCommand(query, cn)
dr = cmd.ExecuteReader
If dr.HasRows = False Then
dr.Close()
id_tmp = "E000001"
Else
dr.Read()
id_tmp = Format(Mid(dr("InoviceNo"), 2, 6) + 1,"E00000#")
End If
dr.Close()
txtInvoice.Text = id_tmp
End Sub


I use this code but some problem here, I con't understand what is the problem
Problem is : It is fine work blank database(means starting E000001) to E000009, after that showing the number E000011 after that no incensed the number. Please Help me.

I tried it. it is not work because combo box item not select

Imports System.Data.OleDb
Module Modconnection
Public cnn, cn As New OleDb.OleDbConnection
Public cm As New OleDb.OleDbCommand
Public dr As OleDbDataReader

Public Sub connection()
cn = New OleDb.OleDbConnection
With cn
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DB.accdb;Persist Security Info=False;"
.Open()
End With
End Sub

Add Data button-----------------------------------------

Call connection()
Try

cm = New OleDb.OleDbCommand
With cm
.Connection = cn
.CommandType = CommandType.Text
.CommandText = "INSERT INTO cominfo (Comname,Add1,Add2,Phone,Vat,cst_tin,Email,Website) VALUES (@Comname,@Add1,@Add2,@Phone,@Vat,@cst_tin,@Email,@Website)"

.Parameters.Add(New System.Data.OleDb.OleDbParameter("@Comname", System.Data.OleDb.OleDbType.VarChar, 255, Me.ComnameTextBox.Text))
.Parameters.Add(New System.Data.OleDb.OleDbParameter("@Add1", System.Data.OleDb.OleDbType.VarChar, 255, Me.Add1TextBox.Text))
.Parameters.Add(New System.Data.OleDb.OleDbParameter("@Add2", System.Data.OleDb.OleDbType.VarChar, 255, Me.Add2TextBox.Text))
.Parameters.Add(New System.Data.OleDb.OleDbParameter("@Phone", System.Data.OleDb.OleDbType.VarChar, 255, Me.PhoneTextBox.Text))

.Parameters.Add(New System.Data.OleDb.OleDbParameter("@Vat", System.Data.OleDb.OleDbType.VarChar, 255, Me.VatTextBox.Text))
.Parameters.Add(New System.Data.OleDb.OleDbParameter("@cst_tin", System.Data.OleDb.OleDbType.VarChar, 255, Me.Cst_tinTextBox.Text))
.Parameters.Add(New System.Data.OleDb.OleDbParameter("@Email", System.Data.OleDb.OleDbType.VarChar, 255, Me.EmailTextBox.Text))
.Parameters.Add(New System.Data.OleDb.OleDbParameter("@Website", System.Data.OleDb.OleDbType.VarChar, 255, Me.WebsiteTextBox.Text))


' RUN THE COMMAND
cm.Parameters("@Comname").Value = Me.ComnameTextBox.Text
cm.Parameters("@Add1").Value = Me.Add1TextBox.Text
cm.Parameters("@Add2").Value = Me.Add2TextBox.Text
cm.Parameters("@Phone").Value = Me.PhoneTextBox.Text

cm.Parameters("@Vat").Value = Me.VatTextBox.Text
cm.Parameters("@cst_tin").Value = Me.Cst_tinTextBox.Text
cm.Parameters("@Email").Value = Me.EmailTextBox.Text
cm.Parameters("@Website").Value = Me.WebsiteTextBox.Text

cm.ExecuteNonQuery()
MsgBox("Record saved.", MsgBoxStyle.Information)


Me.ComnameTextBox.Text = ""
Me.Add1TextBox.Text = ""
Me.Add2TextBox.Text = ""
Me.PhoneTextBox.Text = ""

Me.VatTextBox.Text = ""
Me.Cst_tinTextBox.Text = ""
Me.EmailTextBox.Text = ""
Me.WebsiteTextBox.Text = ""



Exit Sub
End With
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try

i am beginner in vb.net please help me what is the wrong in my code

I DON'T TRY TO REPLACE ANYTHING, I JUST WANT TO INSERT COLUMN HEADER INSERT TO EXCEL FILE. PLEASE HELP ME

i solve the one problem data export to excel but header text is not come on the excel, can you help me. i use the

Dim ExcelApp As Object, ExcelBook As Object
Dim ExcelSheet As Object
Dim i As Integer
Dim j As Integer

'create object of excel
ExcelApp = CreateObject("Excel.Application")
ExcelBook = ExcelApp.WorkBooks.Add
ExcelSheet = ExcelBook.WorkSheets(1)

With ExcelSheet

For i = 1 To Me.DataGridView1.RowCount
.cells(i, 1) = Me.DataGridView1.Rows(i - 1).Cells(0).Value
For j = 1 To DataGridView1.Columns.Count - 1
.cells(i, j + 1) = DataGridView1.Rows(i - 1).Cells(j).Value
Next
Next

End With

ExcelApp.Visible = True
'
ExcelSheet = Nothing
ExcelBook = Nothing
ExcelApp = Nothing

this coding

i solve the one problem data export to excel but header text is not come on the excel, can you help me. i use the

Dim ExcelApp As Object, ExcelBook As Object
Dim ExcelSheet As Object
Dim i As Integer
Dim j As Integer

'create object of excel
ExcelApp = CreateObject("Excel.Application")
ExcelBook = ExcelApp.WorkBooks.Add
ExcelSheet = ExcelBook.WorkSheets(1)

With ExcelSheet

For i = 1 To Me.DataGridView1.RowCount
.cells(i, 1) = Me.DataGridView1.Rows(i - 1).Cells(0).Value
For j = 1 To DataGridView1.Columns.Count - 1
.cells(i, j + 1) = DataGridView1.Rows(i - 1).Cells(j).Value
Next
Next

End With

ExcelApp.Visible = True
'
ExcelSheet = Nothing
ExcelBook = Nothing
ExcelApp = Nothing

this coding

I am new in vb.net so, I don't know right process. please help me sir. please

if I delete this line then no error, data export into excel, but now two problems
header text and id is not come in excel

http://www.mediafire.com/file/6r5xgztxzqhbz1z/Button+2+error.png

error text is Column named id cannot be found. Parameter name: columnName

https://www.codeproject.com/Questions/1173238/How-to-create-quick-find-from-combo-list

Thanks Sir. I don't know the process.
Thanks

Actually my combo box list is too long, So, I want to do this
for example :
L.GRO(UREA)
L.GRO(DAP)
more many like this
and this item where is in the list we don't know
so, i want to just type "dap" the full word "L.GRO(DAP)" come in the fist or it selected or showing it only

thanks advance

Actually my combo box list is too long, So, I want to do this
for example :
L.GRO(UREA)
L.GRO(DAP)
more many like this
and this item where is in the list we don't know
so, i want to just type "dap" the full word "L.GRO(DAP)" come in the fist or it selected or showing it only

thanks advance

ok sir

I create ms access database because I don't know sql. So, please tell me where I Add this code. combo box attached with access database.
database name---krm
table name ------------- rec sub
field name-------- prd id

Thanks sir, It is work. many many thanks.
I have a question
when I click on combo box list are showing.
example:
Ram
Arijit
Soumya
soubarna
tarak
i want to just type "rna" select or only show the word "soubarna" how it is possible?
Please help me........
Advance say Thanks..............

Sir, please give me the solution I am beginner in VB.Net. please give me the code
Combobox style is simple combo box