Visual Basic

2DaveMoon wrote:

I am just a cad designer. Not full time programmer.

2DaveMoon wrote:

office and vba ~= vb6

2DaveMoon wrote:

It's posible.

Christian Graus wrote:

I thought new versions of Office also use .NET ?

2DaveMoon wrote:

A veteran will know it

2DaveMoon wrote:

A veteran will know it.

Private Sub txt1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt1.KeyPress
        Try
            If Not (Char.IsNumber(e.KeyChar) Or Char.IsControl(e.KeyChar)) Then e.Handled = True
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

Dim Save_4 As String = "insert into itemmst (itm_description) values (@itm_description)"
Dim com As SqlCommand = New SqlCommand(Save_4, con)

Dim par As SqlParameter = New SqlParameter("itm_description", SqlDbType.Text, 255, ParameterDirection.Input, False, 0, 0, "itm_description", DataRowVersion.Current, itm_description)
com.Parameters.Add(par)

con.Open()

Dim Trans As SqlTransaction
Trans = con.BeginTransaction
com.Transaction = Trans

Try
    com.ExecuteNonQuery()
    Trans.Commit()

Catch ex As Exception
    If Not Trans Is Nothing Then
        Trans.Rollback()
    End If
    MsgBox(ex.Message)
End Try

con.Close()