Comments by BASSIES - CodeProject

BASSIES 24-Jan-24 10:34am View

Thanks for the reply , i give it a try on different windows machine.

BASSIES 3-Aug-23 5:31am View

Thanks !

BASSIES 5-Feb-19 15:00pm View

Is there a better way , and not from a database.

BASSIES 5-Feb-19 14:58pm View

This is working , find last row but it is slow

Private Sub copyAlltoClipboard()
DataGridView1.SelectAll()
Dim dataObj As DataObject = DataGridView1.GetClipboardContent()
If dataObj IsNot Nothing Then Clipboard.SetDataObject(dataObj)
End Sub
Private Sub copyAlltoClipboard2()
DataGridView2.SelectAll()
Dim dataObj As DataObject = DataGridView2.GetClipboardContent()
If dataObj IsNot Nothing Then Clipboard.SetDataObject(dataObj)
End Sub

Private Sub Crew2()
copyAlltoClipboard()
Dim xlexcel As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
xlexcel = New Excel.Application
xlexcel.Visible = True
xlWorkBook = xlexcel.Workbooks.Open("C:\weg\Verbruik.xlsx")
xlWorkSheet = xlWorkBook.Worksheets(1)

Dim CR As Excel.Range = xlWorkSheet.Cells(37, 1)
CR.PasteSpecial()

Dim lastRow As Integer = xlWorkSheet.UsedRange.Rows.Count

Dim emptyRow As Integer = lastRow + 3

lastRow = xlWorkSheet.UsedRange.Rows.Count
'This is next emptyRow in the sheet
emptyRow = lastRow + 3
copyAlltoClipboard2()

Dim CR1 As Excel.Range = xlWorkSheet.Cells(emptyRow, 1)
CR1.PasteSpecial()

xlWorkBook.SaveAs("C:\weg\Verbruik1.xlsx")
xlWorkBook.Close()
End Sub

BASSIES 22-Jan-19 10:26am View

Thanks Bryian ,

I can remove it if wanted.

BASSIES 22-Jan-19 8:38am View

Bryian ,

Was searching on your hint to look for dataGridView1.SelectedRows

Found this , it works but the text is not seperated with -
Tryed to ajust but no luck

The outcome is BenEricJohn no - between the name's

Dim message As String = String.Empty
For Each row As DataGridViewRow In DataGridView1.Rows
Dim isSelected As Boolean = Convert.ToBoolean(row.Cells("chk").Value)
If isSelected Then
message &= Environment.NewLine
message &= row.Cells("name").Value.ToString()
End If
Next

TextBox1.Text = ("Selected Values" & message)

what do i change here with textBox1.text= (..........

BASSIES 21-Jan-19 7:47am View

I can't start the debug because of the error on names

the error is

List(Of String)' cannot be converted to 'String()

BASSIES 20-Jan-19 9:23am View

Found another converter

Dim names As List(Of String) = New List(Of String)
For Each r As DataGridViewRow In DataGridView1.Rows
Dim isSelected As Boolean = Convert.ToBoolean(r.Cells("Chk").Value)
If isSelected Then
names.Add(r.Cells("Product").Value.ToString)
End If

Next
MessageBox.Show(String.Join(" - ", names))

Get an error on names
List(Of String)' cannot be converted to 'String()

BASSIES 20-Jan-19 7:04am View

Thanks for your answer Bryian , but i can't transform the code to vb.net.

There is an error

Error converting code
Error message:
CONVERSION ERROR: Conversion for IncompleteMember not implemented, please report this issue in '(DataGridViewRow r ' at character 88

BASSIES 13-Jan-19 8:58am View

Thanks Richard

BASSIES 10-Jan-19 3:03am View

Thanks Wendelius , just what i was looking for.

BASSIES 9-Jan-19 16:59pm View

cmd = New SqlCeCommand("Select Id, Name FROM Product WHERE Name <>''", con)
If con.State = ConnectionState.Closed Then con.Open()
Dim sdr As SqlCeDataReader = cmd.ExecuteReader()
While sdr.Read = True
TextBox5.Text = (sdr.Item("Name"))
End While
sdr.Close()

This is only showing the last item

BASSIES 31-Dec-18 4:55am View

Patrice T,

Like this ?

cmd = New SqlCeCommand("UPDATE Cijfers Set Kg= @Kg Where Id = @Id", con)
If con.State = ConnectionState.Closed Then con.Open()
cmd.Parameters.Add("@Id", SqlDbType.NVarChar).Value = Cijfersid.Text
cmd.Parameters.Add("@Kg", SqlDbType.Decimal).Value = Kg.Text
cmd.ExecuteNonQuery()

BASSIES 30-Dec-18 15:44pm View

Thanks OriginalGriff and Patrice T ,

Learned al lot with this question, i must read more about SQL Injection.

Now it was a litte thing to change the update so early in my programm.

BASSIES 29-Dec-18 17:32pm View

This is working or am i reading it wrong about sql injection.

A different example with a column in Nvarchar , where it crased before and now it is saving

cmd = New SqlCeCommand("UPDATE Gevaren Set Vertrekvaren = @Vertrekvaren Where Id='" & Gevarenid.Text & "'", con)
If con.State = ConnectionState.Closed Then con.Open()
cmd.Parameters.Add("@Vertrekvaren", SqlDbType.NVarChar).Value = Vertrekvaren.Text
cmd.ExecuteNonQuery()

BASSIES 29-Dec-18 16:42pm View

OriginalGriff ,

You are wright also , but i was focused on the update and didnot understand SQL Injection.

And Yes i have a problem

BASSIES 29-Dec-18 16:38pm View

Thanks for the warning,

And it crased , do you have an example ho i update this .

Reading something about it but can't really figure it out what to change.

cmd = New SqlCeCommand("Update Gegevens Set Kg ='" & Kg.Text & "' Where Id='" & Gegevensid.Text & "'", con)

BASSIES 29-Dec-18 9:56am View

Hello ,

Found something after your answer , I write it to the database as Decimal with a comma

Get the value from the database and it is with a comma . Fine that is how i want to see it in the textbox.

When i Update i have to use a dot ?

Dont know why but i works.

Never have to do that with a dot , maybe i am using the 2017 version now ?

Thanks.

BASSIES 29-Dec-18 8:56am View

Hello,

The input of the textbox is for example 14,025

This is Decimal with 3 behind the comma

What am i missing

BASSIES 20-Dec-15 6:37am View

Or anyone has another code to fill the chartcontrol with data from textboxes

BASSIES 31-Aug-11 4:55am View

Thanks ,

But i don't know very much about Function's.

How do i put this in my code ? and where.

Comments by BASSIES (Top 21 by date)