Visual Basic.NET How to Program (PDF)

Chapter 19 Database, SQL and ADO .NET 915
74
75 Me.OleDbUpdateCommand1 = _
76 New System.Data.OleDb.OleDbCommand()
77
78 Me.OleDbDeleteCommand1 = _
79 New System.Data.OleDb.OleDbCommand()
80
81 Me.OleDbConnection1 = _
82 New System.Data.OleDb.OleDbConnection()
83
84 Me.OleDbDataAdapter1 = _
85 New System.Data.OleDb.OleDbDataAdapter()
86
87 Me.DataSet1 = New System.Data.DataSet()
88 CType(Me.dgdAuthors, _
89 System.ComponentModel.ISupportInitialize).BeginInit()
90
91 CType(Me.DataSet1, _
92 System.ComponentModel.ISupportInitialize).BeginInit()
93
94 Me.SuspendLayout()
95
96 '
97 ' dgdAuthors
98 '
99 Me.dgdAuthors.DataMember = ""
100 Me.dgdAuthors.Location = New System.Drawing.Point(8, 8)
101 Me.dgdAuthors.Name = "dgdAuthors"
102 Me.dgdAuthors.Size = New System.Drawing.Size(304, 256)
103 Me.dgdAuthors.TabIndex = 0
104
105 '
106 ' OleDbSelectCommand1
107 '
108 Me.OleDbSelectCommand1.CommandText = _
109 "SELECT authorID, firstName, lastName FROM Authors"
110
111 Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
112
113 '
114 ' OleDbInsertCommand1
115 '
116 Me.OleDbInsertCommand1.CommandText = _
117 "INSERT INTO Authors(authorID, firstName, lastName)" & _
118 "VALUES (?, ?, ?)"
119
120 Me.OleDbInsertCommand1.Connection = _
121 Me.OleDbConnection1
122
123 Me.OleDbInsertCommand1.Parameters.Add _
124 (New System.Data.OleDb.OleDbParameter("authorID", _
125 System.Data.OleDb.OleDbType.Numeric, 0, _
126 System.Data.ParameterDirection.Input, False, _
Fig. 19.27 Database access and information display (part 3 of 7).