موضوع مهم - نسخة قابلة للطباعة

PHP كود :
Public Class Form1

    Dim cnnString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\phone.mdb;Jet OLEDB:Database Password=jit"
    Dim cnn As New OleDb.OleDbConnection(cnnString)

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        'Reference(COM): Microsoft ADO Ext. 6.0 for DDL and Security '
        Dim cat As New ADOX.Catalog()
        cat.Create(cnnString)
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
        'Recommend: ID (PRIMARY KEY) '
        Dim sql As String = _
              "CREATE TABLE PhoneBook                   " & _
              "  (                                      " & _
              "     ID            COUNTER PRIMARY KEY,  " & _
              "     Name          VARCHAR,              " & _
              "     Phone_Number  VARCHAR,              " & _
              "     Address       VARCHAR               " & _
              "  );                                     "
        Dim cmd As New OleDb.OleDbCommand(sql, cnn)
        If cnn.State <> ConnectionState.Open Then cnn.Open()
        cmd.ExecuteNonQuery()
        cnn.Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
        Dim sql As String = _
            "INSERT INTO [PhoneBook] ( Name, Phone_Number, Address ) " & _
            "                 VALUES (@name,@phone_number,@address ) "
        Dim cmd As New OleDb.OleDbCommand(sql, cnn)
        cmd.Parameters.AddWithValue("@name", TextBox1.Text)
        cmd.Parameters.AddWithValue("@phone_number", TextBox2.Text)
        cmd.Parameters.AddWithValue("@address", TextBox3.Text)

        If cnn.State <> ConnectionState.Open Then cnn.Open()
        cmd.ExecuteNonQuery()
        cnn.Close()
    End Sub

End Class