VB写入数据库

Public cn As ADODBConnection

Public rs As ADODBRecordset

Public cc As String

Sub aa()

Set cn = New ADODBConnection

Set rs = New ADODBRecordset

cc = "Provider=SQLOLEDB1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=library" ‘这里要改成连接的数据库。

cnOpen cc

End Sub

以上是模块代码。

Private Sub Command1_Click()

If Text1Text = "" Then

MsgBox "请输入商品ID！"

Text1SetFocus

Exit Sub

End If

If Text2Text = "" Then

MsgBox "请输入商品名称！"

Text2SetFocus

Exit Sub

End If

If Text3Text = "" Then

MsgBox "请输入商品价格！"

Text3SetFocus

Exit Sub

End If

sql = "select from goods where goodid='" & Text1Text & "'"

Set rs = New ADODBRecordset

rsOpen sql, cn, 1, 3

If rsEOF Then

rsAddNew

rsFields(0) = Text1Text

rsFields(1) = Text2Text

rsFields(2) = Text3Text

rsUpdate

MsgBox "商品信息添加成功！"

Text1Text = ""

Text2Text = ""

Text3Text = ""

Text1SetFocus

Else

MsgBox "此ID已存在，请输入新ID！"

Text1Text = ""

Text1SetFocus

End If

rsClose

Set rs = Nothing

End Sub

Private Sub Form_Load()

Call aa

End Sub

以上是窗体代码。

你好好看一下，这是一个正确的源代码。

这是一句读取你表单的数据

意思是Form4Text1Text

里的数据赋给Form2Adodc1RecordsetFields(0)

这是不能把数据添加到数据库里去的

你还要通过UPDATE(好像是这个关键字,不知有没有记错)把数据添加到你的数据库里去

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

如果是sql，那就简单了，连接好了用sql语句就可以，具体可以到网上查查，有很多

excel做数据库，就需要用openrowset了

举个简单例子

select from OPENROWSET('MicrosoftJETOLEDB40','Excel 40;Database=f:\ckqb2XLS',ckqb2$)

结果是将f盘下ckqb2的excel文件中名为ckqb2的sheet的内容

以上就是关于VB写入数据库全部的内容，包括:VB写入数据库、vb6.0 update更新数据库读取和添加代码如何写，最后简单点、vb如何连接sql数据库,求源码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！