Comments by Aman.Jen - CodeProject

Aman.Jen 30-Dec-16 20:56pm View

No exception My Friend

Aman.Jen 30-Dec-16 6:07am View

Thank You So Much

Aman.Jen 7-Jul-13 5:54am View

Hi,
I am using while loop in here..but it still showing just last record..

If dr.HasRows Then

While dr.Read()

TB1.Text = dr.Item("P_id").ToString
TB2.Text = dr.Item("P_Name").ToString
End While
End If

Plz suggest a solution

Thnx

Aman.Jen 6-Jul-13 13:19pm View

plz eleborate...

thnx

Aman.Jen 6-Jul-13 9:27am View

Plz see the code....even this not working...Dont know wat is issue....not showing any error but neither working

Public Sub bindat()
cmd.Connection = cn
Dim id As String = DPList.SelectedItem.Value

cmd.CommandText = "Select Bor_Name,coBor_Name,Loan_type,Loan_Sanc,Sanc_Perd,TotalLoan_Disb,Curt_EMI Curt_ROI,Prinp_Out,EMI_OVdue from Acct_Sum where Bor_Name = '" & DPList.SelectedItem.Value & "'"

cmd.CommandText = "Select Bor_Name,coBor_Name,Loan_type,Loan_Sanc,Sanc_Perd,TotalLoan_Disb,Curt_EMI Curt_ROI,Prinp_Out,EMI_OVdue from Acct_Sum where Bor_Name ='" & id & "'"
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable
cmd.Parameters.AddWithValue("id", DPList.SelectedItem.Value)
da.Fill(dt)

If (dt.Rows.Count > 0) Then
t1.Text = dt.Rows(0)("Bor_Name").ToString()
t2.Text = dt.Rows(0)("coBor_Name").ToString()
t3.Text = dt.Rows(0)("Loan_type").ToString()
t4.Text = dt.Rows(0)("Loan_Sanc").ToString()
t5.Text = dt.Rows(0)("Sanc_Perd").ToString()
t6.Text = dt.Rows(0)("TotalLoan_Disb").ToString()
t7.Text = dt.Rows(0)("Curt_EMI").ToString()
t8.Text = dt.Rows(0)("Curt_ROI").ToString()
t9.Text = dt.Rows(0)("Prinp_Out").ToString()
t10.Text = dt.Rows(0)("EMI_OVdue").ToString()
End If
End Sub

Aman.Jen 6-Jul-13 7:04am View

cn.Open()
cmd.Connection = cn
cmd.CommandText = "Select * from Acct_Sum"
dr = cmd.ExecuteReader
If dr.HasRows Then
dr.Read()
t1.Text = DPList.SelectedItem.Value(dr.Item("Bor_Name"))
t2.Text = DPList.SelectedItem.Value(dr.Item("coBor_Name"))
t3.Text = DPList.SelectedItem.Value(dr.Item("Loan_type"))
t4.Text = DPList.SelectedItem.Value(dr.Item("Loan_Sanc"))
t5.Text = DPList.SelectedItem.Value(dr.Item("Sanc_Perd"))
t6.Text = DPList.SelectedItem.Value(dr.Item("TotalLoan_Disb"))
t7.Text = DPList.SelectedItem.Value(dr.Item("Curt_EMI"))
t8.Text = DPList.SelectedItem.Value(dr.Item("Curt_ROI"))
t9.Text = DPList.SelectedItem.Value(dr.Item("Prinp_Out"))
t10.Text = DPList.SelectedItem.Value(dr.Item("EMI_OVdue"))
End If
cn.Close()

showing error string cannot be converted to integer value

Aman.Jen 6-Jul-13 6:48am View

nope not working ...I want to retrive values in multiple textboxes from columns of sqlDb table on selecteindexchange event of dropdownlist...

Aman.Jen 5-Jul-13 10:44am View

Hi,
I have solved the first part..with code.

cn.Open()
cmd.Connection = cn
cmd.CommandText = "Select * From Acct_Sum"
dr = cmd.ExecuteReader()
If dr.HasRows Then
While dr.Read()
If Not IsDBNull(dr.Item("coBor_Name")) Then
DPList.Items.Add(dr.Item("coBor_Name"))
End If
End While
End If

now stuck with part2..i.e

I want change value of 2 textboxes on selectedIndex of DropDownlist control...

Plz help
Thnx

Aman.Jen 5-Jul-13 9:22am View

yes

Aman.Jen 5-Jul-13 9:06am View

hi..

I have tried this with vb.net as below....but not working

cn.Open()
cmd.Connection = cn
cmd.CommandText = "Select * from Acct_Sum"
Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
Dim ds As DataSet = New DataSet()
da.Fill(ds)
DPList.DataTextField = ds.Tables(0).Columns["coBor_Name"].ToString ----Error : (value type cnnot be coverte to string)
DPList.DataValueField = ds.Tables(0).Columns["coBor_Name"].ToString ----Error : (value type cnnot be coverte to string)
DPList.DataSource = ds.Tables(0)
DPList.DataBind()

