Tres problemas Acces 2007 con C++.NET

[domanion]

necesito

1. Validar usuario
2. imprimir
3. actualizar base de datos

para el primero navegando aqui encontre esto

Iniciado por Avellaneda

Prueba así:

Código vb.net:

Imports System.Data.SqlClient
 
Public Class LoginForm1
    Dim cont As Int32 = 0
    ' conexión a una BD SQLExpress
    Dim con As New SqlConnection("Server=.\SQLEXPRESS;Integrated Security=True;Database=BaseSQL")
 
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If VerificarUsuario(UsernameTextBox.Text, PasswordTextBox.Text) Then
            ' correcto, salimos a True
            EsOk = True
            Me.Close()
        Else
            ' le damos 4 intentos y si no, salimos a False
            MsgBox("Usuario o contraseña incorrectos" & vbNewLine & "Quedan " & 3 - cont & " intentos")
            cont += 1
        End If
        If cont = 4 Then Me.Close()
    End Sub
 
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub
 
    Private Function VerificarUsuario(ByVal ElUser As String, ByVal ElPass As String) As Boolean
        Dim dr As SqlDataReader
        Dim strSQL As String = "SELECT * FROM Usuarios Where Nombre = '" & ElUser & "' And Pass = '" & ElPass & "'"
        con.Open()
        Dim cmd As New SqlCommand(strSQL, con)
        dr = cmd.ExecuteReader
        dr.Read()
        If dr.HasRows = True Then Return True
        con.Close()
    End Function
End Class
 

En el Load del form de inicio:

Código vb.net:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Show() ' si quieres mostrar el Login dentro del Form de inicio
        LoginForm1.ShowDialog()
        If EsOk = False Then End
 
' ....instrucciones de inicio
 
End Sub
 

pero es para VB.NET y SQL
me podria ayudar a traducirlo a C++.NET y ACces 2007


y para guardar registros en talblas encontre esto

Código VB.NET:

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim mitabla As New DataTable
        mitabla = DataSet11.Tables("Tabla1")
        Dim nfila As DataRow
        nfila = mitabla.NewRow
        nfila.Item(0) = "Expr1"
        nfila.Item(1) = "Expr2"
        nfila.Item(2) = "Expr3"
        nfila.Item(3) = "Expr4"
        mitabla.Rows.Add(nfila)
        Button4.PerformClick()
    End Sub
 

pero tambiene s de VB y necesito C++

y para imprimir aun no he encontrado algo
ayuda porfavor plis