搜索
VB2010与access2010Access数据库具有独立性，SQL语句与代码大部分均可以利用VB2010自身功能生成，代码编写量可以缩小到最低。下列实例完成VB2010对ACCESS2010的查询，修改，增加，插入，删除。第一节：１、新建一个窗体应用程序；２、将设计好数据表的Access拷贝到解决方法资源管理器中；３、拷贝后将出现数据集向导，在向导中勾选所有数据表，则可建立包含所有数据表的Dataset数据集；第二节：1、转到数据集设计窗口，右击某个数据集，添加－－查询。此时出现向导，可以勾选Update可以增加一个更新查询。2、在打开的查询设计视图中，编写查询语句。以Access做数据库时，查询的编写与SQLSERVER有较大不同。Access中的数据集查询语句其参数为？号，无变量名称。而SQLSERVER数据集的查询语句中，参数为@开头的字符串所命名的变量名称。3、最后在向导中给这个查询编一个便于理解的名称。4、同样的方法可以添加于数据操作的若干查询。5、注意数据集在产生时，已经默认增加了常规的查询语句（包括选择查询、更新查询、删除查询、追加查询），当这些查询无法满足操作需要时，可以按照上述方法添加查询。6、如果要修改添加的查询，可以选中后右击，然后点击配置进行修改。7、以上的操作实际上是通过向导方式增加数据集的类文件，通过这种方式产生的类的同时还生产了相应的组件，所以后期使用起来更为简单，无需写太多的代码。第三节：1、增加一个按照药品类别的查询，做为后面将用到的GridView控件的数据源。2、在数据集中增加查询，也可以用查询设计器进行。3、可以通过预览来检查查询设计是否正确。第四节：1、在窗体上增加一个ComboBox控件，找到其Items属性，在弹出的视图中，输入数据项。2、在窗体上增加一个DataGridView控件，点开右上角的小三角，设计DataGridView的绑定数据源。设计完成后，窗体自动增加了药品DataSet、药品收费项目BindingSource和药品收费项目TableAdapter三个组件。3、双击ComboBox控件控件，转移到VB设计视图中，在SelectedIndexChanged事件中设计筛选代码。该代码只需要一句。4、生成并运行，检查效果。第五节：１、调整窗体大小，将窗体右侧空出足够的区域。2、从工具箱拖一个容器控件TableLayoutPanel到窗体右侧。3、调整TableLayoutPanel大小，使之基本占满右侧区域。4、点击TableLayoutPanel右上角的小三角，打开TableLayoutPanel行列编辑窗口。5、对TableLayoutPanel行列进行编辑。6、从工具箱中拖三个按钮控件到窗体的右下区域。第六节：１、从工具箱中分别拖一个Label控件和TextBox控件到TableLayoutPanel的第１行的第一列和第二列中。2、同时选择Label控件和TextBox控件，复制这两个控件，然后连续Ctrl+V将控件分别粘贴到后面的七行中。3、同时选中八个Label控件，在属性窗口中设置其Anchor属性使之右对齐。然后同时选中八个TextBox控件，在属性窗口设置其Anchor属性使之占满单元格。第七节：１、设置Label控件的Text。２、设置TextBox控件名称。３、设置Button控件的名称和Text属性。第八节：1、将窗口转移到Form1.vb中，选中DataGridView1控件，然后选中CellClick事件，系统自动产生该事件。２、在该事件中写代码。3、生成并运行程序，查看效果。第九节：1、在Form1.vb窗口中，选中btn新增控件，然后选中Click事件，系统自动产生该事件。2、在该事件中写如下代码：'清空IfString.IsNullOrEmpty(txt药品ID.Text)=FalseThentxt药品ID.Text=txt药品名称.Text=txt药品名称简拼.Text=txt规格.Text=txt处方单位.Text=txt单价.Text=0txt有效.Text=TrueExitSubEndIf'新增UsingadAs药品收费项目TableAdapter=New药品收费项目TableAdapter()DimnAsInteger=ad.Insert(txt药品类别.Text,_txt药品名称.Text,_txt药品名称简拼.Text,_txt规格.Text,_txt处方单位.Text,_CInt(txt单价.Text),_CBool(txt有效.Text))Ifn0ThenMe.药品收费项目TableAdapter.FillBy药品类别(Me.药品DataSet.药品收费项目,ComboBox1.Text)'跳转到最后一条记录DataGridView1.CurrentCell=DataGridView1.Rows(DataGridView1.RowCount-2).Cells(0)txt药品ID.Text=CStr(DataGridView1.CurrentCell.Value)ElseMsgBox(新增失败！)EndIfEndUsing3、生成并运行程序，查看效果。第十节：1、在Form1.vb窗口中，选中btn修改控件，然后选中Click事件，系统自动产生该事件。2、在该事件中写如下代码：IfString.IsNullOrEmpty(txt药品ID.Text)ThenExitSub'更新DimrowindexAsInteger=DataGridView1.CurrentRow.IndexUsingadAsNew药品收费项目TableAdapter()DimnAsInteger=ad.UpdateBy药品ID(txt药品类别.Text,_txt药品名称.Text,_txt药品名称简拼.Text,_txt规格.Text,_txt处方单位.Text,_CInt(txt单价.Text),_CBool(txt有效.Text),CInt(txt药品ID.Text))Ifn0ThenMe.药品收费项目TableAdapter.FillBy药品类别(Me.药品DataSet.药品收费项目,ComboBox1.Text)'跳转到修改记录DataGridView1.CurrentCell=DataGridView1.Rows(rowindex).Cells(0)ElseMsgBox(修改失败！)EndIfEndUsing３、生成并运行程序，查看效果。第十一节：1、在Form1.vb窗口中，选中btn删除控件，然后选中Click事件，系统自动产生该事件。2、在该事件中写如下代码：IfString.IsNullOrEmpty(txt药品ID.Text)ThenExitSub'删除UsingadAsNew药品收费项目TableAdapter()DimnAsInteger=ad.DeleteBy药品ID(CInt(txt药品ID.Text))Ifn0ThenMe.药品收费项目TableAdapter.FillBy药品类别(Me.药品DataSet.药品收费项目,ComboBox1.Text)txt药品ID.Text=txt药品名称.Text=txt药品名称简拼.Text=txt规格.Text=txt处方单位.Text=txt单价.Text=0txt有效.Text=TrueElseMsgBox(删除失败！)EndIfEndUsing３、生成并运行程序，查看效果。