VB6.0 提交到access2003表里,该怎么解决
VB6.0 提交到access2003表里
5月1日 2组 st0008 黑色 L 80
5月1日 3组 st0008 红色 M 90
5月1日 2组 st0008 白色 M 30
5月1日 2组 st0008 白色 M 30
5月1日 4组 st0009 蓝色 M 30
上面的记录
VB 里不知道如何去把这些数据提交到access2003里面
请高手们指教一下！
最好的有视频这样的，网上的找了找都不全呀！ 兄弟很急
------解决方案--------------------
access+ado+flexgrid实例
我用的是Access 2003，因为需要讲解的仅仅是数据的添加、修改及删除，因此单数据库、单表就够了。如果以后您要编写更复杂一些的信息管理系统而涉及到多表操作，则您还需要补充一些关系数据库方面的知识，比如实体、一对一联系、一对多联系等等；此外，对sql语言也需要有所了解。具体您可以参考：数据库基础知识ABC。
首先，在“我的电脑”的e盘新建一个名为vb文件夹，先打开Access，新建一个名为Access_db的数据库（Access数据库文件的扩展名是.mdb（2007不是）），保存到刚才建立的文件夹中，则以后在程序中调用数据源的位置为E:\vb\Access_db.mdb。
然后在Access_db.mdb中建立一个名为wzdz的表（wzdz是“网站地址”的首字母缩写）, 然后在wzdz表中添加网站名称、网站地址及网站描述三个字段，三个字段的属性是相同的，如下：
▲数据类型：文本。
▲字段大小：50
▲有效性规则：无。
▲必填字段：否
▲允许空字符串：否
▲索引：无
“编号”这个字段使用的是Access的自动编号，并将其作为主键。也就是说，您在表中设置以上三个字段即可，设置完毕保存表时，按Access的提示添加主键，Access会自动为您搞定。具体操作您可以参考：vb神童教程(续)--vb连接Access数据库实例
这样在建立了数据库及表结构之后，即使是调用没有记录的空库，系统也可以无差错运行，可以在运行时通过“添加记录”按钮向数据库中添加记录。不过由于数据库是空的，系统第一次运行时数据显示控件没有数据可显示，显得空荡荡的，不太美观哦。为了方便起见，我们在Access中给wzdz表中预先添加两条初始记录：
二、设计界面
本系统是一个很简单的数据库操作实例，能够对数据库的添加、修改及删除记录这几个基本的操作。系统使用数据显示控件MSHFlexGrid显示数据库中的记录，使用数据链接控件Adodc链接数据库作为MSHFlexGrid的数据源，使用文本框来接收系统运行时用户输入的数据。
步骤如下：
一、启动vb6，新建一个标准exe工程，并将工程中的form1的caption属性设置为“编程入门网网址管理系统”，width属性值设为7950，height属性值设为4620。
二、向窗体中添加一个Adodc控件。如果在工具箱中找不到Adodc控件，可以右击工具箱，选择“部件...”菜单项，然后在“部件”窗口的“控件”选项卡中选中“Microsoft ADO Data Control6.0(OLEDB)”。（ADODC）
） 在VB的属性窗口我们对Adodc控件的三个个属性值进行编辑，其余属性值使用默认的即可：
1、ConnectionString属性值设为：Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb\Access_db.mdb;Persist Security Info=False
这个属性设置了连接Access_db.mdb这个数据库。
2、RecordSourc属性值设为：select * from wzdz
这个属性值中的sql语句的作用是查询出wzdz表中的所有记录。
3、Visible属性值设为False，作用是使其在运行时不可见。
三、向窗体添加一个MSHFlexGrid控件，（延伸）如果工具箱中没有MSHFlexGrid控件，可以右击工具箱，选择“部件...”菜单项，然后在“部件”窗口的“控件”选项卡中选中“Microsoft Hierarchical FlexGrid Control 6.0 ”。然后在vb的属性窗口中将MSHFlexGrid控件的名称修改为MS1，如下图：
然后对MSHFlexGrid控件进行如下设置：
1、DataSource属性：在vb的属性窗口中将其值设为Adodc1，即使用Adodc控件作为MSHFlexGrid控件数据源。
2、BackColorBkg属性：在vb的属性窗口中将其值设为&H00FFE0E0&，这是设置的MSHFlexGrid控件的底色。
3、BackColorFixed属性：在vb的属性窗口中将其值设为&H00C0FFFF&，这是设置的MSHFlexGrid控件的显示标题的底色。
4、width属性：在vb的属性窗口中将其值设为7695.
5、Height属性：在vb的属性窗口中将其值设为2175.
6、右击MSHFlexGrid控件，在弹出的菜单中选“属性”，在弹出的“属性页”对话框的在“通用”选项卡中修改行为4，修改列为4，修改固定行为0，修改固定列为0。如果数据链接正常，在“属性页”对话框的“带区”选项卡中可以看到列标题和列名称已经设置了，这里注意应该将“带区”选项卡中的“列标头”选项勾选上，否则运行时无法显示列标题，如下图。“属性页”对话框的其它部分使用默认值即可。
四、向窗体中添加4个Label控件（标签），在vb的属性窗口为它们设置以下属性：
1、caption属性：分别设置为网站名称、网站地址、网站描述及编号。
2、Alignment属性：均设为“2-Center”。
3、AutoSize属性：均设为True。
五、向窗体中添加4个TextBox控件（文本框），并调整它们的位置成一排与4个标签相对应，即：网站名称→Text1，网站地址→Text2，网站描述→Text3，编号→Text4。
六、向窗体中添加4个CommandButton控件（命令按钮），将它们的caption属性分别设置为“添加记录”、“修改记录”、“删除记录”和“退出系统”，并调整它们的位置成一排，放在文本框的下方。
七、在两排文本框和命令按钮中间，添加一个Line控件，适当拖动其两端的控制点将长短调整至适当，并将其BorderColor属性性设为&H00C00000&，作用是把文本框和命令按钮隔开，这样在视觉上似乎能好看些。
八、所有控件设置完毕后，界面如下图所示：
三、为对象添加事件代码。
一、form1的load事件代码：
Private Sub Form_Load()
Form1.MS1.ColWidth(0) = 600 ' 控件名.ColWidth(I) 控件的第（I+1）列宽
Form1.MS1.ColWidth(1) = 1000
Form1.MS1.ColWidth(2) = 2300
Form1.MS1.ColWidth(3) = 4000
Form1.Text1.Text = ""
Form1.Text2.Text = ""
Form1.Text3.Text = ""
Form1.Text4.Text = ""
End Sub
主要是在系统初始化时设置MSHFlexGrid控件的列宽，并将文本框置空。
二、“添加记录”按钮(command1)的click事件代码：
Private Sub Command1_Click()
Dim sc As Integer
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
'即网站名称、网站地址和网站描述的内容必须填全了才打开数据库连接写入数据
'由于系统数据库设计为“编号”字段采用的是Access的自动编号
'因此在添加记录时不接收编号的数据，由Access自动加编号
MsgBox ("请输入完整的网站信息")
Else
5月1日 2组 st0008 黑色 L 80
5月1日 3组 st0008 红色 M 90
5月1日 2组 st0008 白色 M 30
5月1日 2组 st0008 白色 M 30
5月1日 4组 st0009 蓝色 M 30
上面的记录
VB 里不知道如何去把这些数据提交到access2003里面
请高手们指教一下！
最好的有视频这样的，网上的找了找都不全呀！ 兄弟很急
------解决方案--------------------
access+ado+flexgrid实例
我用的是Access 2003，因为需要讲解的仅仅是数据的添加、修改及删除，因此单数据库、单表就够了。如果以后您要编写更复杂一些的信息管理系统而涉及到多表操作，则您还需要补充一些关系数据库方面的知识，比如实体、一对一联系、一对多联系等等；此外，对sql语言也需要有所了解。具体您可以参考：数据库基础知识ABC。
首先，在“我的电脑”的e盘新建一个名为vb文件夹，先打开Access，新建一个名为Access_db的数据库（Access数据库文件的扩展名是.mdb（2007不是）），保存到刚才建立的文件夹中，则以后在程序中调用数据源的位置为E:\vb\Access_db.mdb。
然后在Access_db.mdb中建立一个名为wzdz的表（wzdz是“网站地址”的首字母缩写）, 然后在wzdz表中添加网站名称、网站地址及网站描述三个字段，三个字段的属性是相同的，如下：
▲数据类型：文本。
▲字段大小：50
▲有效性规则：无。
▲必填字段：否
▲允许空字符串：否
▲索引：无
“编号”这个字段使用的是Access的自动编号，并将其作为主键。也就是说，您在表中设置以上三个字段即可，设置完毕保存表时，按Access的提示添加主键，Access会自动为您搞定。具体操作您可以参考：vb神童教程(续)--vb连接Access数据库实例
这样在建立了数据库及表结构之后，即使是调用没有记录的空库，系统也可以无差错运行，可以在运行时通过“添加记录”按钮向数据库中添加记录。不过由于数据库是空的，系统第一次运行时数据显示控件没有数据可显示，显得空荡荡的，不太美观哦。为了方便起见，我们在Access中给wzdz表中预先添加两条初始记录：
二、设计界面
本系统是一个很简单的数据库操作实例，能够对数据库的添加、修改及删除记录这几个基本的操作。系统使用数据显示控件MSHFlexGrid显示数据库中的记录，使用数据链接控件Adodc链接数据库作为MSHFlexGrid的数据源，使用文本框来接收系统运行时用户输入的数据。
步骤如下：
一、启动vb6，新建一个标准exe工程，并将工程中的form1的caption属性设置为“编程入门网网址管理系统”，width属性值设为7950，height属性值设为4620。
二、向窗体中添加一个Adodc控件。如果在工具箱中找不到Adodc控件，可以右击工具箱，选择“部件...”菜单项，然后在“部件”窗口的“控件”选项卡中选中“Microsoft ADO Data Control6.0(OLEDB)”。（ADODC）
） 在VB的属性窗口我们对Adodc控件的三个个属性值进行编辑，其余属性值使用默认的即可：
1、ConnectionString属性值设为：Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb\Access_db.mdb;Persist Security Info=False
这个属性设置了连接Access_db.mdb这个数据库。
2、RecordSourc属性值设为：select * from wzdz
这个属性值中的sql语句的作用是查询出wzdz表中的所有记录。
3、Visible属性值设为False，作用是使其在运行时不可见。
三、向窗体添加一个MSHFlexGrid控件，（延伸）如果工具箱中没有MSHFlexGrid控件，可以右击工具箱，选择“部件...”菜单项，然后在“部件”窗口的“控件”选项卡中选中“Microsoft Hierarchical FlexGrid Control 6.0 ”。然后在vb的属性窗口中将MSHFlexGrid控件的名称修改为MS1，如下图：
然后对MSHFlexGrid控件进行如下设置：
1、DataSource属性：在vb的属性窗口中将其值设为Adodc1，即使用Adodc控件作为MSHFlexGrid控件数据源。
2、BackColorBkg属性：在vb的属性窗口中将其值设为&H00FFE0E0&，这是设置的MSHFlexGrid控件的底色。
3、BackColorFixed属性：在vb的属性窗口中将其值设为&H00C0FFFF&，这是设置的MSHFlexGrid控件的显示标题的底色。
4、width属性：在vb的属性窗口中将其值设为7695.
5、Height属性：在vb的属性窗口中将其值设为2175.
6、右击MSHFlexGrid控件，在弹出的菜单中选“属性”，在弹出的“属性页”对话框的在“通用”选项卡中修改行为4，修改列为4，修改固定行为0，修改固定列为0。如果数据链接正常，在“属性页”对话框的“带区”选项卡中可以看到列标题和列名称已经设置了，这里注意应该将“带区”选项卡中的“列标头”选项勾选上，否则运行时无法显示列标题，如下图。“属性页”对话框的其它部分使用默认值即可。
四、向窗体中添加4个Label控件（标签），在vb的属性窗口为它们设置以下属性：
1、caption属性：分别设置为网站名称、网站地址、网站描述及编号。
2、Alignment属性：均设为“2-Center”。
3、AutoSize属性：均设为True。
五、向窗体中添加4个TextBox控件（文本框），并调整它们的位置成一排与4个标签相对应，即：网站名称→Text1，网站地址→Text2，网站描述→Text3，编号→Text4。
六、向窗体中添加4个CommandButton控件（命令按钮），将它们的caption属性分别设置为“添加记录”、“修改记录”、“删除记录”和“退出系统”，并调整它们的位置成一排，放在文本框的下方。
七、在两排文本框和命令按钮中间，添加一个Line控件，适当拖动其两端的控制点将长短调整至适当，并将其BorderColor属性性设为&H00C00000&，作用是把文本框和命令按钮隔开，这样在视觉上似乎能好看些。
八、所有控件设置完毕后，界面如下图所示：
三、为对象添加事件代码。
一、form1的load事件代码：
Private Sub Form_Load()
Form1.MS1.ColWidth(0) = 600 ' 控件名.ColWidth(I) 控件的第（I+1）列宽
Form1.MS1.ColWidth(1) = 1000
Form1.MS1.ColWidth(2) = 2300
Form1.MS1.ColWidth(3) = 4000
Form1.Text1.Text = ""
Form1.Text2.Text = ""
Form1.Text3.Text = ""
Form1.Text4.Text = ""
End Sub
主要是在系统初始化时设置MSHFlexGrid控件的列宽，并将文本框置空。
二、“添加记录”按钮(command1)的click事件代码：
Private Sub Command1_Click()
Dim sc As Integer
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
'即网站名称、网站地址和网站描述的内容必须填全了才打开数据库连接写入数据
'由于系统数据库设计为“编号”字段采用的是Access的自动编号
'因此在添加记录时不接收编号的数据，由Access自动加编号
MsgBox ("请输入完整的网站信息")
Else