Click here to Skip to main content
15,887,477 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Win Socket Pin
Socheat.Net21-May-07 21:13
Socheat.Net21-May-07 21:13 
QuestionPath over 260 characters Pin
al96820-May-07 15:12
al96820-May-07 15:12 
AnswerRe: Path over 260 characters Pin
Sathesh Sakthivel20-May-07 15:35
Sathesh Sakthivel20-May-07 15:35 
AnswerRe: Path over 260 characters Pin
Dave Kreskowiak20-May-07 18:05
mveDave Kreskowiak20-May-07 18:05 
QuestionNonlinear Least Squares Curve Fitting Pin
not_starman20-May-07 12:37
not_starman20-May-07 12:37 
AnswerRe: Nonlinear Least Squares Curve Fitting Pin
SamM22-May-07 4:20
SamM22-May-07 4:20 
QuestionCustom Controls With Collections Pin
The ANZAC20-May-07 11:18
The ANZAC20-May-07 11:18 
Questionlistbox saving problem in vb.net Pin
getknr20-May-07 3:51
getknr20-May-07 3:51 
I have two listboxes and 4 buttons to move values from one list box to another listbox and remove items from second listbox.

I am getting values from datbase to the first listbox

btn1--> for to move all items from first listbox to second listbox
btn2--> to move selected items from first listbox to second listbox
btn3--> to remove selected items from second listbox
btn4--> to remove all items from second listbox

now everything is fine.. i completed all the task..

i have one more button to save second listbox values into database.

if i selected one by one and click save.. it works fine..
but if i selected all button and click save.. it does not save into database.

The code is as follows in btnsave_click

Dim cnt As Integer
Dim num As Integer
cnt = ListBox2.Items.Count
For num = 0 To cnt - 1
Dim cmdAdd As New SqlCommand
Dim insertAdd As String = "insert into JOB(JOBNO,PHASENO,USERS,BUILDNO,REVNO,REF,CUSTNAME) values (@JOBNO,@PHASENO,@USERS,@BUILDNO,@REVNO,@REF,@CUSTNAME)"
Dim sqlcmdAdd As New SqlCommand(insertAdd, con)

sqlcmdAdd.Parameters.Add(New SqlParameter("@JOBNO", SqlDbType.NChar, 20))
If TxtJobNo.Text <> "" Then
sqlcmdAdd.Parameters("@JOBNO").Value = Trim$(TxtJobNo.Text)
End If
If CmbPhase.Text <> "" Then
sqlcmdAdd.Parameters.Add(New SqlParameter("@PHASENO", SqlDbType.NChar, 10))
sqlcmdAdd.Parameters("@PHASENO").Value = Trim$(CmbPhase.Text)
' sqlcmdAdd.Parameters("@PHASENO").Value = 0
' sqlcmdAdd.Parameters("@PHASENO").Value = CmbPhase.Items.ToString
End If

'If ListBox2.Items(num).ToString <> "" Then
sqlcmdAdd.Parameters.Add(New SqlParameter("@USERS", SqlDbType.NChar, 50))
'sqlcmdAdd.Parameters("@USERS").Value = Trim$(ListBox2.SelectedItems.Item(num).Text)
'sqlcmdAdd.Parameters("@USERS").Value = Trim$(ListBox2.Items(num).ToString)

' End If


If CboBldgNo.Text <> "" Then
sqlcmdAdd.Parameters.Add(New SqlParameter("@BUILDNO", SqlDbType.NChar, 10))
sqlcmdAdd.Parameters("@BUILDNO").Value = Trim$(CboBldgNo.Text)
End If

'If (CboRevNo.Text) <> "" Then
sqlcmdAdd.Parameters.Add(New SqlParameter("@REVNO", SqlDbType.NChar, 10))
sqlcmdAdd.Parameters("@REVNO").Value = 0
'End If


sqlcmdAdd.Parameters.Add(New SqlParameter("@REF", SqlDbType.NVarChar, 50))
sqlcmdAdd.Parameters("@REF").Value = ""

sqlcmdAdd.Parameters.Add(New SqlParameter("@CUSTNAME", SqlDbType.NVarChar, 75))
sqlcmdAdd.Parameters("@CUSTNAME").Value = ""

sqlcmdAdd.Connection.Open()
sqlcmdAdd.ExecuteReader()
sqlcmdAdd.Connection.Close()
Next
ListBox2.Items.Clear()
AnswerRe: listbox saving problem in vb.net Pin
Dave Kreskowiak20-May-07 4:29
mveDave Kreskowiak20-May-07 4:29 
Questionimplementing thread Pin
balakpn19-May-07 21:52
balakpn19-May-07 21:52 
AnswerRe: implementing thread Pin
Joseph Guadagno20-May-07 4:10
Joseph Guadagno20-May-07 4:10 
Questioninserting values in bounded combobox Pin
Ajeet mittal19-May-07 21:47
Ajeet mittal19-May-07 21:47 
AnswerRe: inserting values in bounded combobox Pin
Dave Kreskowiak20-May-07 4:12
mveDave Kreskowiak20-May-07 4:12 
QuestionOutlook Express Automation Pin
isidor719-May-07 8:17
isidor719-May-07 8:17 
AnswerRe: Outlook Express Automation Pin
Dave Kreskowiak20-May-07 4:10
mveDave Kreskowiak20-May-07 4:10 
AnswerRe: Outlook Express Automation Pin
Sonia Gupta20-May-07 18:52
Sonia Gupta20-May-07 18:52 
QuestionProblem with AxMozillaBrowser !!!!!!! Pin
softwarejaeger19-May-07 6:04
softwarejaeger19-May-07 6:04 
AnswerRe: Problem with AxMozillaBrowser !!!!!!! Pin
MatrixCoder19-May-07 12:31
MatrixCoder19-May-07 12:31 
AnswerRe: Problem with AxMozillaBrowser !!!!!!! Pin
Dave Kreskowiak19-May-07 18:09
mveDave Kreskowiak19-May-07 18:09 
GeneralRe: Problem with AxMozillaBrowser !!!!!!! Pin
softwarejaeger19-May-07 23:12
softwarejaeger19-May-07 23:12 
QuestionCOM+ Pin
sunder vel19-May-07 5:59
sunder vel19-May-07 5:59 
AnswerRe: COM+ Pin
Dave Kreskowiak20-May-07 4:51
mveDave Kreskowiak20-May-07 4:51 
QuestionVB.net Email Client Pin
al96819-May-07 4:22
al96819-May-07 4:22 
AnswerRe: VB.net Email Client Pin
MatrixCoder19-May-07 15:10
MatrixCoder19-May-07 15:10 
QuestionDifference between Debug and Release Folder Pin
Rupesh Kumar Swami19-May-07 4:02
Rupesh Kumar Swami19-May-07 4:02 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.