Comments by LordVovin (Top 17 by date)

this one was autogenerated by entity frameworks. I will edit my question and add the code.

Great! Thank you very very much! Appreciate!

Well, I could fiter DataGrid first to get only row with regarding ID and then select it as a 0 row, but I need DataGrid with all records (management request...).

I will read this for sure. Thank you!

Hi,

I was trying to get the row index first, then get cell value. (for each item as DataRowView in dgMyKaizens.ItemsSource). There was no error when I was trying to get cell value to textbox.

To select row I used:

Dim cel As Integer = item.Item("ID")
' If id = cel Then
' dgMyKaizens.SelectedItem = cel
' dgMyKaizens.ScrollIntoView(item)
' End If

Without any progress on that...

yes, but no connection as well.

for DbNullOrStringValue i have this code:

Public Function DbNullOrStringValue(ByVal value As String) As Object
If String.IsNullOrEmpty(value) Then
Return DBNull.Value
Else
Return value
End If
End Function


but unfortunately - no effect
Thanks!

Hi John,

thanks for your solution. I've done it already :)

My code is like this:

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim con As SqlConnection = New SqlConnection("Data Source=SZYNDLEM2\DHLSERVER;Initial Catalog=TimerTool;Integrated Security=True")
'Dim affectedRows As Integer
If CheckBox1.Checked = True Then
txtInvTcheck.Text = "true"
Else
txtInvTcheck.Text = "false"
End If
If CheckBox2.Checked = True Then
txtAddCheck.Text = "true"
Else
txtAddCheck.Text = "false"
End If
Dim acc As String = Me.txtCountry.Text
Dim tow As String = Me.txtTower.Text
Dim pro As String = Me.txtProcess.Text
Dim ich As String = Me.txtInvTcheck.Text
Dim ach As String = Me.txtAddCheck.Text
Dim usr As String() = Me.txtUserAdd.Text.Split(New [Char]() {","c, "."c, ":"c, CChar(vbTab), CChar(vbCrLf)})
Dim typ As String() = Me.txtCity.Text.Split(New [Char]() {","c, "."c, ":"c, CChar(vbTab), CChar(vbCrLf)})
Dim inv As String() = Me.txtInvoiceAdd.Text.Split(New [Char]() {","c, "."c, ":"c, CChar(vbTab), CChar(vbCrLf)})
Dim add As String() = Me.txtAddActiv.Text.Split(New [Char]() {","c, "."c, ":"c, CChar(vbTab), CChar(vbCrLf)})
If con.State <> ConnectionState.Open Then
con.Open()
'MsgBox("Open")
Else
'MsgBox("Error!!")
End If
For Each user As String In usr
If user.Trim() <> "" Then
For Each Type As String In typ
If Type.Trim() <> "" Then
For Each invo As String In inv
If invo.Trim() <> "" Then
For Each addi As String In add
If addi.Trim() <> "" Then

Dim constr As String = "INSERT INTO tblAdministratorData (TimerAccount, TimerTower, TimerProcess, UserT, CityT, InvoiceType, [Additional], InvoiceCheckT, AdditionalCheckT) VALUES (@Account, @Tower, @Process, @User, @CityT, @Invoice, @Additional, @InvCheck, @AddCheck)"
Dim cmd As SqlCommand = New SqlCommand(constr, con)
cmd.Parameters.AddWithValue("@CityT", DbNullOrStringValue(type))
cmd.Parameters.AddWithValue("@Invoice", DbNullOrStringValue(invo))
cmd.Parameters.AddWithValue("@Additional", DbNullOrStringValue(addi))
cmd.Parameters.AddWithValue("@User", DbNullOrStringValue(user))
cmd.Parameters.AddWithValue("@process", DbNullOrStringValue(pro))
cmd.Parameters.AddWithValue("@Tower", DbNullOrStringValue(tow))
cmd.Parameters.AddWithValue("@Account", DbNullOrStringValue(acc))
cmd.Parameters.AddWithValue("@InvCheck", DbNullOrStringValue(ich))
cmd.Parameters.AddWithValue("@AddCheck", DbNullOrStringValue(ach))
cmd.ExecuteNonQuery()


End If
Next addi
End If
Next invo
End If
Next Type
End If
Next user
con.Close()
MsgBox("Closed, Saved!")
End Sub


Now I'm fighting with DBnull.Value...;/....

for DbNullOrStringValue I have this code:

Public Function DbNullOrStringValue(ByVal value As String) As Object
If String.Is

the thing is that, they're updating it using excel file, which we get from the market (vendor). We have Country, City, Invoice type, activity type, additional type. And there are few records with the data. So I would liek to add data from "excel columns" (for example City) to multiple textbox City, and other data from other columns using metod - Copy Paste ;) After the employee will put all the data into the form, I can see it, and then, I can mamange their work. After my "check" in the form with comboboxes that I mentioned earlier, They will use their version with values that I will assign for them (using user name)...so it's a little bit more complicated ;)

hehe, I'm from Wroclaw :)
Nice to meet you :) - virtually, but always :)
Thank you!

Well, I've made insert into statement with parameters for upload, and it works, but after upload to the database (to the table), I have my form, where I can choose the data from the comboboxes (I will choose Poland for example, then Warsaw, and in third combobox I can see all items for Warsaw), but when I want to change the item in City combobox, they're getn' multiplaying in it...

Okay, not necessary, thank you for your help Mike!

Thank you Mike! okay, so now my questions is, how to put all items from Multiline textbox (it was previously used to fill MySettings with items for the combobox), to table in access? I cannot find any code, how to do that...

thank you in advance!

do you mean, to put all the data to the database and store them, for example in table? (Combobox1 to table1, combobox2 to table2...) and then do make databinding for comboboxes?