Question

在VB中，怎样对SQL数据库里面的数据进行操作？

比如说我做的一个VB的界面，专门用来插入某个商品的信息，包括商品编号，商品名称，价格等这些。

有一个information数据库表；
VB设计的界面里面有三个textbox控件，分别用来填写商品编号、商品名称、价格；还有一个button按钮

要实现在运行的时候，分别在三个文本框中输入相应的信息，然后点击button按钮，就可以实现对把这些信息插入到information数据表中。

请问要怎么实现呢？VB里面的代码把我给卡住了，望详细赐教！（小弟对ADO可是一窍不通，最好不要用那个吧）

谢谢！

Answer 1

方法1，
建立一个模块
将工程的启动设置为 SUB MAIN
在模块里写下面代码
Public db As Database
Public rs As Recordset
Sub main()
set db=db.opendatabase("数据库路径"<建议用相对路径--就是把数据库文件和工程文件放在同一目录下--相对路径就是APP.PATH+"数据库名带后缀">)
第一启动窗体<比如：form1>.show
end sub
以后在其他窗体中如果要调用数据库只用在窗体中写代码
set rs=openrecordset(<可以是数据库的表--如"student",也可以是查询语句--如"select* form student">)
这时数据库的内容都存在FILE集合里
比方说set rs=openrecordset("select* form student")
rs.file(0)就是SQL语句查询结果的第一列
rs.files就是整个结果
使用text1.text=rs.file(0)就可以把文本框于查询结果帮定起来
如果要对数据库进行修这时用以下代码：
db.Execute （<SQL语句--如"insert into student(sno,sname) value("","")">)
方法2，
工程--部件--选择microsoft data bound grid control 5.0
然后在窗体中添加左边工具栏的 DATA 和DBGRID 控件
选择DBGRID 将属性DATASOURCE 设置为DATA控件的名字（如DATA1）
然后选择DATA 将属性CONNECT设置为ACCESSS 2000
设置DATABASENAME 选择数据库的存放路径
最后设置RECORDSET 为需要连接的表的名字
运行就可以看到 DATAGRID中显示了数据库的信息

Answer 2

要保存数据到数据库，VB自带的功能是无法完成的，除非你用普通的文件保存数据。
用ADO相对简单，对于你的问题只要一个Connection对象。用它连接数据库，用它的Execute方法来执行更新数据的SQL语句。
如果你的输入跟数据库字段直接对应，也可以使用数据绑定的办法，用ADODC控件获取数据，并将文本框跟ADODC绑定。

追问

请问可以不可以帮我对上图的那些功能写一下代码示范一下，周末交作业，我后面还有很多功能没做呢，谢谢了！
数据库信息：Data Source=程少COOL-PC\MSSQLSERVER2008;Initial Catalog=SMS;Integrated Security=True

数据库名：A 表名：B
属性名：商品名称：C，商品编号：D,入库数量：E,采购单价:F，入库时间：G备注：H

用这些字母代替就可以了 谢谢了！

追答

菜单：工程-引用，添加Microsoft ActiveX Data Objects 2.X Library的引用
窗体代码顶部添加以下代码：
Dim mCnn As New adodb.Connection
在Form_Load添加代码：
'假设你的数据库在本机，采用Windows身份登录
mCnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=information;Data Source=."
mCnn.Open
if not mCnn.State=adStateOpen then msgbox "打开数据库失败！"
End Sub
在按钮Click事件添加：
'收集字段值列表到变量strValues
strValues=txt商品名称.Text & "," & txt商品编号.Text '字段值列表自己写完整
'使用SQL语句保存数据
mcnn.Execute "Insert into tablename values(" & strValues & ")"