Visual Basic

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

The Second EuroCPian Event will be in Brussels on the 4th of September

Can't manage to P/Invoke that Win32 API in .NET? Why not do interop the wiki way!

My Blog

Public Class Form2
    Public dataFromForm1 As String
.
.
.
End Class

Public Class Form2
    Private m_dataFromForm1 As String
.
.
.
    Public Property dataFromForm1() As String
        Get
            Return m_dataFromForm1
        End Get
        Set(ByVal Value As String)
            ' Do some kind of validation of the data.
            ' If the validation tests pass,
            m_dataFromForm1 = Value
        End Set
    End Property
End Class

Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click
        Dim DS As New DataSet()
        Dim Command As String = "SELECT * FROM Database WHERE Number1 = '" & cboNumber1.Text & "' AND Number2 = '" & cboNumber2.Text & "' AND Number3 = '" & cboNumber3.Text & "'"
        Dim Adapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(Command, Connection)
        Dim CMDBuilder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(Adapter)
        Dim I As Integer
        On Error Resume Next
        If cboNumber4.Text = "" Then
            Connection.Open()
            Adapter.Fill(DS)
            For I = 0 To DS.Tables(0).Rows.Count - 1
                cboNumber4.Text = DS.Tables(0).Rows(I).Item(3)
                cboNumber5.Text = DS.Tables(0).Rows(I).Item(4)
                cboNumber6.Text = DS.Tables(0).Rows(I).Item(5)
            Next
        Else
            Adapter.UpdateCommand = CMDBuilder.GetUpdateCommand()
            Adapter.Update(DS.Tables(0))
        End If
End Sub

Imports System.Web.Mail
.
.
.
    Dim Message As New MailMessage()
    Message.To = "someone@whoknowswhere.com"
    Message.From = "me@myhouse.com"
    Message.Subject = "Who cares"
    Message.Body = "I don't know what I'm supposed to say..."
    SmtpMail.SmtpServer = "smtpmailserver.myISP.com"
    SmtpMail.Send(Message)