|
hello to everyone
I'm trying to store an ID of a person from a table which is related to another so I wrote a peace of code that takes the names of persons from that table and expandes them on a combobox but when I click on a Save button it does not take the ID of a person to store it on a table which is related.
Here is my code:
Private Sub frmXhirojare_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim ds As New DataSet
Dim conn As SqlConnection = New SqlConnection("Data Source=.;Initial Catalog=dbHyrjaXhirove;Integrated Security=True")
Dim selection As String = "SELECT PartneriID, Emri FROM tblPartneret"
Dim dataadapteri As SqlDataAdapter = New SqlDataAdapter(selection, conn)
dataadapteri.MissingSchemaAction = MissingSchemaAction.AddWithKey
dataadapteri.Fill(ds, "tblXhiro")
ComboBox1.DataSource = ds.Tables("tblXhiro")
ComboBox1.ValueMember = "PartneriID"
ComboBox1.DisplayMember = "Emri"
End Sub
I would be thankful to everyone who takes a minute from his time to explain it to me why when I click to the Save button it does not take the PartneriID in this case and store it on related table.
Qendro
|
|
|
|
|
ComboBox1.Value should contain the person Id.
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
Could You be more specific and tell me where to write Combobox1.Value because in my code I wrote Combobox1.ValueMember = "PartneriID" which I think is the appropriate thing in this case.My problem is that when I click on the Save button it saves all the values through the parameters exept the PersoniID which is represeted by this combobox.
Thank You for your reply and I would be thankful if You put me in a correct road with this problem. 
Qendro
|
|
|
|
|
ValueMember sets where to get the value from. Value is the value that was set. I think you need to do some reading on VB.NET, this is pretty straightforward stuff.
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
|
|
Thanks Mika. But how do I code to insert the new line below Address1 each time?
|
|
|
|
|
For example, loop the array read from the file and insert each element to another array. Also in the loop, check if the string is Address1 and if it is, after insertion to the target array add an extra element for the url (or whatever you wish to add).
If you know the amount of Address1 elements, you can define the target array size before the loop. For example target array length + target array length / 3 (if you always have 3 rows for each person). If you cannot calculate the size beforehand, you can use Array.Resize[^] when needed
|
|
|
|
|
This should be a relatively easy thing to do. If your still stuck, post the code that you have so that we can see what your doing.
Any suggestions, ideas, or 'constructive criticism' are always welcome.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
This is the code I am using; the result is that the insert is placed only in the last line of the text file (not immediately after all occurences of "CBS*TODAY*ZZ*" like I need it to).
Private Sub btnTranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTranslate.Click<br />
MessageBox.Show("you are about to translate file")<br />
<br />
'read the file to find data<br />
Dim sReader As New IO.StreamReader("C:\shadow\moviez_21.txt")<br />
Dim CurrentLine As String<br />
<br />
Dim DataLines As New System.Collections.Specialized.StringCollection<br />
<br />
CurrentLine = sReader.ReadLine<br />
If CurrentLine.StartsWith("CBS*TODAY*ZZ*") = True Then<br />
sReader.ReadToEnd()<br />
End If<br />
sReader.Close()<br />
<br />
'modifying the file<br />
Dim oError As System.IO.StreamWriter<br />
oError = New System.IO.StreamWriter("c:\Shadow\moviez_21.txt", True)<br />
<br />
'text to be inserted always after CBS*TODAY*ZZ*<br />
oError.Write("REF*LU*") ' + file number<br />
oError.Close()<br />
End Sub
Thanks
|
|
|
|
|
Can you explain how you were thinking when writing this? It's not even close to working...
IvanIT wrote: CurrentLine = sReader.ReadLine
If CurrentLine.StartsWith("CBS*TODAY*ZZ*") = True Then
sReader.ReadToEnd()
End If
Here you only read the first line of the file and throw away the rest. Then you just forget about the line that you read, because you never use that for anything.
The comment earlier in the code suggests that you attempt to find a line in the file, but you don't have any loop so the only line that you ever look at is the first one.
IvanIT wrote: oError = New System.IO.StreamWriter("c:\Shadow\moviez_21.txt", True)
Here you open the file for appending, that means that you contine to write at the end of the file.
IvanIT wrote: 'text to be inserted always after CBS*TODAY*ZZ*
oError.Write("REF*LU*") ' + file number
The comment doesn't at all correspond to what you are actually doing. You are writing that string at the end of the file, regardless if you found the string that you were looking for or not.
All the code that you have written could be replaced with just this:
Private Sub btnTranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTranslate.Click
MessageBox.Show("you are about to translate file")
System.IO.File.AppendAllText("c:\Shadow\moviez_21.txt", "REF*LU*")
End Sub
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
I am actually in a better place now with the code below. But here comes my problems:
1. the FileName will change from time to time
2. the myString will always StartsWith SOM*PE*ZZ*, but the last 4 digits will change. How do I make that variable?
Like I said, I have been testing the code below and except for the above 2 issues, its smooth sailing. I would greatly appreciate input in making the tweaks.
Imports System<br />
Imports System.Text<br />
Imports System.Windows.Forms<br />
<br />
Private Sub btnTranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTranslate.Click<br />
<br />
MessageBox.Show("you are about to translate file")<br />
MessageBox.Show("you are about to translate file")<br />
<br />
Dim refNum As String = Me.txtFileNum.Text<br />
Dim FileName As String = "C:\moviez_21.txt"<br />
Dim myString As String = "SOM*PE*ZZ*1041"<br />
<br />
Dim newString As New StringBuilder<br />
newString.Append(My.Computer.FileSystem.ReadAllText(FileName))<br />
newString.Replace(myString, myString & vbNewLine & "TODAY*007*" & refNum & "~")<br />
My.Computer.FileSystem.WriteAllText(FileName, newString.ToString, False)End Sub
|
|
|
|
|
Hm... why are you using a StringBuilder when you are not building a string?
You can use a regular expression to match the line and do the replacement. How about a one-liner:
File.WriteAllText(fileName, Regex.Replace(File.ReadAllText(fileName), "(SOM\*PE\*ZZ\*\d{4})", "$1" + Environment.NewLine + "TODAY*007*" + refNum.ToString() + "~"))
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
Read line the lines using ReadAllLines, then open a StreamWriter on the file and write each line. When you come to the place where you want to add the line, just write it to the StreamWriter.
Despite everything, the person most likely to be fooling you next is yourself.
modified on Monday, January 26, 2009 12:51 PM
|
|
|
|
|
Hi All,
I am trying to dev a small application with login form, but i am not able to unload login form after confirming the user id and password.
Any help will be appreciated.
Thanks in advance.
Regards.
Zanzmera
|
|
|
|
|
me.close for close the form and form_name.show to show form
|
|
|
|
|
Your login form should NOT be your startup form. You applications main form should be the startup, checking to see if a user is logged in, and if not, the main form should create and show a login form.
|
|
|
|
|
Please try to use this code snippet
Sub Main()
Dim splash As New <<your-login-form-name>>
splash.Show()
Do Until isCompleted
System.Windows.Forms.Application.DoEvents()
Loop
splash.Close()
System.Windows.Forms.Application.DoEvents()
System.Windows.Forms.Application.Run(New <<your-main-form-name>>)
Catch ex As Exception
MessageBox.Show(ex.Message, "Sub Main:" + ex.Source, MessageBoxButtons.OK, MessageBoxIcon.Information)
'' Do proper exception handling stuff here
End Try
End Sub
And Insert following code in case of log in successful in <your-login-form>
isCompleted
Me.Close()
Now, Set Sub Main as your startup object in Project properties
Hope I answered your query
|
|
|
|
|
I want to insert data from DateTimePicker to Access database but have error "Data type mismatch in criteria expression"
this is the code
Dim aCon As OleDbConnection
Dim aCmd As OleDbCommand
Dim strCon As String
strAcessFilePath = System.Windows.Forms.Application.StartupPath &; "\rabotnici.mdb"
'create connection with mdb file
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strAcessFilePath & ";User ID=Admin;Password="
aCon = New OleDbConnection(strCon)
aCon.Open()
strQuery = "insert into data_pr values(" + " '" + DateTimePicker1.Value + "'" + ")"
aCmd = New OleDbCommand(strQuery, aCon)
Dim da As New OleDbDataAdapter
da.SelectCommand = aCmd
aCmd.ExecuteNonQuery()
aCon.Close()
access database field format is Date/time
Can You help me thanks
|
|
|
|
|
Instead of concatenating values to sql strings, use parameters. That way you will avoid conversion problems (among many other things such as sql injections etc). Have a look at: OleDbParameter Class[^]
|
|
|
|
|
but this work when access field format is text
|
|
|
|
|
Yes it does and also it can be done for dates and numbers.
Access accepts dates in format #mm/dd/yyyy#. So for example today would be #01/25/2009# (without quotes).
However, I hope that you don't take this shortcut since it's not the proper way to go. I already mentioned sql injections which is prevented by using parameters. To give a few more examples that would be problematic:
- numbers, what if decimal separator is comma (as it is for example in my case). When updating a column you would have for example UPDATE ... SET ColumnName = 49,6 ... This would lead to an error
- text, what if your text contains a quote, for example: UPDATE ... SET ColumnName = 'Guns 'n' Roses'. Error again
- dates, input date is in different format. For example I use 25.1.2009 (Finnish format) etc.
So what I'm trying to say is that it's few more lines of code, but the quality and robustness of your application will greatly improve when you use parameters.
|
|
|
|
|
OK I try to use parameters thanks very much, but are you sure that work
|
|
|
|
|
ivo75 wrote: are you sure that work
See for yourself, that's what they are for
You could try something like this:
...
strQuery = "insert into data_pr values(?)"
aCmd = New OleDbCommand(strQuery, aCon)
aCmd.Parameters.AddWithValue("ColumName", DateTimePicker1.Value)
aCmd.ExecuteNonQuery()
...
|
|
|
|
|
not work give me this error again "Data type mismatch in criteria expression"
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
