Comments by BeginnerCoderPete (Top 47 by date)

The query is timing out but it's definatly a nudge in the right direction i think which i appreciate greatly. I have also put SELECT TOP (10) aswell but still times out which is odd.

Your right that was my mistake that table doesn't have fkCommunicationsLog. My mistake.

I was thinking the highest pkCommunicationLogSteps linked to the log would get me the latest step on that log.

tblCommunicationsLogs
pkCommunicationLog
fkCustomer

tblCommunicationLogSteps
pkCommunicationLogStep
fkCommunicationLog <-- linked to pkCommunicationLog
strCommunicationLogStep

tblCustomers
pkCustomer <-- linked to fkCustomer
strCustomerName

OK, thank you very much.

It's quite a large application and i wanted a way of having a way so i could just adjust in one place whenever i need to.

Thank you, I was thinking today i kind of got off track from my original question and would still like an answer to it, so thank you for that!!

I will have to really sit down and read through. I can't find where he is creating them and attaching them to anything at a glance. I still have the feeling it's a little beyond me aswell at the moment :( reading through it seems overwhelming.

Didn't see this reply at first, Thank you.

There doesn't seem to an awful lot of help on Google for creating new Adorners on WinForms. I will kep looking into it of course, but seems slightly beyond me at this moment in time.

Thank you that makes so much sense. If i can attach one to my Synrad Object i'll be laughing, i will report back when i have either done it or failed. Really appreciate your help! Thank you.

Just depends weather or not the Object can have an Adorner.

I am using Winforms not WPF, Or is adorning still possible on Winforms?

Right OK, i will have a look at 'adorning' it is a term i haven't come across yet so not exactly sure but i have a rough idea and i think i have had the idea but then no idea how to go about it. I will look it up, Thank you for the advice.

I have been in contact with Synrad and the representative i was speaking to is aware there is no click events or mouse events for the control, his explanation was that it's only really used for previewing the image to be etched. Although all the methods are there to select and move individual objects.

If i just had some way to detect a click on the control i could go from there but unfortunately there is no way, or so i am told.

So my alternative was to use buttons, i just wanted better than 1 move per click. I have an option to increase the distance the object moves per click but i would still prefer to just be able to hold the button down if i wanted to move an object far.

Unfortunately the Objects i am moving are on a control that has no click event or Mouse Events at all actually other than 'MouseCaptureChanged' which doesn't actually work on the part of the control i need. If it helps it is a Synrad WinMark Pro ActiveX control.

I am able to select objects and move them through code, so this is why i am having to use buttons to move them about the page.

The problem is though that Table Adaptors don't have a base class so I can't do what I'd normally do and say (ta as TableAdaptor) so I was trying to find another way. I thought maybe pass the name through as a string then somehow find the table adaptor with an name that matches. I ran into difficulties there too.

Is it possible to pass a TableAdaptor from my Form to the Module?

Ok :) thank you, for your reply

Excellent, Thank you!

I ran this past my IT manager when i got back to work and he came up with this

    Private Sub CreateChild1(Of TForm As {Form, New})(intVariableName As String, intVariableValue As Integer)
        Dim frmChild As New TForm()
        frmChild.MdiParent = My.Forms.frmNavigation
        CallByName(frmChild, intVariableName, CallType.Set, intVariableValue)
        frmChild.Show()
        frmChild.Tag = My.Forms.frmNavigation.intTabCounter
        frmChild.FormBorderStyle = FormBorderStyle.None
        frmChild.ControlBox = False
        frmChild.MaximizeBox = False
        frmChild.MinimizeBox = False
        frmChild.ShowIcon = False
        frmChild.Text = ""
        frmChild.Dock = DockStyle.Fill
    End Sub

The CallByName() part is what he has used to pass the value through. I just wondered if this was alright really, as it's different to your suggestion.

Thank you for your reply, at the moment i'm finding it difficult to get my head around so i will have to spend sometime reading up on this. Really appreciate the help.

I have a public variable on the form i am opening as a child, would it be possible to also pass that into this sub to pass to the child form that's created?

Excellent, thank you very much.

I seem to be getting an error on ,New) saying it is not a valid identifier. I am currently reading through the link you provided. Thank you

Ah ok, so hopefully 99% of things are going to be showing then, i haven't missed a checkbox in the options somewhere. Doesn't seem like a big fix to make but we'll see

I am doing nothing different to you other than i am on VS2017 Community.

It works fine when typed, and after i type 'OwningColumn' i get the intellisense for 'OwningColum' but i just do not get 'OwningColumn' in the Intellisense for CurrentCell

What i'm saying is as soon as i put the . after CurrentCell `OwningColumn` is not in the list. I know the code works fine but i am wondering why it does not appear in intellisense for me, is there an advnced option to 'Show All Properties' in intellisense or something?

Because i wonder what else might not be showing up.

I'm on VS2017 Community

Sorry what i mean is `OwningColumn` doesn't show as a property for CurrentCell yet it is one.

If DataGridView1.CurrentCell.OwningColumn.Name = "Dog" then
 'Whatever
End if

works fine. No amount of restarts has made it show up.

Oh OK, yeah I completely agree.

What do you mean?

Public Sub SqlSelectTimesAwaitingApproval(dgv as datagridview, listOfEmployees As List(Of integer))

Dim con As New SqlConnection(My.Settings.AlphaCureCRMConnectionString)
Dim cmd As New SqlCommand()
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable
Try
cmd.Connection = Con
cmd.CommandText = "SELECT * FROM tblAttendanceTimes WHERE intApprovedOvertime = 0 AND fkEmployee = @Employee"
cmd.Parameters.Add("@Employee", SqlDbType.Int)
For Each intId As Integer In listOfEmployees
cmd.Parameters("@Employee").Value = intId
con.Open()
da.Fill(dt)
con.Close()
Next
Catch ex As Exception
MsgBox(Ex.Message)
Finally
da.Dispose()
cmd.Dispose()
dgv.DataSource = dt
End Try
End Sub

Any better?

Thank you

Ah OK, Fortunately it would never reach even more than 50 times really in this case but for sure thanks for the advice, always better to imagine it's being done on a massive scale. I'm all for optimization.

I wasn't sure how to create the parameters outside of the loop to be honest.
Out of curiosity what is wrong with clearing the parameters?

Thank you, i have managed to sort it out now, using the cmd.parameters.clear before it loops again.

Thanks for your help.

Yes this seems to of helped me so far, i should be able to work out the rest from here i hope.

{ Dim con As New SqlConnection(My.Settings.AlphaCureCRMConnectionString)
Dim cmd As New SqlCommand()
Dim ds As New DataSet
Try
cmd.Connection = Con

For Each intId As Integer In listOfEmployees
Con.Open()
cmd.Parameters.Add("@EmployeeID", SqlDbType.Int).Value = intId
cmd.CommandText = "SELECT * FROM tblAttendanceTimes WHERE intApprovedOvertime = 0 AND fkEmployee = @EmployeeID"
Dim da As New SqlDataAdapter(cmd)
da.Fill(ds, "Table")
da.Dispose()
con.Close()
Next
cmd.Dispose()
Dgv.DataSource = ds.Tables("Table")
ds.Dispose()
Catch ex As Exception
MsgBox(Ex.Message)
Finally
Cmd.Dispose()
End Try}

That is how i have it now but now i'm getting the error 'Variable name has been declared' but hopefully i'll get there from here. Thank you. So far this seems to of helped.

The title is the error message i am receiving from this piece of code. I add the parameter then create the command same as all my other SQL queries but for some reason it's giving me this error.