如何让vb将数据保存在数据库中

在VB菜单：工程->引用 里面找 Microsoft ActiveX Data Object 28 Library,并勾选上

Dim cn As New ADODBConnection'声明一个连接对象

Dim rst As New ADODBRecordset'声明一个记录集对象

Dim SqlStr As String'声明一个字符串变量

cnOpen "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\db1mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"

'上面是连接到数据库

SqlStr = "Select From 用户表"

rstCursorLocation = adUseClient'设置游标位置

rstOpen SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集

rstFields("用户名称")Value = Text1Text'修改记录集中第一条记录"用户名称"字段的数值

rstFields("用户口令")Value = Text2Text'修改记录集中第一条记录"用户口令"字段的数值

rstUpdateBatch '提交，就是写到硬盘的数据库文件

rstClose '关闭记录集

Set rst = Nothing '释放

cnClose '关闭连接

Set cn = Nothing '释放

首先你要从数据库提取出你要放在TREEVIEW里的字段，当然是分类提取，然后根据提取到的字段分别绑定，中间还存在自我判断等，所需要的过程相对比较复杂，需进行多次运算，飞人建议分开来写，没必要一次就全部绑定到treeview否则会加长运算时间，使用感觉会差一些，至于保存成指定格式，那就看你自己的了，因为保存成什么样的后缀文件可以自己规定，导出时你所使用的是什么控件根据控件不同，导出的方式也略有不同

提取treeview所需数据时需要分各个节点来提取，这样可以加快提取精准度，同事会让使用者感觉速度快

都是用SQL语句完成的

写入数据库

strSQL="INTO TABLENAME （OPTION1,OPTIN2）VALUES(VALUE1,VALUE2)";

cmdConnection = conn;

cmdCommandText = strSQL;

cmdParametersAdd(paramrs[i]);

try

{

connOpen();

}

catch(Exception ex)

{

throw ex;

}

finally

{

cmdParametersClear();

cmdCommandText = null;

cmdDispose();

connClose();

}

读取值

strSQL ="SELECT OPTION1，OPTION2 FROM TABLENAME";

cmdCommandText = strSQL;

cmdConnection = conn;

DataSet ds = new DataSet();

try

{

connOpen();

SqlDataAdapter da = new SqlDataAdapter(cmd);

daFill(ds);

}

catch (Exception ex)

{

throw ex;

}

finally

{

cmdDispose();

connClose();

}

TextBox2text = dsTables[0]rows[0][0]valuetostring();

vb的recordset不一定要连上数据库的。

看看我的博客：

>

以上就是关于如何让vb将数据保存在数据库中全部的内容，包括:如何让vb将数据保存在数据库中、vb中我如何做到保存数据和读取数据呢求大神帮忙 下面详细介绍必好评，在线等、vb.net保存数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！