Comments by Saumyavemula (Top 55 by date)

CreatedOn column is text and Trainingexp is datetime

i am using access database, both columns datatype is datetime

i am using access database

wrote this query but asking for parameter
Update Master set TrainingExp = dateadd("yyyy",1,[CreatedOn])

please help.....

did the same but is asking for parameter to pass, whereas i need to change the whole column

Values are already inserted into table, i just need to update the column

What is this??

Can you guide me on How to check?

Hi,
My prn file will include the data which i select in the form and it is generated when the print button is clicked.

I tried both the ways
1. Package including prn file and
2. Package not including prn file

But the error is same "Access to the path C:\Application.Startup\label.prn is denied"

can you help me in more detail because i am new to this prn setup file.

Error is coming as NullReferenceException

Can you help me with VB.net

please help how can i change the datarow

when i am writing

mWriteData = "" & dr(0) & "," & dr(1) & "," & Now & ""
sr.WriteLine(mWriteData)

then only last record of datagrid is entered in CSV file.

How can i get all the records from datagrid??

it is not a class, it is a datarow

dr is the datarow

I know I am not removing any row from loop because I am not able to code it.

Can you help me with the code?

Do you know who to use the loop to get all records from datagrid to csv file

I didn't get what you said?

Can you help me for setting the width of datacolumn...

Its not helpful, i tried all this........

I am using datagrid not datagridview

Can you help me how to do because i am new to access db.

Hi,
I wrote the code System.Diagnostics.Process.GetCurrentProcess.Kill(), but i am getting an error "The remote connection to the device is lost, Please connect the device" whereas my connection to the device is alright.

When my application is executed for 2nd time and closed that time it's showing an error of Memory full. What i should do??

I am exiting application but when application is runned 2nd time and closed that time it is showing an error of Memory full. So i need to kill the application when clciked on exit.

Thanks,

But not useful

I mean i want to save my sdf file and exe at the same location

Hi,

Even i tried this but its in vain, please find my completed code.

Public Function csvfile()
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + System.AppDomain.CurrentDomain.BaseDirectory + "CI.mdb;Jet OLEDB:Database Password= 123456")
conn.Open()
Dim fromdate, todate As String
Dim Cand_name, dat1, Dateofintro, visatype, Step_1, Step_2, Step_3, Step_4, Step_5, Step_6, Step_7, Step_8, Step_9, Step_10, Step_11, Step_12, Step_13, Step_14, Step_15 As String
fromdate = DateTimePicker1.Value.Date
todate = DateTimePicker2.Value.Date
sqlcmd = "select * from CandidateMaster where DateOfIntro between " & fromdate.Substring(0, 10) & " and " & todate.Substring(0, 10) & ""
cmd = New OleDbCommand(sqlcmd, conn)
dr = cmd.ExecuteReader

