|
Thank you. The tags do make it alot easier to read.
LWhite
|
|
|
|
|
Why do you declare the x variable as an array? As you are going to use it to reference a string, declare it as a string:
Dim x As String
---
single minded; short sighted; long gone;
|
|
|
|
|
I adjusted my code as follows:
Dim x As String
For i = 0 To arrList2.Count - 1
x = arrList2.Item(i)
strName = arrList2.Item(i)
I now get the qty of data entries in my database equal to the number of names I select in the textbox, but the last entry is blank. If I select 3 names, I get the first 2 database entries with the names, but the last one is blank (name field). It appears the first iteration leaves strName blank.
Thanks again for the assistance.
LWhite
|
|
|
|
|
The code that you have shown is correct, although reading the same value from the array twice into separate variables doesn't look like what you want to do.
The problem that you talk about is in the part of the code that you haven't shown. Unless you show it, I can't tell you much more than that it's wrong...
---
single minded; short sighted; long gone;
|
|
|
|
|
Here are the other relevant parts of my code. I build the textbox entries with the following, which also drops the selected names into the array:
Private Sub lbName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbName.SelectedIndexChanged
editName.Text = Nothing
For i = 0 To lbName.SelectedItems.Count - 1
arrList2.Add(strName)
With arrList2
.ToArray()
End With
editName.Text = editName.Text & lbName.SelectedItems(i) & vbCrLf
strName = lbName.SelectedItems(i) & vbCrLf
Next
End Sub
Here is my complete code that is supposed to create a new database record with each iteration of the name array:
For i = 0 To arrList2.Count - 1
strName = arrList2.Item(i)
x = arrList2.Item(i)
Dim strCommandText As String = "INSERT INTO Orders(OrderDate, DeliverDate, DeliverLocation, Name, Special, Comments, Rate, EMPLID, LoggedIP)" _
& "VALUES('" & strOrderDate & "','" & strDeliverDate & "','" & strDeliverLocation & "','" & strName & "','" & strSpecial & "','" & strComments & "','" & strRate & "','" & strEMPLID & "','" & strLoggedHost & "')"
Dim cmd As New SqlClient.SqlCommand(strCommandText, SqlConnection1)
cmd.ExecuteNonQuery()
Next
Thank you for your assistance.
LWhite
|
|
|
|
|
The code look pretty strange...
Where do you declare the strName variable? You use the strName variable, but you haven't given it any value before using it. You give it a value later in the loop, so it will have a value for the next iteration of the loop, but not for the first iteration. Also, the value that you assign to it in the last iteration will never be used.
You create an array from the items in the list arrList2, but you just throw the array away without doing anything with it. Why?
---
single minded; short sighted; long gone;
|
|
|
|
|
When the form opens, I have a "Dim strName As String" along with other variables. Thank you, you got me thinking and I rearranged my code. It works now. Here is what it looks like now:
Private Sub lbName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbName.SelectedIndexChanged
editName.Text = Nothing
tbEmplid.Text = Nothing
For i = 0 To lbName.SelectedItems.Count - 1
strName = lbName.SelectedItems(i) & vbCrLf '.ToString & vbCrLf
arrList2.Add(strName)
With arrList2
.ToArray()
End With
editName.Text = editName.Text & lbName.SelectedItems(i) & vbCrLf
Next
End Sub
Note: I moved the "strName = lbName.SelectedItems(i) & vbCrLf" line above the "arrList2.Add(strName)" line, instead of being the last line. It sequences through nicely now. I trash the array, is it is only for the record creation and not needed after that.
Thank you again! I hope posting this code will help someone else!
LWhite
|
|
|
|
|
That looks better.
Any variables you can, you should declare locally inside the method, instead of declaring them in the class. Local variables are allocated on the stack, are very inexpensive, and only exist when they are needed. Class variables increases the size of your form object, and they take up memory even when they are not used.
You still have some strange code...
With arrList2
.ToArray()
End With
This does the same as:
Dim s() as String
With attList2
s = .ToArray()
End With
s = Nothing
In other words, the only thing that it does is wasting time and memory resources. You create one array each iteration of the loop, and not any of the arrays are ever used for anything.
---
single minded; short sighted; long gone;
|
|
|
|
|
Dim sql1 As String = "Select (LastName + ', ' + FirstName) As Name, emplid FROM Users ORDER BY LastName"
Dim strCommandText As String = "INSERT INTO Orders(OrderDate, DeliverDate, DeliverLocation, Name, Special, Comments, Rate, EMPLID, LoggedIP)" & "VALUES('" & strOrderDate & "','" & strDeliverDate & "','" & strDeliverLocation & "','" & strName & "','" & strSpecial & "'" & ",'" & strComments & "','" & strRate & "','" & strEMPLID & "','" & strLoggedHost & "')"
Private Sub lbName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbName.SelectedIndexChanged
Dim i As Integer
editName.Text = Nothing
For i = 0 To lbName.SelectedItems.Count - 1
arrList2.Add(lbName.SelectedItems(i))
With arrList2
.ToArray()
End With
editName.Text = editName.Text & lbName.SelectedItems(i) & vbCrLf
Next
i = Nothing
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim i As Integer
Dim r As String
Dim x As String
editComments.Clear()
strComments = editComments.Text
Try
SqlConnection1.Close()
cnn1.Close()
SqlConnection1.Open()
' Create a name array from editName textbox; Used to create a new record for each name
For i = 0 To arrList2.Count - 1
strName = arrList2.Item(i)
x = arrList2.Item(i)
Dim strCommandText As String = "INSERT INTO Orders(OrderDate, DeliverDate, DeliverLocation, Name, Special, Comments, Rate, EMPLID, LoggedIP)" & "VALUES('" & strOrderDate & "','" & strDeliverDate & "','" & strDeliverLocation & "','" & strName & "','" & strSpecial & "'" & ",'" & strComments & "','" & strRate & "','" & strEMPLID & "','" & strLoggedHost & "')"
Dim cmd As New SqlClient.SqlCommand(strCommandText, SqlConnection1)
cmd.ExecuteNonQuery()
Next
Catch eEndEdit As System.Exception
System.Windows.Forms.MessageBox.Show(eEndEdit.Message)
Finally
If strRate = strRateBreakfast Then
MessageBox.Show("Galley orders for BREAKFAST on: " & Now() & " have been successfully entered!", MessageBoxIcon.Information)
ElseIf strRate = strRateDinner Then
MessageBox.Show("Galley orders for DINNER on: " & Now() & " have been successfully entered!", MessageBoxIcon.Information)
End If
SqlConnection1.Close()
cmd = Nothing
End Try
Close()
End Sub
LWhite
|
|
|
|
|
Hi Guys,
I'm facing a problem in serializing a class object in VB.Net. In this case, the
class contains two public properties and an arraylist . Class structure and Code for
serialization are given below. It serializes only the public properties, not the
arraylist. It throws a "System.InvalidOperationException..The type Photos was not
expected. Use the XmlInclude or SoapInclude attribute to specify types that are not
known statically". I have no idea about where to include these attributes... Pls
help..
<br />
<br />
'Class Definition<br />
<br />
<Serializable()> _<br />
Public Class SitePhotos<br />
Private _Outdoordesc As String<br />
Public Property Outdoordesc() As String<br />
Get<br />
Return _Outdoordesc<br />
End Get<br />
Set(ByVal value As String)<br />
_Outdoordesc = value<br />
End Set<br />
End Property<br />
<br />
Private _ShelterEntrance As String<br />
Public Property ShelterEntrance() As String<br />
Get<br />
Return _ShelterEntrance<br />
End Get<br />
Set(ByVal value As String)<br />
_ShelterEntrance = value<br />
End Set<br />
End Property<br />
<br />
'Arraylist to store photo descriptions<br />
<br />
Public _PhotoList As New System.Collections.ArrayList<br />
<br />
Public Sub AddPhoto(ByVal photoObj As Photos)<br />
_PhotoList.Add(photoObj)<br />
End Sub<br />
<br />
Public Sub RemovePhoto(ByVal range As String)<br />
Dim _pht As Photos<br />
'Dim i As Integer<br />
<br />
<br />
For Each _pht In _PhotoList<br />
<br />
If _pht.posRange = range Then<br />
_PhotoList.RemoveAt(_PhotoList.IndexOf(_pht))<br />
End If<br />
<br />
Next<br />
<br />
End Sub<br />
<br />
<br />
Public ReadOnly Property PhotoList() As ArrayList<br />
Get<br />
Return _PhotoList<br />
End Get<br />
End Property<br />
<br />
End Class<br />
<br />
'Structure of each photo description<br />
Public Structure Photos<br />
Public Pos As Integer<br />
Public Desc As String<br />
Public posRange As String<br />
End Structure<br />
<br />
<br />
<br />
'Code for serialization<br />
<br />
Dim extraTypes(0) As Type<br />
<br />
extraTypes(0) = GetType(SitePhotos)<br />
<br />
Dim xSerializer As XmlSerializer = New<br />
XmlSerializer(GetType(GeneralSiteInfo.SitePhotos), extraTypes)<br />
<br />
Dim xWriter As StringWriter = New StringWriter()<br />
<br />
' Since the serialization can exception, we'll encase it in a try/catch<br />
' mechanism, so we can report the error properly<br />
<br />
Try<br />
xSerializer.Serialize(xWriter, objPhotos)<br />
<br />
'xmlSitePhotos is a hidden control to which i can store value. <br />
<br />
_xmlSitePhotos.Value = xWriter.ToString()<br />
<br />
Catch ex As Exception<br />
<br />
MsgBox(ex.ToString())<br />
'MsgBox("Could not serialize Site Photos", MsgBoxStyle.Critical, "Error<br />
Saving Site Photos")<br />
<br />
End Try<br />
<br />
xWriter.Close()<br />
<br />
<br />
thanks,
Sebastian
-- modified at 13:10 Friday 9th February, 2007
|
|
|
|
|
Add this line just before your SitePhotos Class
<Serializable(), Xml.Serialization.XmlInclude(GetType(Photos))> _
|
|
|
|
|
It is working well with the changes you have suggested.
I also have made the following changes:
<br />
<br />
'Class Definition<br />
<br />
<Serializable() , Xml.Serialization.XmlInclude(GetType(Photos))> _<br />
Public Class SitePhotos<br />
Private _Outdoordesc As String<br />
Public Property Outdoordesc() As String<br />
Get<br />
Return _Outdoordesc<br />
End Get<br />
Set(ByVal value As String)<br />
_Outdoordesc = value<br />
End Set<br />
End Property<br />
<br />
Private _ShelterEntrance As String<br />
Public Property ShelterEntrance() As String<br />
Get<br />
Return _ShelterEntrance<br />
End Get<br />
Set(ByVal value As String)<br />
_ShelterEntrance = value<br />
End Set<br />
End Property<br />
<br />
'Arraylist to store photo descriptions<br />
<br />
Public PhotoList As New System.Collections.ArrayList<br />
<br />
Public Sub AddPhoto(ByVal photoObj As Photos)<br />
PhotoList.Add(photoObj)<br />
End Sub<br />
<br />
Public Sub RemovePhoto(ByVal range As String)<br />
Dim _pht As Photos<br />
'Dim i As Integer<br />
<br />
<br />
For Each _pht In _PhotoList<br />
<br />
If _pht.posRange = range Then<br />
PhotoList.RemoveAt(PhotoList.IndexOf(_pht))<br />
End If<br />
<br />
Next<br />
<br />
End Sub<br />
<br />
<br />
End Class<br />
<br />
'Structure of each photo description<br />
Public Structure Photos<br />
Public Pos As Integer<br />
Public Desc As String<br />
Public posRange As String<br />
End Structure<br />
<br />
<br />
<br />
'Code for serialization<br />
<br />
Dim extraTypes(0) As Type<br />
<br />
extraTypes(0) = GetType(SitePhotos)<br />
<br />
Dim xSerializer As XmlSerializer = New<br />
XmlSerializer(GetType(GeneralSiteInfo.SitePhotos), extraTypes)<br />
<br />
Dim xWriter As StringWriter = New StringWriter()<br />
<br />
' Since the serialization can exception, we'll encase it in a try/catch<br />
' mechanism, so we can report the error properly<br />
<br />
Try<br />
xSerializer.Serialize(xWriter, objPhotos)<br />
<br />
'xmlSitePhotos is a hidden control to which i can store value. <br />
<br />
_xmlSitePhotos.Value = xWriter.ToString()<br />
<br />
Catch ex As Exception<br />
<br />
MsgBox(ex.ToString())<br />
'MsgBox("Could not serialize Site Photos", MsgBoxStyle.Critical, "Error<br />
Saving Site Photos")<br />
<br />
End Try<br />
<br />
xWriter.Close()<br />
<br />
<br />
|
|
|
|
|
the button I had in mind is something like a piano key that produces sound when pressed...
First i would like to know d codings on how to play a sound file (winamp) by clicking a button in a vb2003 form........
I might want to have a few of those, each playing a different note, (like button A would play file A)---i have a few files for each note already.I just don't know d coding to play those file in the event button A is pressed.And what if my sound files are all .mdi (MIDI)format??
The nex thing is, once i've pressed buttons A, B and C in sequence, i want it to be saved into the database---and i would like to play d saved sequence from database (sql server) later.So, can any kind soul out there please show me d codings??
Thanx!!
|
|
|
|
|
Bonjour,
1°) j'aimerais savoir comment reconnaître d'avance un répertoire en lecture
seul sans devoir attendre le code erreur de retour en tentative d'écriture
sur celui-ci comme on peut le faire pour savoir si un fichier est système,
archive, lecture, caché.
2°) j'aimerais savoir aussi comment détecter les autorisations (permissions,
comptes autorisés) d'écriture sur un répertoire sans devoir attendre le code
erreur de retour en tentative d'écriture sur celui-ci comme on le fait pour
un fichier.
Cette question est indépendante de la première car le répertoire peut être
en lecture/écriture mais que pour certaines personnes donc inutile d'aller
plus loin s'il est déjà en lecture seul.
j'ai essayé par le code suivant différents tests:
Dim FolderBrowserDialog1 As FolderBrowserDialog = New FolderBrowserDialog()
Dim MyAttr As FileAttribute
If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
MyAttr = GetAttr(FolderBrowserDialog1.SelectedPath)
MsgBox(MyAttr.ToString) 'me retourne Directory
MsgBox(File.GetAttributes(FolderBrowserDialog1.SelectedPath).ToString)
'me retourne Directory
Dim information As System.IO.FileInfo
information =
My.Computer.FileSystem.GetFileInfo(FolderBrowserDialog1.SelectedPath)
MsgBox(information.IsReadOnly) 'me retourne toujours false même si le
répertoire est en lecture seul
End If
d'avance merci à tous
|
|
|
|
|
CP is an English-speaking board, and the French/English babelfish translator isn't doing a good job.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Bonjour - pardonnez/excusez moi, je parle un petite peu de Francais (je suis tres desolate) ...
pour >> 1°) j'aimerais savoir comment reconnaître d'avance un répertoire en lecture seul sans devoir attendre le code erreur de retour en tentative d'écriture sur celui-ci comme on peut le faire pour savoir si un fichier est système, archive, lecture, caché.
regardez http://www.codeproject.com/file/fileinfo.asp[^]
et pour 2°) j'aimerais savoir aussi comment détecter les autorisations (permissions,
comptes autorisés) d'écriture sur un répertoire sans devoir attendre le code
erreur de retour en tentative d'écriture sur celui-ci comme on le fait pour
un fichier.
regardez (peut-être) http://www.devx.com/cplus/Article/16711[^]
essayez svp de parler anglais, ici
'g'
|
|
|
|
|
Load DEnvAparoAtt
With DEnvAparoAtt
If .rsDcmd_OneSubjAtt.State <> 0 Then .rsDcmd_OneSubjAtt.Close
End With
Rpt_SpecificSubjectAtt.Sections(2).Controls(2).Caption = cmb_fac.Text & " ( " & cmb_group.Text & " ) Part-" & cmb_part.Text & " Section ( " & cmb_sec.Text & " ) " & cmb_shift.Text & " " & cmb_Ses.Text & " Student Attendenace For " & Cmb_subject.Text
Rpt_SpecificSubjectAtt.Refresh
If Rpt_SpecificSubjectAtt.Visible = False Then Rpt_SpecificSubjectAtt.Show
i write this code and the data report not show refresh report?
|
|
|
|
|
Hi
I want to use C++ .net based class library in my vb.net project.
there is class library called "CClass" it contain class called "Class1"
i wrote the code in form.vb
Dim obj As New Class1
but it gave me an error " Statement is not valid in a namespace."
guys plz help me.
|
|
|
|
|
|
hai every body,
am using VS 2005 and using vb.net, vb is my code begin, my problem is in one combo box i was given all the months(like Jan 07, Feb 07...........,Dec 10)on the next Text box it should automatically retrieve no of days ie 30 or 31 am trying to write for combo changed event and also combo click event But it wont work. How To Solve my issue Please help
|
|
|
|
|
urtextboxname.text=urcomboboxname.selectedindex.text
or simply write
urtextboxname.text=urcomboboxname.text
|
|
|
|
|
Thanks For Your Reply. But It wont work. could you read my question?
If the combo box value is jan 07 then the next text box would automatically changed to 31, if the combo value is feb 07 then the text box value automatically changed to 28. Is it Possible. Please help me?
|
|
|
|
|
Try starting with:
On selectedindexchanged:
Dim subStr As Integer<br />
If Me.ComboBox2.Text.Contains("jan") Then<br />
subStr = Me.ComboBox2.Text.Substring(Me.ComboBox2.Text.IndexOf("n") + 1, 3)<br />
Me.TextBox1.Text = DateTime.DaysInMonth("20" & subStr, 1)<br />
ElseIf Me.ComboBox2.Text.Contains("feb") Then<br />
subStr = Me.ComboBox2.Text.Substring(Me.ComboBox2.Text.IndexOf("b") + 1, 3) '1. note the change in the letter within the index of<br />
Me.TextBox1.Text = DateTime.DaysInMonth("20" & subStr, 2) '2. note the change in the second part of this daysinmonth.<br />
End If
Do for each month. The subStr part of this code extracts the year, assuming the indexof letter is the last the only one in the month component and also assuming that there is a space between the month and year and that the year is in a 2 number format. Please note that contains() is case sensitive and needs to be specific. If you do the year as 2007 as oppose to 07 then the "20" part must be removed from the daysinmonth part of the code.
Posted by The ANZAC
|
|
|
|
|
yest it so easy
Function MonthDaysNo(cmbstr As String) As Integer
dim str as string
str=left(cmbstr,3)
Select Case str
Case "Jan":
urtxtboxname.text="31"
Case "Feb":
Dim Mydate as DateTime = DateTime.Now
Dim MyString As String = MyDate.ToString("yyyy")
dim yr as integer
yr=cint(Mydate)
If yr Mod 4 Then
urtxtboxname.text = 29
Else
urtxtboxname.text = 28
End If
Case "Mar":
urtxtboxname.text="31"
Case "Apr":
urtxtboxname.text="30"
Case "May":
urtxtboxname.text="31"
Case "Jun":
urtxtboxname.text="301"
Case "Jul":
urtxtboxname.text="31"
Case "Aug":
urtxtboxname.text="31"
Case "Sept":
urtxtboxname.text="30"
Case "Oct":
urtxtboxname.text="31"
Case "Nov":
urtxtboxname.text="30"
Case "Dec":
urtxtboxname.text="31"
End Select
End Function
then in the item change change call this function by passing argument urcombobox.text
|
|
|
|
|
Actually it's even easier
'Date to test
Dim stringDate As String = "sep 07"
'Date object
Dim parsedDate As Date
'If our string is valid date show days in month
If Date.TryParse(stringDate, parsedDate) Then
MsgBox(Date.DaysInMonth(parsedDate.Year, parsedDate.Month))
End If
From what I can tell the 'TryParse' method will except 3 letter abbreviations for the month as well as the full name. It won't except 'sept' however so I hope that's not an issue. If it is you could do it a little differently by making your own enumerator.
Private Function Days(ByVal text As String) As Integer
Dim split As String() = text.Split
'An error could occur so catch it and return -1
Try
Dim month As Integer = [Enum].Parse(GetType(Month), split(0).ToUpper)
Dim year As Integer = CInt("20" & split(1))
Return Date.DaysInMonth(year, month)
Catch ex As Exception
Return -1
End Try
End Function
Private Enum Month
JAN = 1
FEB
MAR
APR
MAY
JUN
JUL
AUG
SEPT
OCT
NOV
DEC
End Enum
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