Aman.Jen 1-Jul-13 6:23am View

Thnxxx Bro Working Now....you are right path was not correct..:).....And is this PdfStamper is free verison...?

Aman.Jen 30-Jun-13 7:27am View

Thnx guys..whole day I was playing with this stuff...which is not possible..and it is possible only if I create new table....

If I change order of column in design in sql studio ..then it creates connection loss issue ..so again i have to create connection...

thnx Mike Meinz all of you guys..:)

Aman.Jen 30-Jun-13 6:54am View

Okay...then is it possible to add new column to specific position in table instead of creating new table....

Aman.Jen 27-Jun-13 2:43am View

Thnx working now...with response.redirect()..i have passed the target url to it...:)

Aman.Jen 30-May-13 12:18pm View

I want to create an LINQ query to Insert, Update and Delete to SQL from VB.net. I want to write generalize query in class for this stuff.

Aman.Jen 28-May-13 2:43am View

here's my code..... on form

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cmd.Connection = cn
cn.Open()
'cmd.CommandText = "Select * From Customer"
cmd.CommandText = "Insert into Customer(Cust_Num,Cust_Name,Cust_Add,City,State,Pincode,Country,Ph_Res,Mob,email) Values('" & t1.Text & "' , '" & t2.Text & "' , '" & t3.Text & "','" & t4.Text & "','" & t5.Text & "','" & t6.Text & "','" & t7.Text & "','" & t8.Text & "','" & t9.Text & "','" & t10.Text & "')"
cmd.ExecuteNonQuery()
cn.Close()
t1.Text = ""
t2.Text = ""
t3.Text = ""
t4.Text = ""
t5.Text = ""
t6.Text = ""
t7.Text = ""
t8.Text = ""
t9.Text = ""
t10.Text = ""
MessageBox.Show("Data Entered", "Customer Detail")

End Sub

Aman.Jen 28-May-13 2:41am View

can we extend it to Insert Update and delete....

Aman.Jen 28-May-13 2:39am View

Thank you SOOOOOOOOOOOOOOOOOOOOOOO much Bro....:)............Done!!!!!!!!!!!!!

Aman.Jen 28-May-13 2:24am View

Still showing just one record......
Public Sub Nav(ByVal t1 As TextBox, ByVal t2 As TextBox, ByVal t3 As TextBox, ByVal t4 As TextBox, ByVal t5 As TextBox, ByVal t6 As TextBox, ByVal t7 As TextBox, ByVal t8 As TextBox, ByVal t9 As TextBox, ByVal t10 As TextBox, ByVal ds As DataSet) Implements MyInterface.Nav

t1.Text = ds.Tables("Customer").Rows(i).Item(0)
t2.Text = ds.Tables("Customer").Rows(i).Item(1)
t3.Text = ds.Tables("Customer").Rows(i).Item(2)
t4.Text = ds.Tables("Customer").Rows(i).Item(3)
t5.Text = ds.Tables("Customer").Rows(i).Item(4)
t6.Text = ds.Tables("Customer").Rows(i).Item(5)
t7.Text = ds.Tables("Customer").Rows(i).Item(6)
t8.Text = ds.Tables("Customer").Rows(i).Item(7)
t9.Text = ds.Tables("Customer").Rows(i).Item(8)
t10.Text = ds.Tables("Customer").Rows(i).Item(9)

End Sub

Aman.Jen 28-May-13 2:09am View

yups..its working for first record....but for next record showing same record

here's the code..
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If i = len - 1 Then
MessageBox.Show("This ia a Last Record")
Else
i = i + 1
nv.Nav(t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, ds)
End If
End Sub

Aman.Jen 28-May-13 1:22am View

I have written on Btn click event as below...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If i = 0 Then
nv.Nav(t1.Text, t2.Text, t3.Text, t4.Text, t5.Text, t6.Text, t7.Text, t8.Text, t9.Text, t10.Text, ds)
End If
End Sub

-------its shwoing error:--value type cannot be converted to string

Aman.Jen 27-May-13 9:04am View

Windows......

Aman.Jen 27-May-13 8:32am View

I am stuck here ....:( this woking fine i define funtion in same form class but not working with class
i = 0
nv.Nav()
MessageBox.Show("First Record")

-------------------------------------
If i = len - 1 Then
MessageBox.Show("This ia a Last Record")

Else
i = i + 1
nv.Nav()
End If

Aman.Jen 27-May-13 8:03am View

Thanx for replying ...but how wud i write like show next record on button click event..how will call that fuction and wat argument shud be passed then to that function..same for showing previous record

Aman.Jen 27-May-13 7:33am View

Thnx for replying ....Its a single form application

Comments by Aman.Jen (Top 25 by date)