怎样将VB一个窗体各文本框的值加入数据库?
展开全部
先引用(工程->引用)
Microsoft ActiveX Data Object 2.1 Library
然后设计好数据库(Access为例)
然后添加如下代码
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb" '请输入实际路径及数据库的名字
Dim SQL As String
SQL="Insert Into [表名](字段名1,字段名2, ... ,字段名N) Values(值1,值2, ... ,值N)"
Conn.Execute SQL
End Sub
这样就可以添加到数据库了
需要注意的是,如果值为字符型,两边加上单引号,如果为日期型,两边加上#,其它则直接引用
Microsoft ActiveX Data Object 2.1 Library
然后设计好数据库(Access为例)
然后添加如下代码
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb" '请输入实际路径及数据库的名字
Dim SQL As String
SQL="Insert Into [表名](字段名1,字段名2, ... ,字段名N) Values(值1,值2, ... ,值N)"
Conn.Execute SQL
End Sub
这样就可以添加到数据库了
需要注意的是,如果值为字符型,两边加上单引号,如果为日期型,两边加上#,其它则直接引用
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询