sqlprocess = "select * from Process"
cmd = New OleDbCommand(sqlprocess, conn)
dtre = cmd.ExecuteReader
maxsrno = 1
createHfile = "CanadianImmgration_Report" & ".csv"
If File.Exists("C:\Users\Mil-Dev2\Desktop\" & createHfile) = False Then
Try
Dim SrHeader As StreamWriter = File.CreateText("C:\Users\Mil-Dev2\Desktop\" & createHfile)
mstrHeaderdata = "Srno,Candidate's Name,Date of Intro,VisaType,Mailed details with AF,Received AF and CV from Candidate,Forwarded AF to Canada,Received Retainer from Canada,Sent Retainer back to Canada,Received Invoice from Canada,Made 1st Payment to Canada,Received Receipt of 1st Payment,Received Contract Paper from Employer,Sent contract Paper back to Employer duly signed,Received LMO from Canada,Get sponsorship and statenomination,Made 2nd payment to Canada,Received Receipt of 2nd Payment,Candidate applied to Ambesy for visa"
SrHeader.WriteLine(mstrHeaderdata)
SrHeader.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
ElseIf File.Exists("C:\Users\Mil-Dev2\Desktop\" & createHfile) = True Then
Try
Dim SrHeader As StreamWriter = File.CreateText("C:\Users\Mil-Dev2\Desktop\" & createHfile)
mstrHeaderdata = "Srno,Candidate's Name,Date of Intro,VisaType,Mailed details with AF,Received AF and CV from Candidate,Forwarded AF to Canada,Received Retainer from Canada,Sent Retainer back to Canada,Received Invoice from Canada,Made 1st Payment to Canada,Received Receipt of 1st Payment,Received Contract Paper from Employer,Sent contract Paper back to Employer duly signed,Received LMO from Canada,Get sponsorship and statenomination,Made 2nd payment to Canada,Received Receipt of 2nd Payment,Candidate applied to Ambesy for visa"
SrHeader.WriteLine(mstrHeaderdata)
SrHeader.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If

Try
Dim sr As StreamWriter = File.AppendText("C:\Users\Mil-Dev2\Desktop\" & createHfile)
Do While dr.Read = True And dtre.Read = True
Cand_name = dr("CandidateName").ToString
Dateofintro = dr("DateOfIntro").ToString
visatype = dr("VisaType").ToString
Step_1 = dtre("Step1").ToString
Step_2 = dtre("Step2").ToString
Step_3 = dtre("Step3").ToString
Step_4 = dtre("Step4").ToString
Step_5 = dtre("Step5").ToString
Step_6 = dtre("Step6").ToString
Step_7 = dtre("Step7").ToString
Step_8 = dtre("Step8").ToString
Step_9 = dtre("Step9").ToString
Step_10 = dtre("Step10").ToString
Step_11 = dtre("Step11").ToString
Step_12 = dtre("Step12").ToString
Step_13 = dtre("Step13").ToString
Step_14 = dtre("Step14").ToString
Step_15 = dtre("Step15").ToString

Yes i have tried with date in quotes but its showing an error, if i dont add quotes then error is not coming but its showing blank output. Below is the complete code

Public Function csvfile()
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + System.AppDomain.CurrentDomain.BaseDirectory + "CI.mdb;Jet OLEDB:Database Password= 123456")
conn.Open()
Dim fromdate, todate As String
Dim Cand_name, dat1, Dateofintro, visatype, Step_1, Step_2, Step_3, Step_4, Step_5, Step_6, Step_7, Step_8, Step_9, Step_10, Step_11, Step_12, Step_13, Step_14, Step_15 As String
fromdate = DateTimePicker1.Value.Date
todate = DateTimePicker2.Value.Date
sqlcmd = "select * from CandidateMaster where DateOfIntro between " & fromdate.Substring(0, 10) & " and " & todate.Substring(0, 10) & ""
cmd = New OleDbCommand(sqlcmd, conn)
dr = cmd.ExecuteReader

sqlprocess = "select * from Process where Process.CandidateID = CandidateMaster.CandidateID"
cmd = New OleDbCommand(sqlprocess, conn)
dtre = cmd.ExecuteReader
maxsrno = 1
createHfile = "CanadianImmgration_Report" & ".csv"
If File.Exists("C:\Users\Mil-Dev2\Desktop\" & createHfile) = False Then
Try
Dim SrHeader As StreamWriter = File.CreateText("C:\Users\Mil-Dev2\Desktop\" & createHfile)
mstrHeaderdata = "Srno,Candidate's Name,Date of Intro,VisaType,Mailed details with AF,Received AF and CV from Candidate,Forwarded AF to Canada,Received Retainer from Canada,Sent Retainer back to Canada,Received Invoice from Canada,Made 1st Payment to Canada,Received Receipt of 1st Payment,Received Contract Paper from Employer,Sent contract Paper back to Employer duly signed,Received LMO from Canada,Get sponsorship and statenomination,Made 2nd payment to Canada,Received Receipt of 2nd Payment,Candidate applied to Ambesy for visa"
SrHeader.WriteLine(mstrHeaderdata)
SrHeader.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
ElseIf File.Exists("C:\Users\Mil-Dev2\Desktop\" & createHfile) = True Then
Try
Dim SrHeader As StreamWriter = File.CreateText("C:\Users\Mil-Dev2\Desktop\" & createHfile)
mstrHeaderdata = "Srno,Candidate's Name,Date of Intro,VisaType,Mailed details with AF,Received AF and CV from Candidate,Forwarded AF to Canada,Received Retainer from Canada,Sent Retainer back to Canada,Received Invoice from Canada,Made 1st Payment to Canada,Received Receipt of 1st Payment,Received Contract Paper from Employer,Sent contract Paper back to Employer duly signed,Received LMO from Canada,Get sponsorship and statenomination,Made 2nd payment to Canada,Received Receipt of 2nd Payment,Candidate applied to Ambesy for visa"
SrHeader.WriteLine(mstrHeaderdata)
SrHeader.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If

Try
Dim sr As StreamWriter = File.AppendText("C:\Users\Mil-Dev2\Desktop\" & createHfile)
Do While dr.Read = True And dtre.Read = True
Cand_name = dr("CandidateName").ToString
Dateofintro = dr("DateOfIntro").ToString
'Dateofintro = dat1.Substring(0, 10)
visatype = dr("VisaType").ToString
Step_1 = dtre("Step1").ToString
Step_2 = dtre("Step2").ToString
Step_3 = dtre("Step3").ToString
Step_4 = dtre("Step4").ToString
Step_5 = dtre("Step5").ToString
Step_6 = dtre("Step6").ToString
Step_7 = dtre("Step7").ToString
Step_8 = dtre("Step8").ToString
Step_9 = dtre("Step9").ToString
Step_10 = dtre("Step10").ToString
Step_11 = dtre("Step11").ToString

I want to use files starting with "QPOI" and ending with ".CSV", there will be many files not only 1 file.
I tried using System.IO, but in vain.

Yes i used Imports System.IO

i am trying to write this but its showing an error without completing my sentence

Dim di As New DirectoryInfo("\Application\")
di.GetFiles("QPOI*.CSV", System.IO.)

Instead of line
chcksite = "QPOI" & Login.ComboBox1.SelectedItem & ".CSV"
i want to select a file starting with QPOI and ending with .CSV

chcksite = "QPOI" & Login.ComboBox1.SelectedItem & ".CSV"
If File.Exists("\Application\" & chcksite) Then
Dim fileRead As New System.IO.StreamReader("\Application\" & chcksite)
Try
headerline = fileRead.ReadLine()
Do
'comboitemcde.Text = ""
oneline = fileRead.ReadLine()
If oneline = "" Then
GoTo DisplayMsg
End If
i = InStr(1, oneline, ",", CompareMethod.Binary)
j = InStr(i + 1, oneline, ",", CompareMethod.Binary)
k = InStr(j + 1, oneline, ",", CompareMethod.Binary)
l = InStr(k + 1, oneline, ",", CompareMethod.Binary)
m = InStr(l + 1, oneline, ",", CompareMethod.Binary)
n = InStr(m + 1, oneline, ",", CompareMethod.Binary)
o = InStr(n + 1, oneline, ",", CompareMethod.Binary)
p = InStr(o + 1, oneline, ",", CompareMethod.Binary)
q = InStr(p + 1, oneline, ",", CompareMethod.Binary)
r = InStr(q + 1, oneline, ",", CompareMethod.Binary)
ponum = Mid(oneline, 1, i - 1)
itemcde = Mid(oneline, m + 1, (n - 1) - m)
txtpono.Text = ponum
itmdesc = Mid(oneline, p + 1, (q - 1) - p)
sitecode = Mid(oneline, i + 1, (j - 1) - i)
qty = Mid(oneline, q + 1, Len(r - q) - 1)
If ponum = txtpono.Text And itemcde = comboitemcde.Text Then
txtitmdesc.Text = itmdesc
txtqty.Text = qty
txtscanqty.Text = 0
txtbalqty.Text = qty
oneline = ""
End If
Loop Until oneline Is Nothing
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
End Try
DisplayMsg:
fileRead.Close()
Else
MsgBox("Please check '" & chcksite & "' file.", MsgBoxStyle.OkCancel)
End If

Using this is also not helpful and yes System.IO is referred

SearchOption is not declared

But SearchOption.AllDirectories is showing an error

Hi,

I want to find QPOI*.CSV file in mobile device i.e path("\Application\") not in system.

Hi,

What is the change you did??

I know that I should use loop, but i dont know to write code for that.
Can you help me with code.

Thanks

Hi,

This is appending text, i also need to insert text.

Hey Sorry but I have not deleted my previous post, I dont know how it got deleted. I was not able to see the answer thats the reason again I posted the same question.

Can you help me here as I am not able to view my previous post's answer.

Thanks

Hi,
Can you help me for Virtual Keyboard using Windows CE

I am not able to delete the next character in a textbox using this code.

Not only on delete button, I think I am coding Virtual Keyboard in a wrong manner......

Your help will be appreciated.

Hi,

Can you help me for Virtual Keyboard using Windows CE

I am not able to delete the next character in a textbox.

Not only on delete button, I think I am coding Virtual Keyboard in a wrong manner......

Your help will be appreciated.

I am using Windows CE, it is for WinCe??

Hey can u please help me for virtual keyboard..........
I am having many doubts to ask........

It is still giving the same error

Yeah I am using Windows Ce

I tried using that code but its showing an error as
"Cannot find PInvoke DLL 'user32'"

Hi,

Thank you, it really works. Can you help me for coding on CAPS Lock button.


Thanks in advance

Hi,

This is in C#, I need in VB.Net. Can you please help.


Thanks in advance.

Hi,

Could you please give me the detail code, actual I have written a code on BACKSPACE button as below
Dim d As New Integer
If whichtxt Then
If TextBox1.Text.Length > 0 Then
d = TextBox1.Text.Length
TextBox1.Text = TextBox1.Text.Remove(d - 1, 1)
End If

But this code is incorrect
I want the code so that it should start delete from the cursor position.

Hi,

Please find the code for some buttons

Private Sub TextBox1_GotFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
Panel1.Hide()
Panel1.Show()
whichtxt = ""
whichtxt = "A"
End Sub

Private Sub TextBox2_GotFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.GotFocus
Panel1.Hide()
Panel1.Show()
whichtxt = ""
whichtxt = "B"
End Sub

Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
If whichtxt = "A" Then
TextBox1.Text = TextBox1.Text & 1
ElseIf whichtxt = "B" Then
TextBox2.Text = TextBox2.Text & 1
ElseIf whichtxt = "C" Then
TextBox3.Text = TextBox3.Text & 1
ElseIf whichtxt = "D" Then
TextBox4.Text = TextBox4.Text & 1
Else
TextBox5.Text = TextBox5.Text & 1
End If
End Sub

Private Sub TextBox3_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.GotFocus
Panel1.Hide()
Panel1.Show()
whichtxt = ""
whichtxt = "C"
End Sub

Private Sub TextBox4_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox4.GotFocus
Panel1.Hide()
Panel1.Show()
whichtxt = ""
whichtxt = "D"
End Sub

Private Sub TextBox5_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox5.GotFocus
Panel1.Hide()
Panel1.Show()
whichtxt = ""
whichtxt = "E"
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
If whichtxt = "A" Then
TextBox1.Text = TextBox1.Text & "a"
ElseIf whichtxt = "B" Then
TextBox2.Text = TextBox2.Text & "a"
ElseIf whichtxt = "C" Then
TextBox3.Text = TextBox3.Text & "a"
ElseIf whichtxt = "D" Then
TextBox4.Text = TextBox4.Text & "a"
Else
TextBox5.Text = TextBox5.Text & "a"
End If
End Sub

Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
If whichtxt = "A" Then
TextBox1.Text = TextBox1.Text & "s"
ElseIf whichtxt = "B" Then
TextBox2.Text = TextBox2.Text & "s"
ElseIf whichtxt = "C" Then
TextBox3.Text = TextBox3.Text & "s"
ElseIf whichtxt = "D" Then
TextBox4.Text = TextBox4.Text & "s"
Else
TextBox5.Text = TextBox5.Text & "s"
End If
End Sub

I tried using your code but its showing an error

"Cannot find PInvoke DLL 'user32'"