Visual Basic

neo_6053 wrote:

Wat key(s) do Programmer press most?

Dim sqlCOn As New SqlConnection("Server=localhost;Database=phxtest;Trusted_Connection=yes")
Dim sqlda As SqlDataAdapter
Dim sqldt As DataSet
Dim sqlFieldCount As Integer
sqlCOn.Open()
Dim SqlCommand As New SqlCommand("select top 0 * from msaspot", sqlCOn)
sqlda = New SqlDataAdapter(SqlCommand)
sqlDt = New DataSet
sqlDa.Fill(sqlDt) ## Here is where it use up the memory ##
sqlDa.Dispose()
sqlFieldCount = sqldt.Tables(0).Columns.Count
sqldt.Clear()
sqldt.Dispose()
SqlCommand.Dispose()
sqlCOn.Close()
sqlCOn.Dispose()

Private Sub DataGrid1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DataGrid1.DragDrop
Dim lbl As String = DirectCast(e.Data.GetData(GetType(String)), String)
Dim Index As Integer

TextBox1.Text = lbl
DataGrid1.BorderStyle = BorderStyle.Fixed3D

Dim pt As Point = DataGrid1.PointToClient(New Point(e.X, e.Y))
Dim hti As DataGrid.HitTestInfo = DataGrid1.HitTest(pt.X, pt.Y)

hitRow = hti.Row
hitCol = hti.Column
If hti.Type = DataGrid.HitTestType.Cell Then
DataGrid1(hti.Row, hti.Column) = lbl
End If

Label6.Text = hitRow
Label7.Text = hitCol
Label9.Text = Me.DataGrid1(hti.Row, 8).ToString()
End Sub

Phantom715 wrote:

DirectCast(e.Data.GetData(GetType(String)), String)

Phantom715 wrote:

DataGrid1(hti.Row, hti.Column) = lbl

Luc Pattyn [Forum Guidelines] [My Articles]

---

Fixturized forever.

---

Public Shared Function CreateInstance(ByVal sFullClassName As String) As Object
     Dim ao As [Assembly], aoName As New AssemblyName
     Dim o As Object
     Try
         aoName.Name = sFullClassName.Substring(0, sFullClassName.LastIndexOf("."))
         ao = [Assembly].Load(aoName)
         o = ao.CreateInstance(sFullClassName, True)
     Catch ex As Exception
         Try
             ExceptionManager.HandleClientException("Exception creating an instance of " & sFullClassName & ".", ex)
         Catch : End Try
         Throw ex
     End Try
     ao = Nothing
     Return o
 End Function

 Public Shared Function CreateInstance(ByVal sAssembly As String, ByVal sClass As String) As Object
     Dim ao As [Assembly], aoName As New AssemblyName
     Dim o As Object
     Try
         aoName.Name = sAssembly
         ao = [Assembly].Load(aoName)
         o = ao.CreateInstance(sAssembly & "." & sClass, True)
     Catch ex As Exception
         'ExceptionManager.PublishException(ex)
         Throw ex
     End Try
     ao = Nothing
     Return o
 End Function

 Public Shared Function CreateInstance(ByVal sFullPathIncludingFileName As String, ByVal sAssembly As String, _
                                       ByVal sClass As String) As Object
     Dim ao As [Assembly], o As Object

     Try
         ao = [Assembly].LoadFrom(sFullPathIncludingFileName)
         o = ao.CreateInstance(sAssembly & "." & sClass, True)
     Catch ex As Exception
         'ExceptionManager.PublishException(ex)
         Throw ex
     End Try

     ao = Nothing
     Return o
 End Function

nlarson11 wrote:

Actually - when you do a loadassembly you don't have to use reflection any longer. It is the same as saying Dim MyObj as new Test. Once you have the object that is returned just access it's properties/fields/methods as before like it was referenced.